* Customize %desktop-services.
@ 2016-05-12 19:45 Dmitry Nikolaev
2016-05-13 20:26 ` Alex Kost
0 siblings, 1 reply; 7+ messages in thread
From: Dmitry Nikolaev @ 2016-05-12 19:45 UTC (permalink / raw)
To: help-guix
[-- Attachment #1: Type: text/plain, Size: 2270 bytes --]
Hi. I want my config.scm to be short. Here is my services section:
(services (cons* ;;(dhcp-client-service)
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
%desktop-services))
But if I add slim-service with my configuration
(slim-service #:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file (xorg-configuration-file
#:extra-config (list libinput.conf)
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
I'll get
guix system: error: service 'xorg-server' provided more than once
Because %desktop-services already includes slim-service:
;;guix.git/tree/gnu/services/desktop.scm
(define %desktop-services
;; List of services typically useful for a "desktop" use case.
(cons* (slim-service)
...
So I put service list from desktop.scm and get this monster:
(services (cons* ;;(dhcp-client-service)
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
(slim-service #:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file (xorg-configuration-file
#:extra-config (list libinput.conf)
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
(screen-locker-service slock)
(screen-locker-service xlockmore "xlock")
(avahi-service)
(wicd-service)
(udisks-service)
(upower-service)
(colord-service)
(geoclue-service)
(polkit-service)
(elogind-service)
(dbus-service)
(ntp-service)
;; %desktop-services))
%base-services))
What if I want to custome some service from %base-services? My service list
would become too long to be readable.
How do I write something that works like "take %desktop-services, but
redefine (slim-service) with my definiton of (slim-service ...)"?
Dmitry Nikolaev
[-- Attachment #2: Type: text/html, Size: 3030 bytes --]
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Customize %desktop-services.
2016-05-12 19:45 Dmitry Nikolaev
@ 2016-05-13 20:26 ` Alex Kost
0 siblings, 0 replies; 7+ messages in thread
From: Alex Kost @ 2016-05-13 20:26 UTC (permalink / raw)
To: Dmitry Nikolaev; +Cc: help-guix
Dmitry Nikolaev (2016-05-12 22:45 +0300) wrote:
[...]
> How do I write something that works like "take %desktop-services, but
> redefine (slim-service) with my definiton of (slim-service ...)"?
You need to remove the default slim service and add your own. You can
use 'service-kind' procedure to check if the service is the one you
need.
See <http://lists.gnu.org/archive/html/help-guix/2016-01/msg00064.html>
and surrounding messages.
So it would look something like this :
(cons (slim-service ...) ; your service
(remove (lambda (service)
(eq? (service-kind service)
slim-service-type))
%desktop-services))
Note that 'remove' is from (srfi srfi-1), 'service-kind' is from (gnu
services), 'slim-service-type' is from (gnu services xorg), so you need
to use all these modules in your config file.
--
Alex
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Customize %desktop-services.
@ 2016-05-15 11:24 Dmitry Nikolaev
2016-05-16 20:20 ` Alex Kost
0 siblings, 1 reply; 7+ messages in thread
From: Dmitry Nikolaev @ 2016-05-15 11:24 UTC (permalink / raw)
To: help-guix
[-- Attachment #1: Type: text/plain, Size: 1764 bytes --]
On 13 May 2016 at 23:26, Alex Kost <alezost@gmail.com> wrote:
> Dmitry Nikolaev (2016-05-12 22:45 +0300) wrote:
>
> [...]
> > How do I write something that works like "take %desktop-services, but
> > redefine (slim-service) with my definiton of (slim-service ...)"?
>
> You need to remove the default slim service and add your own. You can
> use 'service-kind' procedure to check if the service is the one you
> need.
>
> See <http://lists.gnu.org/archive/html/help-guix/2016-01/msg00064.html>
> and surrounding messages.
>
> So it would look something like this :
>
> (cons (slim-service ...) ; your service
> (remove (lambda (service)
> (eq? (service-kind service)
> slim-service-type))
> %desktop-services))
>
> Note that 'remove' is from (srfi srfi-1), 'service-kind' is from (gnu
> services), 'slim-service-type' is from (gnu services xorg), so you need
> to use all these modules in your config file.
Didn't help.
(services
(cons*
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
(cons
(slim-service #:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file (xorg-configuration-file
#:extra-config (list libinput.conf)
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
(remove (lambda (service)
(eq? (service-kind service)
slim-service-type))
%desktop-services))))
Still gives:
guix system: error: service 'xorg-server' provided more than once
Dmitry Nikolaev
[-- Attachment #2: Type: text/html, Size: 2700 bytes --]
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Customize %desktop-services.
2016-05-15 11:24 Dmitry Nikolaev
@ 2016-05-16 20:20 ` Alex Kost
0 siblings, 0 replies; 7+ messages in thread
From: Alex Kost @ 2016-05-16 20:20 UTC (permalink / raw)
To: Dmitry Nikolaev; +Cc: help-guix
Dmitry Nikolaev (2016-05-15 14:24 +0300) wrote:
[...]
> (services
> (cons*
> (lsh-service #:port-number 2222)
> (gnome-desktop-service)
> (xfce-desktop-service)
> (console-keymap-service "ru")
> (cons
> (slim-service #:allow-empty-passwords? #f #:auto-login? #f
> #:startx (xorg-start-command
> #:configuration-file (xorg-configuration-file
> #:extra-config (list libinput.conf)
> #:drivers '("radeon" "vesa")
> #:resolutions
> '((1366 768) (1024 768)))))
> (remove (lambda (service)
> (eq? (service-kind service)
> slim-service-type))
> %desktop-services))))
>
> Still gives:
>
> guix system: error: service 'xorg-server' provided more than once
I don't have this error with these services. Could you paste your whole
config? BTW there is no need to use that additional 'cons' before
slim-service, just:
(cons*
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
(slim-service
#:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
#:extra-config (list "libinput.conf")
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
(remove (lambda (service)
(eq? (service-kind service)
slim-service-type))
%desktop-services))
--
Alex
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Customize %desktop-services.
@ 2016-05-24 20:42 Dmitry Nikolaev
2016-05-25 8:20 ` Alex Kost
0 siblings, 1 reply; 7+ messages in thread
From: Dmitry Nikolaev @ 2016-05-24 20:42 UTC (permalink / raw)
To: Alex Kost; +Cc: help-guix
[-- Attachment #1: Type: text/plain, Size: 10307 bytes --]
>
> Could you paste your whole config?
>
Here you are. This one works:
(use-modules (gnu)
(gnu packages admin)
(gnu packages fonts)
(gnu packages gl)
(gnu packages gnome)
(gnu packages gnuzilla)
(gnu packages guile)
(gnu packages java)
(gnu packages linux)
(gnu packages ntp)
(gnu packages pulseaudio)
(gnu packages ruby)
(gnu packages screen)
(gnu packages slim)
(gnu packages suckless)
(gnu packages version-control)
(gnu packages wget)
(gnu packages wicd)
(gnu packages wm)
(gnu packages xdisorg)
(gnu packages xorg)
(gnu packages zip)
(gnu services)
(gnu services avahi)
(gnu services dbus)
(gnu services desktop)
(gnu services xorg)
(gnu system nss)
(guix gexp)
(guix monads)
(guix store)
(srfi srfi-1)
(linux-nonfree)
(xorg-ati)
(font-hack))
;; (use-service-modules xorg ati avahi dbus desktop networking ssh)
;; (use-package-modules admin certs slim xorg)
(use-service-modules avahi dbus networking ssh)
(use-package-modules admin certs ntp)
(define libinput.conf "
# Use the libinput driver for all event devices
Section \"InputClass\"
Identifier \"libinput keyboard catchall\"
MatchIsKeyboard \"on\"
MatchDevicePath \"/dev/input/event*\"
Driver \"libinput\"
Option \"XkbLayout\" \"us,ru\"
Option \"XkbOptions\"
\"grp_led:scroll,grp:caps_toggle,grp:lwin_compose\"
EndSection
")
(operating-system
(kernel linux-nonfree)
(firmware (cons* radeon-RS780-firmware-non-free
RTL8188CE-firmware-non-free %base-firmware))
(host-name "camelot")
(timezone "Europe/Moscow")
(locale "en_US.UTF-8")
(bootloader (grub-configuration (device "/dev/sda")))
(file-systems (cons (file-system
(device "root")
(title 'label)
(mount-point "/")
(type "ext4"))
%base-file-systems))
(users (cons (user-account
(name "camel")
(comment "Camel")
(group "users")
(supplementary-groups '("wheel" "netdev"
"audio" "video"))
(home-directory "/home/camel"))
%base-user-accounts))
;; This is where we specify system-wide packages.
(packages (cons*
evince
font-dejavu
;; font-hack
font-inconsolata
font-liberation
font-terminus
font-ubuntu
git
;; guile
htop
i3-wm
icecat
icedtea
lm-sensors
mesa
mesa-utils
nss-certs ;for HTTPS access
screen
slim
pavucontrol
perf-nonfree
ruby
rxvt-unicode
tcpdump
wget
wicd
wpa-supplicant
xf86-input-evdev
xf86-video-ati
xf86-video-fbdev
xf86-video-modesetting
xorg-server
xsensors
unzip
%base-packages))
(services
(cons*
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
(slim-service
#:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
#:extra-config (list libinput.conf)
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
(screen-locker-service slock)
(screen-locker-service xlockmore "xlock")
;; The D-Bus clique.
(avahi-service)
(wicd-service)
(udisks-service)
(upower-service)
(colord-service)
(geoclue-service)
(polkit-service)
(elogind-service)
(dbus-service)
(ntp-service)
%base-services))
;; (remove (lambda (service)
;; (eq? (service-kind service) slim-service-type))
;; %desktop-services)))
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))
Second one gives
guix system: error: service 'xorg-server' provided more than once
---
(use-modules (gnu)
(gnu packages admin)
(gnu packages fonts)
(gnu packages gl)
(gnu packages gnome)
(gnu packages gnuzilla)
(gnu packages guile)
(gnu packages java)
(gnu packages linux)
(gnu packages ntp)
(gnu packages pulseaudio)
(gnu packages ruby)
(gnu packages screen)
(gnu packages slim)
(gnu packages suckless)
(gnu packages version-control)
(gnu packages wget)
(gnu packages wicd)
(gnu packages wm)
(gnu packages xdisorg)
(gnu packages xorg)
(gnu packages zip)
(gnu services)
(gnu services avahi)
(gnu services dbus)
(gnu services desktop)
(gnu services xorg)
(gnu system nss)
(guix gexp)
(guix monads)
(guix store)
(srfi srfi-1)
(linux-nonfree)
(xorg-ati)
(font-hack))
;; (use-service-modules xorg ati avahi dbus desktop networking ssh)
;; (use-package-modules admin certs slim xorg)
(use-service-modules avahi dbus networking ssh)
(use-package-modules admin certs ntp)
(define libinput.conf "
# Use the libinput driver for all event devices
Section \"InputClass\"
Identifier \"libinput keyboard catchall\"
MatchIsKeyboard \"on\"
MatchDevicePath \"/dev/input/event*\"
Driver \"libinput\"
Option \"XkbLayout\" \"us,ru\"
Option \"XkbOptions\"
\"grp_led:scroll,grp:caps_toggle,grp:lwin_compose\"
EndSection
")
(operating-system
(kernel linux-nonfree)
(firmware (cons* radeon-RS780-firmware-non-free
RTL8188CE-firmware-non-free %base-firmware))
(host-name "camelot")
(timezone "Europe/Moscow")
(locale "en_US.UTF-8")
(bootloader (grub-configuration (device "/dev/sda")))
(file-systems (cons (file-system
(device "root")
(title 'label)
(mount-point "/")
(type "ext4"))
%base-file-systems))
(users (cons (user-account
(name "camel")
(comment "Camel")
(group "users")
(supplementary-groups '("wheel" "netdev"
"audio" "video"))
(home-directory "/home/camel"))
%base-user-accounts))
;; This is where we specify system-wide packages.
(packages (cons*
evince
font-dejavu
;; font-hack
font-inconsolata
font-liberation
font-terminus
font-ubuntu
git
;; guile
htop
i3-wm
icecat
icedtea
lm-sensors
mesa
mesa-utils
nss-certs ;for HTTPS access
screen
slim
pavucontrol
perf-nonfree
ruby
rxvt-unicode
tcpdump
wget
wicd
wpa-supplicant
xf86-input-evdev
xf86-video-ati
xf86-video-fbdev
xf86-video-modesetting
xorg-server
xsensors
unzip
%base-packages))
(services
(cons*
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
(slim-service
#:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
#:extra-config (list libinput.conf)
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
;; (screen-locker-service slock)
;; (screen-locker-service xlockmore "xlock")
;; ;; The D-Bus clique.
;; (avahi-service)
;; (wicd-service)
;; (udisks-service)
;; (upower-service)
;; (colord-service)
;; (geoclue-service)
;; (polkit-service)
;; (elogind-service)
;; (dbus-service)
;; (ntp-service)
;; %base-services))
(remove (lambda (service)
(eq? (service-kind service) slim-service-type))
%desktop-services)))
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))
Here is diff of two:
135,151c135,152
< (screen-locker-service slock)
< (screen-locker-service xlockmore "xlock")
< ;; The D-Bus clique.
< (avahi-service)
< (wicd-service)
< (udisks-service)
< (upower-service)
< (colord-service)
< (geoclue-service)
< (polkit-service)
< (elogind-service)
< (dbus-service)
< (ntp-service)
< %base-services))
< ;; (remove (lambda (service)
< ;; (eq? (service-kind service) slim-service-type))
< ;; %desktop-services)))
---
> ;; (screen-locker-service slock)
> ;; (screen-locker-service xlockmore "xlock")
> ;; ;; The D-Bus clique.
> ;; (avahi-service)
> ;; (wicd-service)
> ;; (udisks-service)
> ;; (upower-service)
> ;; (colord-service)
> ;; (geoclue-service)
> ;; (polkit-service)
> ;; (elogind-service)
> ;; (dbus-service)
> ;; (ntp-service)
> ;; %base-services))
>
> (remove (lambda (service)
> (eq? (service-kind service) slim-service-type))
> %desktop-services)))
Thanks in advance.
Dmitry
[-- Attachment #2: Type: text/html, Size: 15236 bytes --]
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Customize %desktop-services.
2016-05-24 20:42 Dmitry Nikolaev
@ 2016-05-25 8:20 ` Alex Kost
0 siblings, 0 replies; 7+ messages in thread
From: Alex Kost @ 2016-05-25 8:20 UTC (permalink / raw)
To: Dmitry Nikolaev; +Cc: help-guix
[-- Attachment #1: Type: text/plain, Size: 743 bytes --]
Dmitry Nikolaev (2016-05-24 23:42 +0300) wrote:
[...]
> Second one gives
>
> guix system: error: service 'xorg-server' provided more than once
As I wrote in the previous message, I don't reproduce this. Both
configs didn't give me any error, but when I added another (the second)
slim-service, then this error appears. Are absolutely sure you specify
the right config for "guix system" command?
Can you try the attached config? It is the same as yours, except I
commented non-free stuff from your modules, because I don't have them.
I ran the following command:
guix system build --no-substitutes --dry-run --no-grafts .../attached-config.scm
and got no error (only a huge output of what would be built). Is it
successful for you?
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: os-nikolaev-new2.scm --]
[-- Type: text/x-scheme, Size: 4600 bytes --]
(use-modules (gnu)
(gnu packages admin)
(gnu packages fonts)
(gnu packages gl)
(gnu packages gnome)
(gnu packages gnuzilla)
(gnu packages guile)
(gnu packages java)
(gnu packages linux)
(gnu packages ntp)
(gnu packages pulseaudio)
(gnu packages ruby)
(gnu packages screen)
(gnu packages slim)
(gnu packages suckless)
(gnu packages version-control)
(gnu packages wget)
(gnu packages wicd)
(gnu packages wm)
(gnu packages xdisorg)
(gnu packages xorg)
(gnu packages zip)
(gnu services)
(gnu services avahi)
(gnu services dbus)
(gnu services desktop)
(gnu services xorg)
(gnu system nss)
(guix gexp)
(guix monads)
(guix store)
(srfi srfi-1)
;; (linux-nonfree)
;; (xorg-ati)
;; (font-hack)
)
;; (use-service-modules xorg ati avahi dbus desktop networking ssh)
;; (use-package-modules admin certs slim xorg)
(use-service-modules avahi dbus networking ssh)
(use-package-modules admin certs ntp)
(define libinput.conf "
# Use the libinput driver for all event devices
Section \"InputClass\"
Identifier \"libinput keyboard catchall\"
MatchIsKeyboard \"on\"
MatchDevicePath \"/dev/input/event*\"
Driver \"libinput\"
Option \"XkbLayout\" \"us,ru\"
Option \"XkbOptions\" \"grp_led:scroll,grp:caps_toggle,grp:lwin_compose\"
EndSection
")
(operating-system
;; (kernel linux-nonfree)
;; (firmware (cons* radeon-RS780-firmware-non-free
;; RTL8188CE-firmware-non-free %base-firmware))
(host-name "camelot")
(timezone "Europe/Moscow")
(locale "en_US.UTF-8")
(bootloader (grub-configuration (device "/dev/sda")))
(file-systems (cons (file-system
(device "root")
(title 'label)
(mount-point "/")
(type "ext4"))
%base-file-systems))
(users (cons (user-account
(name "camel")
(comment "Camel")
(group "users")
(supplementary-groups '("wheel" "netdev"
"audio" "video"))
(home-directory "/home/camel"))
%base-user-accounts))
;; This is where we specify system-wide packages.
(packages (cons*
evince
font-dejavu
;; font-hack
font-inconsolata
font-liberation
font-terminus
font-ubuntu
git
;; guile
htop
i3-wm
icecat
icedtea
lm-sensors
mesa
mesa-utils
nss-certs ;for HTTPS access
screen
slim
pavucontrol
;; perf-nonfree
ruby
rxvt-unicode
tcpdump
wget
wicd
wpa-supplicant
xf86-input-evdev
xf86-video-ati
xf86-video-fbdev
xf86-video-modesetting
xorg-server
xsensors
unzip
%base-packages))
(services
(cons*
(lsh-service #:port-number 2222)
(gnome-desktop-service)
(xfce-desktop-service)
(console-keymap-service "ru")
(slim-service
#:allow-empty-passwords? #f #:auto-login? #f
#:startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
#:extra-config (list libinput.conf)
#:drivers '("radeon" "vesa")
#:resolutions
'((1366 768) (1024 768)))))
;; (screen-locker-service slock)
;; (screen-locker-service xlockmore "xlock")
;; ;; The D-Bus clique.
;; (avahi-service)
;; (wicd-service)
;; (udisks-service)
;; (upower-service)
;; (colord-service)
;; (geoclue-service)
;; (polkit-service)
;; (elogind-service)
;; (dbus-service)
;; (ntp-service)
;; %base-services))
(remove (lambda (service)
(eq? (service-kind service) slim-service-type))
%desktop-services)))
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Customize %desktop-services.
@ 2016-06-01 13:14 Dmitry Nikolaev
0 siblings, 0 replies; 7+ messages in thread
From: Dmitry Nikolaev @ 2016-06-01 13:14 UTC (permalink / raw)
To: Alex Kost; +Cc: help-guix
[-- Attachment #1: Type: text/plain, Size: 993 bytes --]
On 25 May 2016 at 11:20, Alex Kost <alezost@gmail.com> wrote:
> Dmitry Nikolaev (2016-05-24 23:42 +0300) wrote:
>
> > Second one gives
> >
> > guix system: error: service 'xorg-server' provided more than once
>
> As I wrote in the previous message, I don't reproduce this. Both
> configs didn't give me any error, but when I added another (the second)
> slim-service, then this error appears. Are absolutely sure you specify
> the right config for "guix system" command?
>
> Can you try the attached config? It is the same as yours, except I
> commented non-free stuff from your modules, because I don't have them.
> I ran the following command:
>
> guix system build --no-substitutes --dry-run --no-grafts
> .../attached-config.scm
>
> and got no error (only a huge output of what would be built). Is it
> successful for you?
>
>
Look like you're right. Have to do something with my xorg-ati.scm
https://github.com/8p8c/my-guix/blob/master/packages/xorg-ati.scm#L356
Dmitry Nikolaev
[-- Attachment #2: Type: text/html, Size: 1596 bytes --]
^ permalink raw reply [flat|nested] 7+ messages in thread
end of thread, other threads:[~2016-06-01 13:14 UTC | newest]
Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-06-01 13:14 Customize %desktop-services Dmitry Nikolaev
-- strict thread matches above, loose matches on Subject: below --
2016-05-24 20:42 Dmitry Nikolaev
2016-05-25 8:20 ` Alex Kost
2016-05-15 11:24 Dmitry Nikolaev
2016-05-16 20:20 ` Alex Kost
2016-05-12 19:45 Dmitry Nikolaev
2016-05-13 20:26 ` Alex Kost
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).