From mboxrd@z Thu Jan 1 00:00:00 1970 From: Catonano Subject: Re: this conf doesnt work. Why ? Date: Mon, 19 Mar 2018 06:54:08 +0100 Message-ID: References: <87sh8wu2ql.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="00000000000024070e0567bd96e9" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:48073) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1exnkJ-0005XX-6f for help-guix@gnu.org; Mon, 19 Mar 2018 01:54:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1exnkH-00015O-W6 for help-guix@gnu.org; Mon, 19 Mar 2018 01:54:11 -0400 Received: from mail-yw0-x231.google.com ([2607:f8b0:4002:c05::231]:33974) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1exnkH-00014f-PW for help-guix@gnu.org; Mon, 19 Mar 2018 01:54:09 -0400 Received: by mail-yw0-x231.google.com with SMTP id x17so10798413ywj.1 for ; Sun, 18 Mar 2018 22:54:09 -0700 (PDT) In-Reply-To: <87sh8wu2ql.fsf@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org Sender: "Help-Guix" To: Chris Marusich Cc: help-guix --00000000000024070e0567bd96e9 Content-Type: text/plain; charset="UTF-8" 2018-03-19 5:08 GMT+01:00 Chris Marusich : > Catonano 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))) )) --00000000000024070e0567bd96e9 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable


2018-03-19 5:08 GMT+01:00 Chris Marusich <cmmarusich@gmail.com= >:
Catonano &l= t;catonano@gmail.com> writes:<= br>
> (define %my-services
>=C2=A0 =C2=A0(modify-services
>=C2=A0 =C2=A0 (cons* (gnome-desktop-service)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0(cons*
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 (service agetty-service-type
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(agetty-configuration (= tty "ttyS0")))
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 %desktop-services))
>=C2=A0 =C2=A0 (slim-service-type config =3D>
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(slim-configurat= ion
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (inherit config= )
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (startx (xorg-s= tart-command
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0#:configu= ration-file
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(xorg-con= figuration-file
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ;; Setup= X to use a swiss german keyboard layout.
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 #:extra-= config
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 '(&q= uot;Section \"InputClass\"
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Identifier \"keyboard-all\"=
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Option \"XkbLayout\" \"= ;ch\" ; <~ replace \"ch\" with \"it\"
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0MatchIsKeyboard \"on\"
> EndSection"))))))))

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

=C2=A0 Modify the services listed in SERVICES according to CLAUSES and retu= rn
=C2=A0 the resulting list of services.=C2=A0 Each clause must have the form= :

=C2=A0 =C2=A0 (TYPE VARIABLE =3D> BODY)

So, every clause after modify-services needs to have that form.=C2=A0 This<= br> may also be the reason why the length of your %my-services is the same
as %desktop-services.=C2=A0 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 ex= perimented in a REPL

The current ve= rsion mostly works, my services aren't being ignored anymore

The problem I'm having now is that Xorg d= oesn'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 ex= cerpt of the log it's giving me, anyway

This is the version that is worki= ng right now

(define %my-services
=C2=A0 (modify-services
=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 %desktop-services
;=C2=A0=C2=A0=C2=A0 (slim-= service-type config =3D>
;=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (s= lim-configuration
;=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (inhe= rit config)
;=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (startx (xo= rg-start-command
;=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #:configuration-file
;=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (xorg-configuration-file
=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0 ;; Setup X to use a swiss german keyboard layout.
;=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0 #:extra-config
;=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 '= ("Section \"InputClass\"
;=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 Identifier \"keyboard-all\"
;=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 Option \"XkbLayout\" \"ch\";=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 MatchIsKeyboard \"on\&quo= t;
;EndSection"))))))
=C2=A0=C2=A0=C2=A0 (gnome-desktop-service-= type config =3D> (gnome-desktop-configuration (inherit config)))
=C2= =A0=C2=A0=C2=A0 (agetty-service-type config =3D> (agetty-configuration (= inherit config)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2= =A0 =C2=A0(tty "ttyS0")))
=C2=A0=C2=A0=C2=A0 (xfce-desktop-ser= vice-type config =3D> (xfce-desktop-configuration (inherit config)))
=
=C2=A0=C2=A0=C2=A0 ))

--00000000000024070e0567bd96e9--