Re: this conf doesnt work. Why ?

[Catonano]

2018-03-19 5:08 GMT+01:00 Chris Marusich <address@hidden>:

Catonano <address@hidden> writes:

> (define %my-services
>   (modify-services
>    (cons* (gnome-desktop-service)
>       (cons*
>        (service agetty-service-type
>             (agetty-configuration (tty "ttyS0")))
>        %desktop-services))
>    (slim-service-type config =>
>               (slim-configuration
>                (inherit config)
>                (startx (xorg-start-command
>                 #:configuration-file
>                 (xorg-configuration-file
>                  ;; Setup X to use a swiss german keyboard layout.
>                  #:extra-config
>                  '("Section \"InputClass\"
>         Identifier \"keyboard-all\"
>         Option \"XkbLayout\" \"ch\" ; <~ replace \"ch\" with \"it\"
>         MatchIsKeyboard \"on\"
> EndSection"))))))))

This looks wrong to me.  If this works, I think it's only by accident.
Check out the docstring for modify-services in gnu/services.scm, which
says:

  Modify the services listed in SERVICES according to CLAUSES and return
  the resulting list of services.  Each clause must have the form:

    (TYPE VARIABLE => BODY)

So, every clause after modify-services needs to have that form.  This
may also be the reason why the length of your %my-services is the same
as %desktop-services.  I think maybe the gnome-desktop-service and the
agetty-service-type service you've created are just being ignored
somehow.

Does this make sense?

--
Chris

Yes, the version you are commenting is not current anymore ;-)

I did read the manual and I wrote snippets that I experimented in a REPL

The current version mostly works, my services aren't being ignored anymore

The problem I'm having now is that Xorg doesn't like the configuration I'm providing it with

But the Scheme code I wrote is working

I'm not gonna delve into Xorg conf though. Not my thing, sorry

I pasted an excerpt of the log it's giving me, anyway

This is the version that is working right now

(define %my-services
  (modify-services
      %desktop-services
;    (slim-service-type config =>
;                    (slim-configuration
;                     (inherit config)
;                     (startx (xorg-start-command
;                              #:configuration-file
;                              (xorg-configuration-file
                               ;; Setup X to use a swiss german keyboard layout.
;                               #:extra-config
;                               '("Section \"InputClass\"
;        Identifier \"keyboard-all\"
;        Option \"XkbLayout\" \"ch\"
;        MatchIsKeyboard \"on\"
;EndSection"))))))
    (gnome-desktop-service-type config => (gnome-desktop-configuration (inherit config)))
    (agetty-service-type config => (agetty-configuration (inherit config)
                             (tty "ttyS0")))
    (xfce-desktop-service-type config => (xfce-desktop-configuration (inherit config)))

    ))