194 lines
5.3 KiB
Scheme
194 lines
5.3 KiB
Scheme
;; Modules
|
|
|
|
;; #+NAME: module-list
|
|
;; - gnu
|
|
;; - gnu image
|
|
;; - gnu services authentication
|
|
;; - gnu services base
|
|
;; - gnu services dbus
|
|
;; - gnu services desktop
|
|
;; - gnu services linux
|
|
;; - gnu services networking
|
|
;; - gnu services pm
|
|
;; - gnu services virtualization
|
|
;; - gnu services xorg
|
|
;; - gnu system nss
|
|
;; - nongnu packages linux
|
|
;; - nongnu system linux-initrd
|
|
|
|
|
|
;; [[file:config.org::*Modules][Modules:1]]
|
|
ice-9/boot-9.scm:1685:16: In procedure raise-exception:
|
|
Wrong type to apply: "gnu"
|
|
|
|
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
|
|
scheme@(guile-user) [1]>
|
|
;; Modules:1 ends here
|
|
|
|
;; Service Modules
|
|
|
|
;; #+NAME: service-module-list
|
|
;; - desktop
|
|
;; - xorg
|
|
|
|
|
|
;; [[file:config.org::*Service Modules][Service Modules:1]]
|
|
ice-9/boot-9.scm:1685:16: In procedure raise-exception:
|
|
Wrong type to apply: "desktop"
|
|
|
|
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
|
|
scheme@(guile-user) [1]>
|
|
;; Service Modules:1 ends here
|
|
|
|
;; Package Modules
|
|
|
|
;; #+NAME: package-module-list
|
|
;; - bootloaders
|
|
;; - certs
|
|
;; - emacs
|
|
;; - emacs-xyz
|
|
;; - fonts
|
|
;; - pciutils
|
|
;; - readline
|
|
;; - terminals
|
|
;; - version-control
|
|
;; - wm
|
|
;; - xorg
|
|
|
|
|
|
;; [[file:config.org::*Package Modules][Package Modules:1]]
|
|
ice-9/boot-9.scm:1685:16: In procedure raise-exception:
|
|
Wrong type to apply: "bootloaders"
|
|
|
|
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
|
|
scheme@(guile-user) [1]>
|
|
;; Package Modules:1 ends here
|
|
|
|
;; File System
|
|
|
|
;; The variable ~%local-filesystem~ extracts the file system definitions from the installer-provided
|
|
;; =config.scm= file.
|
|
|
|
|
|
;; [[file:config.org::*File System][File System:1]]
|
|
(define %local-filesystem
|
|
(call-with-input-file "/etc/config.scm"
|
|
(lambda (port)
|
|
(read port)
|
|
(read port)
|
|
(eval (cadar (last-pair (read port)))
|
|
(interaction-environment)))))
|
|
;; File System:1 ends here
|
|
|
|
|
|
|
|
;; #+RESULTS:
|
|
|
|
;; As a sibling to the former, the variable ~%local-swap~ does the same with the swap partition.
|
|
|
|
|
|
;; [[file:config.org::*File System][File System:2]]
|
|
(define %local-swap
|
|
(call-with-input-file "/etc/config.scm"
|
|
(lambda (port)
|
|
(read port)
|
|
(read port)
|
|
(let* ((os-list (read port))
|
|
(os-list-length (length os-list)))
|
|
(eval
|
|
(cadr
|
|
(list-ref os-list
|
|
(- os-list-length 2)))
|
|
(interaction-environment))))))
|
|
;; File System:2 ends here
|
|
|
|
;; Operating System
|
|
|
|
;; This is the full operating system specification.
|
|
|
|
|
|
;; [[file:config.org::*Operating System][Operating System:1]]
|
|
(operating-system
|
|
(host-name "ziltis-machine")
|
|
(timezone "Europe/Berlin")
|
|
(locale "de_DE.utf8")
|
|
(keyboard-layout
|
|
(keyboard-layout "de" #:options '("caps:swapescape")))
|
|
(kernel linux)
|
|
(initrd microcode-initrd)
|
|
(firmware (list linux-firmware))
|
|
(bootloader
|
|
(bootloader-configuration
|
|
(bootloader grub-efi-bootloader)
|
|
(targets
|
|
'("/boot/efi"))
|
|
(keyboard-layout keyboard-layout)))
|
|
(file-systems %local-filesystem)
|
|
(swap-devices %local-swap)
|
|
(users
|
|
(cons*
|
|
(user-account
|
|
(name "zilti")
|
|
(group "users")
|
|
(supplementary-groups
|
|
'("wheel" "netdev" "audio" "video" "libvirt")))
|
|
%base-user-accounts))
|
|
(packages
|
|
(append
|
|
ice-9/boot-9.scm:1685:16: In procedure raise-exception:
|
|
Wrong type to apply: "emacs"
|
|
|
|
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
|
|
scheme@(guile-user) [1]>
|
|
%base-packages))
|
|
(services
|
|
(append
|
|
(modify-services
|
|
%desktop-services
|
|
(delete login-service-type)
|
|
(delete mingetty-service-type)
|
|
(delete console-font-service-type)
|
|
(guix-service-type config => (guix-configuration
|
|
(inherit config)
|
|
(substitute-urls
|
|
(append (list "https://substitutes.nonguix.org")
|
|
%default-substitute-urls))
|
|
(authorized-keys
|
|
(append (list (plain-file "non-guix.pub"
|
|
"<<nonguix-pubkey>>")))))))
|
|
nil
|
|
(list
|
|
(service greetd-service-type
|
|
(greetd-configuration
|
|
(greeter-supplementary-groups
|
|
(list "video" "input"))
|
|
(terminals
|
|
(list
|
|
(greetd-terminal-configuration
|
|
(terminal-vt "1"))
|
|
(greetd-terminal-configuration
|
|
(terminal-vt "2"))
|
|
(greetd-terminal-configuration
|
|
(terminal-vt "3"))
|
|
(greetd-terminal-configuration
|
|
(terminal-vt "4"))
|
|
#;(greetd-terminal-configuration
|
|
(terminal-vt "7")
|
|
(terminal-switch #t)
|
|
(default-session-command
|
|
(greetd-wlgreet-session
|
|
(command
|
|
(file-append swayfx "/bin/sway")))))
|
|
(greetd-terminal-configuration
|
|
(terminal-vt "8")))))))
|
|
(list
|
|
(service screen-locker-service-type
|
|
(screen-locker-configuration
|
|
(name "swaylock")
|
|
(program
|
|
(file-append swaylock-effects "/bin/swaylock"))
|
|
(using-setuid? #f))))
|
|
))
|
|
(name-service-switch %mdns-host-lookup-nss))
|
|
;; Operating System:1 ends here
|