Paste number 153947: config.scm

Index of paste annotations: 1 | 2 | 3

Paste number 153947: config.scm
Pasted by: iyzsong
When:6 years, 8 months ago
Share:Tweet this! | http://paste.lisp.org/+3ASB
Channel:None
Paste contents:
Raw Source | XML | Display As
(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")))))

Annotations for this paste:

Annotation number 1: slim.cfg-builder
Pasted by: iyzsong
When:6 years, 8 months ago
Share:Tweet this! | http://paste.lisp.org/+3ASB/1
Paste contents:
Raw Source | Display As
(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)))

Annotation number 2: slim.cfg-builder
Pasted by: iyzsong
When:6 years, 8 months ago
Share:Tweet this! | http://paste.lisp.org/+3ASB/2
Paste contents:
Raw Source | Display As
(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)))

Annotation number 3: new-config.scm
Pasted by: iyzsong
When:6 years, 8 months ago
Share:Tweet this! | http://paste.lisp.org/+3ASB/3
Paste contents:
Raw Source | Display As
(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")))))

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.