guixconfig/config.org

330 lines
9.2 KiB
Org Mode
Raw Normal View History

2023-11-29 12:52:46 +00:00
#+TITLE: GUIX System Configuration
2023-12-01 13:22:33 +00:00
#+AUTHOR: Daniel Ziltener
2023-12-01 14:48:18 +00:00
#+PROPERTY: scheme-implementation guile
2023-12-12 09:57:23 +00:00
#+PROPERTY: header-args:scheme :comments both :session *guile*
2023-12-01 13:22:33 +00:00
#+begin_src emacs-lisp :results none
(org-babel-lob-ingest "./library.org")
#+end_src
2023-11-29 12:52:46 +00:00
2023-12-11 11:54:43 +00:00
* Makefile
#+begin_src makefile :tangle Makefile
2023-12-13 02:02:44 +00:00
reconfigure:
2023-12-17 14:51:31 +00:00
mkdir -p ~/.config/guix
cp channels.scm ~/.config/guix/channels.scm
guix archive --authorize < signing-key.pub
guix system reconfigure ./config.scm --substitute-urls='https://ci.guix.gnu.org https://bordeaux.guix.gnu.org https://substitutes.nonguix.org'
make -C /home/zilti/.guix-home/profile/lib/browserpass make hosts-firefox-user
flatpak --user remote-add --if-not-exists flathub https://dl.flathub.org/repo/flathub.flatpakrepo
2023-12-11 11:54:43 +00:00
#+end_src
2023-12-11 15:56:04 +00:00
* System Installation Script
This is to be run after setting up the partitions.
#+begin_src sh :tangle sysinst.sh
2023-12-17 16:43:07 +00:00
#!/bin/sh
set euxo -pipefail
mount /dev/disk/by-label/guix /mnt
mkdir -p /mnt/boot/efi
mount /dev/disk/by-label/EFI /mnt/boot/efi
herd start cow-store /mnt
guix pull -C./channels.scm
2023-12-18 18:31:02 +00:00
GUIX_PROFILE="/root/.config/guix/current"
2023-12-17 16:43:07 +00:00
. "$GUIX_PROFILE/etc/profile"
hash guix
2023-12-17 16:55:21 +00:00
guix system -L. init config.scm /mnt --substitute-urls="https://ci.guix.gnu.org https://bordeaux.guix.gnu.org https://substitutes.nonguix.org"
2023-12-11 15:56:04 +00:00
#+end_src
2023-11-29 12:52:46 +00:00
* Modules
#+NAME: module-list
- gnu
2023-12-01 13:32:56 +00:00
- gnu image
2023-12-14 23:48:17 +00:00
- gnu packages gnome
2023-12-18 00:27:14 +00:00
- gnu services admin
2023-12-01 13:32:56 +00:00
- gnu services authentication
2023-11-29 12:52:46 +00:00
- gnu services base
2023-12-18 00:27:14 +00:00
- gnu services configuration
2023-12-01 13:22:33 +00:00
- gnu services dbus
2023-11-29 12:52:46 +00:00
- gnu services desktop
2023-12-01 13:22:33 +00:00
- gnu services linux
2023-11-29 12:52:46 +00:00
- gnu services networking
- gnu services pm
2023-12-19 00:16:03 +00:00
- gnu services sound
2023-12-01 13:22:33 +00:00
- gnu services virtualization
- gnu services xorg
2023-11-29 12:52:46 +00:00
- gnu system nss
2023-12-11 11:54:43 +00:00
- nongnu packages linux
- nongnu system linux-initrd
2023-11-29 12:52:46 +00:00
2023-12-12 09:57:23 +00:00
#+begin_src scheme :noweb yes :exports none :results output :tangle config.scm
2023-12-01 13:32:56 +00:00
<<list-to-use(use-call="use-modules",entries=module-list,all-parens=1)>>
2023-12-01 13:22:33 +00:00
#+end_src
2023-12-13 02:02:44 +00:00
#+RESULTS:
2023-11-29 12:52:46 +00:00
** Service Modules
#+NAME: service-module-list
- desktop
2023-12-01 13:22:33 +00:00
- xorg
2023-12-12 09:57:23 +00:00
#+begin_src scheme :noweb yes :exports none :results output :tangle config.scm
2023-12-01 13:22:33 +00:00
<<list-to-use(use-call="use-service-modules",entries=service-module-list)>>
#+end_src
2023-11-29 12:52:46 +00:00
** Package Modules
#+NAME: package-module-list
- bootloaders
- certs
- emacs
2023-12-01 13:22:33 +00:00
- emacs-xyz
- fonts
2023-12-12 09:28:30 +00:00
- pciutils
2023-12-01 13:22:33 +00:00
- readline
- terminals
- version-control
2023-11-29 12:52:46 +00:00
- wm
- xorg
2023-12-12 09:57:23 +00:00
#+begin_src scheme :noweb yes :exports none :results output :tangle config.scm
2023-12-01 13:22:33 +00:00
<<list-to-use(use-call="use-package-modules",entries=package-module-list)>>
#+end_src
* Configuration Definitions
** File System
2023-12-14 21:49:12 +00:00
#+NAME: config-filesystems
#+begin_src scheme :noweb yes
(file-systems (append (list
2023-12-17 16:43:07 +00:00
(file-system
(device (file-system-label "EFI"))
(mount-point "/boot/efi")
(type "vfat"))
(file-system
(device (file-system-label "guix"))
(mount-point "/")
(type "xfs")))
%base-file-systems))
2023-12-14 21:49:12 +00:00
#+end_src
#+NAME: config-swap
#+begin_src scheme :noweb yes
(swap-devices
(list (swap-space (target (file-system-label "swap")))))
#+end_src
2023-12-11 11:54:43 +00:00
** Channels
This adds the Nonguix channel.
2023-12-18 00:05:20 +00:00
#+NAME: root-channels
2023-12-11 11:54:43 +00:00
#+begin_src scheme :tangle channels.scm
(cons* (channel
2023-12-17 14:43:53 +00:00
(name 'nonguix)
(url "https://gitlab.com/nonguix/nonguix")
;; Enable signature verification:
(introduction
(make-channel-introduction
"897c1a470da759236cc11798f4e0a5f7d4d59fbc"
(openpgp-fingerprint
"2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))))
(channel
(name 'ziltis-channel)
(url "https://gitea.lyrion.ch/zilti/guixchannel"))
%default-channels)
2023-12-11 11:54:43 +00:00
#+end_src
2023-12-01 13:22:33 +00:00
** Packages
#+NAME: root-packages
- emacs
- emacs-desktop-environment
- font-terminus
- git
2023-12-11 10:59:44 +00:00
- hwdata
2023-12-01 13:22:33 +00:00
- nss-certs
2023-12-14 23:48:17 +00:00
- network-manager
2023-12-01 13:22:33 +00:00
- readline
#+NAME: root-package-block
#+begin_src scheme :noweb no-export
(packages
(append
<<org-to-scheme-sym-list(input=root-packages)>>
%base-packages))
#+end_src
2023-12-12 09:57:23 +00:00
#+RESULTS: root-package-block
2023-12-01 13:22:33 +00:00
** Services
#+NAME: root-services-block
#+begin_src scheme :noweb yes :exports none :results code
(services
(append
2023-12-11 10:59:44 +00:00
<<root-modified-desktop-services>>
2023-12-01 13:38:40 +00:00
<<root-simple-service-block>>
2023-12-18 00:27:14 +00:00
(list polkit-wheel-service)
2023-12-01 13:38:40 +00:00
(list
<<greeter-service>>)
(list
<<screen-lock-service>>)
2023-12-18 00:05:20 +00:00
(list
2023-12-18 00:27:14 +00:00
<<unattended-upgrade>>)
2023-12-18 00:05:20 +00:00
))
2023-12-01 13:22:33 +00:00
#+end_src
*** Simple Services
These services are unmodified, or have just few settings.
#+NAME: root-simple-services
2023-12-18 00:27:14 +00:00
| Service | Options |
|-------------+------------------------------------------------------|
| tlp | () |
| thermald | ((adaptive? #t)) |
| bluetooth | () |
| earlyoom | ((minimum-available-memory 5) (minimum-free-swap 5)) |
| inputattach | () |
| libvirt | ((unix-sock-group "libvirt")) |
| fstrim | () |
| fprintd | () |
2023-12-18 21:11:28 +00:00
| seatd | () |
2023-12-01 13:22:33 +00:00
#+NAME: root-simple-service-block
2023-12-12 09:57:23 +00:00
#+begin_src scheme :noweb yes :exports none :results output
2023-12-01 13:22:33 +00:00
<<service-converter(input=root-simple-services)>>
#+end_src
2023-12-18 00:05:20 +00:00
*** Unattended Upgrade Service
#+NAME: unattended-upgrade
#+begin_src scheme :noweb no-export
(service unattended-upgrade-service-type
(unattended-upgrade-configuration
(schedule "5 12 * * 1")
2023-12-18 00:27:14 +00:00
#;(channels
2023-12-18 00:05:20 +00:00
<<root-channels>>)))
#+end_src
2023-12-11 10:59:44 +00:00
*** Modified Desktop Services
2023-12-11 11:54:43 +00:00
#+NAME: nonguix-pubkey
#+begin_src scheme :tangle keys/non-guix.pub :mkdirp yes
2023-12-19 00:16:03 +00:00
(public-key
(ecc
(curve Ed25519)
(q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)
)
)
2023-12-18 20:41:02 +00:00
#+end_src
2023-12-11 10:59:44 +00:00
#+NAME: root-modified-desktop-services
2023-12-14 23:48:17 +00:00
#+begin_src scheme :exports none :results code :noweb no-export
2023-12-18 20:41:02 +00:00
(modify-services
%desktop-services
2023-12-18 21:11:28 +00:00
(delete gdm-service-type)
(delete screen-locker-service-type)
2023-12-18 20:41:02 +00:00
(delete login-service-type)
(delete mingetty-service-type)
(delete console-font-service-type)
2023-12-18 21:11:28 +00:00
(delete elogind-service-type)
(delete pulseaudio-service-type)
2023-12-18 20:41:02 +00:00
(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"
2023-12-19 00:16:03 +00:00
"<<nonguix-pubkey>>"))
%default-authorized-guix-keys)))))
2023-12-11 10:59:44 +00:00
#+end_src
2023-12-01 13:22:33 +00:00
*** Greeter Service
=greetd= is a broken mess, yet here we are.
#+NAME: greeter-service
#+begin_src scheme
(service greetd-service-type
(greetd-configuration
(greeter-supplementary-groups
(list "video" "input"))
(terminals
(list
(greetd-terminal-configuration
2023-12-01 15:19:17 +00:00
(terminal-vt "1"))
(greetd-terminal-configuration
(terminal-vt "2"))
(greetd-terminal-configuration
(terminal-vt "3"))
(greetd-terminal-configuration
(terminal-vt "4"))
#;(greetd-terminal-configuration
2023-12-01 15:47:03 +00:00
(terminal-vt "7")
(terminal-switch #t)
(default-session-command
(greetd-wlgreet-session
(command
2023-12-01 15:19:17 +00:00
(file-append swayfx "/bin/sway")))))
2023-12-01 13:22:33 +00:00
(greetd-terminal-configuration
(terminal-vt "8"))))))
#+end_src
*** Screen Locker Service
For some reason, this service runs on root level for Guix.
#+NAME: screen-lock-service
#+begin_src scheme
(service screen-locker-service-type
(screen-locker-configuration
(name "swaylock")
(program
(file-append swaylock-effects "/bin/swaylock"))
(using-setuid? #f)))
#+end_src
* Operating System
This is the full operating system specification.
#+begin_src scheme :noweb no-export :results code :tangle config.scm
(operating-system
(host-name "ziltis-machine")
(timezone "Europe/Berlin")
(locale "de_DE.utf8")
(keyboard-layout
(keyboard-layout "de" #:options '("caps:swapescape")))
2023-12-11 11:54:43 +00:00
(kernel linux)
(initrd microcode-initrd)
(firmware (list linux-firmware))
2023-12-01 13:22:33 +00:00
(bootloader
(bootloader-configuration
2023-12-01 13:34:54 +00:00
(bootloader grub-efi-bootloader)
2023-12-01 13:22:33 +00:00
(targets
'("/boot/efi"))
(keyboard-layout keyboard-layout)))
2023-12-14 21:49:12 +00:00
#;(file-systems %local-filesystem)
#;(swap-devices %local-swap)
<<config-filesystems>>
<<config-swap>>
2023-12-01 13:22:33 +00:00
(users
(cons*
(user-account
(name "zilti")
(group "users")
(supplementary-groups
2023-12-18 21:11:28 +00:00
'("users" "wheel" "netdev" "audio" "video" "libvirt" "seat")))
2023-12-01 13:22:33 +00:00
%base-user-accounts))
<<root-package-block>>
<<root-services-block>>
(name-service-switch %mdns-host-lookup-nss))
#+end_src