(use-modules (guix gexp)
(guix monads)
(guix store)
(gnu))
(use-service-modules base networking xorg desktop)
(use-package-modules linux emacs certs file
freedesktop fonts ratpoison xfce
zsh)
(define %console-font
#~(string-append #$font-terminus "/share/consolefonts/ter-u16n.psf.gz"))
(define libinput.conf "
# Use the libinput driver for all event devices
Section \"InputClass\"
Identifier \"libinput\"
Driver \"libinput\"
MatchDevicePath \"/dev/input/event*\"
EndSection
")
(define (my-slim-service)
(mlet %store-monad ((config (xorg-configuration-file
#:extra-config (list libinput.conf))))
(slim-service #:startx (xorg-start-command
#:configuration-file config))))
(operating-system
(bootloader (grub-configuration (device "/dev/sda")))
(initrd (lambda (fs . args)
(apply base-initrd fs
#:extra-modules '("i915")
args)))
(file-systems (cons* (file-system
(device "root")
(title 'lable)
(mount-point "/")
(type "ext4"))
(file-system
(device "none")
(mount-point "/tmp")
(type "tmpfs")
(check? #f))
(file-system
(device "none")
(mount-point "/run")
(type "tmpfs")
(check? #f)
(needed-for-boot? #t))
(file-system
(device "none")
(mount-point "/var/run")
(type "tmpfs")
(check? #f)
(needed-for-boot? #t))
%base-file-systems))
(host-name "akarin")
(locale "en_US.utf8")
(timezone "Asia/Shanghai")
(packages (cons* glibc file iproute nss-certs
emacs xfce
%base-packages))
(services (list (console-font-service "tty1" %console-font)
(mingetty-service "tty1")
(mingetty-service "tty2")
(mingetty-service "tty3")
(console-keymap-service "dvorak")
(dbus-service '())
(static-networking-service "lo" "127.0.0.1"
#:provision '(loopback))
(guix-service)
(udev-service)
(my-slim-service)))
(users (list (user-account
(name "iyzsong")
(group "users")
(supplementary-groups '("wheel" "audio" "video" "cdrom" "netdev"))
(home-directory "/home/iyzsong"))
(user-account
(name "raldant")
(group "users")
(shell #~(string-append #$zsh "/bin/zsh"))
(home-directory "/home/raldant")))))
(call-with-output-file ((@ (guile) getenv) "out") (lambda (port) (display (string-append "\ndefault_path /run/current-system/profile/bin\ndefault_xserver " #<procedure 2ded180 at gnu/services/xorg.scm:139:2 (state)> "\nxserver_arguments :0 vt7\nxauth_path " "/gnu/store/gcni92k90i7aqmfnbqmpv5x40c87k5hf-xauth-1.0.9" "/bin/xauth\nauthfile /var/run/slim.auth\n\n# The login command. '%session' is replaced by the chosen session name, one\n# of the names specified in the 'sessions' setting: 'wmaker', 'xfce', etc.\nlogin_cmd exec " "/gnu/store/af9h0jl0dib4wbgbqc6m5frp1sn1a9f5-xinitrc" " %session\nsessiondir /run/current-system/profile/share/xsessions\nsession_msg session (F1 to change):\n\nhalt_cmd " "/gnu/store/02dw0443pbcr233jzl4qibdyc06q4g08-dmd-0.2" "/sbin/halt\nreboot_cmd " "/gnu/store/02dw0443pbcr233jzl4qibdyc06q4g08-dmd-0.2" "/sbin/reboot\n" "" "current_theme 0.x\n") port)))
(call-with-output-file ((@ (guile) getenv) "out") (lambda (port) (display (string-append "\ndefault_path /run/current-system/profile/bin\ndefault_xserver " #<procedure 5f3ff90 at gnu/services/xorg.scm:139:2 (state)> "\nxserver_arguments :0 vt7\nxauth_path " "/gnu/store/gcni92k90i7aqmfnbqmpv5x40c87k5hf-xauth-1.0.9" "/bin/xauth\nauthfile /var/run/slim.auth\n\n# The login command. '%session' is replaced by the chosen session name, one\n# of the names specified in the 'sessions' setting: 'wmaker', 'xfce', etc.\nlogin_cmd exec " "/gnu/store/af9h0jl0dib4wbgbqc6m5frp1sn1a9f5-xinitrc" " %session\nsessiondir /run/current-system/profile/share/xsessions\nsession_msg session (F1 to change):\n\nhalt_cmd " "/gnu/store/02dw0443pbcr233jzl4qibdyc06q4g08-dmd-0.2" "/sbin/halt\nreboot_cmd " "/gnu/store/02dw0443pbcr233jzl4qibdyc06q4g08-dmd-0.2" "/sbin/reboot\n" "" "current_theme 0.x\n") port)))
(use-modules (guix gexp)
(guix monads)
(guix store)
(gnu))
(use-service-modules base networking xorg desktop)
(use-package-modules linux certs emacs file
freedesktop fonts ratpoison xfce
zsh)
(define %console-font
#~(string-append #$font-terminus "/share/consolefonts/ter-u16n.psf.gz"))
(define libinput.conf "
# Use the libinput driver for all event devices
Section \"InputClass\"
Identifier \"libinput\"
Driver \"libinput\"
MatchDevicePath \"/dev/input/event*\"
EndSection
")
(define (my-slim-service)
(mlet* %store-monad ((config (xorg-configuration-file
#:extra-config (list libinput.conf)))
(startx (xorg-start-command
#:configuration-file config)))
(slim-service #:startx startx)))
(operating-system
(bootloader (grub-configuration (device "/dev/sda")))
(initrd (lambda (fs . args)
(apply base-initrd fs
#:extra-modules '("i915")
args)))
(file-systems (cons* (file-system
(device "root")
(title 'label)
(mount-point "/")
(type "ext4"))
(file-system
(device "none")
(mount-point "/tmp")
(type "tmpfs")
(check? #f))
(file-system
(device "none")
(mount-point "/run")
(type "tmpfs")
(check? #f)
(needed-for-boot? #t))
(file-system
(device "none")
(mount-point "/var/run")
(type "tmpfs")
(check? #f)
(needed-for-boot? #t))
%base-file-systems))
(host-name "akarin")
(locale "en_US.utf8")
(timezone "Asia/Shanghai")
(packages (cons* glibc file iproute nss-certs
%base-packages))
(services (list (console-font-service "tty1" %console-font)
(mingetty-service "tty1")
(mingetty-service "tty2")
(mingetty-service "tty3")
(console-keymap-service "dvorak")
(dbus-service '())
(static-networking-service "lo" "127.0.0.1"
#:provision '(loopback))
(guix-service)
(udev-service)
(my-slim-service)))
(users (list (user-account
(name "iyzsong")
(group "users")
(supplementary-groups '("wheel" "audio" "video" "cdrom" "netdev"))
(home-directory "/home/iyzsong"))
(user-account
(name "raldant")
(group "users")
(shell #~(string-append #$zsh "/bin/zsh"))
(home-directory "/home/raldant")))))