2018-03-19 5:08 GMT+01:00 Chris Marusich <cmmarus...@gmail.com>:
> Catonano <caton...@gmail.com> 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)))
))
