config/guix/system/laptop-mimimi: Spawn 2 Slim and auto-connect in one.
parent
a1666992fb
commit
05fc56556a
|
@ -18,6 +18,7 @@
|
||||||
xorg)
|
xorg)
|
||||||
|
|
||||||
(use-package-modules
|
(use-package-modules
|
||||||
|
emacs-xyz ; For exwm config.
|
||||||
gnome ; gnome-minimal
|
gnome ; gnome-minimal
|
||||||
linux ; For custom kernel.
|
linux ; For custom kernel.
|
||||||
;; For Xorg modules:
|
;; For Xorg modules:
|
||||||
|
@ -71,19 +72,32 @@ EndSection")
|
||||||
"ACTION==\"add\", SUBSYSTEM==\"backlight\", "
|
"ACTION==\"add\", SUBSYSTEM==\"backlight\", "
|
||||||
"RUN+=\"/run/current-system/profile/bin/chmod g+w /sys/class/backlight/%k/brightness\"")))
|
"RUN+=\"/run/current-system/profile/bin/chmod g+w /sys/class/backlight/%k/brightness\"")))
|
||||||
|
|
||||||
(define %mimimi/services
|
(define %mimimi/xorg-minimal-config
|
||||||
(cons*
|
(xorg-configuration
|
||||||
(service slim-service-type
|
|
||||||
(slim-configuration
|
|
||||||
(display ":0")
|
|
||||||
(vt "vt7")
|
|
||||||
(xorg-configuration
|
|
||||||
(xorg-configuration
|
|
||||||
(modules (list xf86-video-vesa
|
(modules (list xf86-video-vesa
|
||||||
xf86-video-intel
|
xf86-video-intel
|
||||||
;; xf86-video-nouveau ; Make sure this is on if the 'nouveau' kernel module is loaded.
|
;; xf86-video-nouveau ; Make sure this is on if the 'nouveau' kernel module is loaded.
|
||||||
xf86-input-libinput))
|
xf86-input-libinput))
|
||||||
(extra-config (list %mimimi/xorg-touchpad))))))
|
(extra-config (list %mimimi/xorg-touchpad))))
|
||||||
|
|
||||||
|
(define %mimimi/services
|
||||||
|
(cons*
|
||||||
|
;; TODO: How can I choose which display to focus by default? Order seems not
|
||||||
|
;; to matter.
|
||||||
|
(service slim-service-type
|
||||||
|
(slim-configuration
|
||||||
|
(display ":0")
|
||||||
|
(vt "vt7")
|
||||||
|
(xorg-configuration %mimimi/xorg-minimal-config)))
|
||||||
|
(service slim-service-type
|
||||||
|
(slim-configuration
|
||||||
|
(display ":1")
|
||||||
|
(vt "vt8")
|
||||||
|
(auto-login? #t) ;
|
||||||
|
(default-user "ambrevar")
|
||||||
|
(auto-login-session (file-append emacs-exwm-no-x-toolkit
|
||||||
|
"/bin/exwm"))
|
||||||
|
(xorg-configuration %mimimi/xorg-minimal-config)))
|
||||||
(modify-services
|
(modify-services
|
||||||
(remove (lambda (service)
|
(remove (lambda (service)
|
||||||
(eq? (service-kind service) gdm-service-type))
|
(eq? (service-kind service) gdm-service-type))
|
||||||
|
|
Loading…
Reference in New Issue