| 1 | (use-modules (gnu)
|
|---|
| 2 | (guix transformations)
|
|---|
| 3 | (gnu home)
|
|---|
| 4 | (guix gexp)
|
|---|
| 5 | (nongnu packages linux)
|
|---|
| 6 | (nongnu system linux-initrd)
|
|---|
| 7 | (gnu home services shells))
|
|---|
| 8 |
|
|---|
| 9 | (use-service-modules guix cups desktop networking ssh xorg docker nix admin vnc lightdm syncthing virtualization databases linux)
|
|---|
| 10 | (use-package-modules gnome xdisorg vnc databases)
|
|---|
| 11 |
|
|---|
| 12 | (load "/home/w96k/projects/dotfiles/guix/.dotfiles/home-configuration.scm")
|
|---|
| 13 |
|
|---|
| 14 | (define wkz-transform
|
|---|
| 15 | ;; The package transformation procedure.
|
|---|
| 16 | (options->transformation
|
|---|
| 17 | '((tune . "skylake"))))
|
|---|
| 18 |
|
|---|
| 19 | (operating-system
|
|---|
| 20 | (locale "en_US.utf8")
|
|---|
| 21 | (timezone "Asia/Tbilisi")
|
|---|
| 22 | (kernel linux)
|
|---|
| 23 | (initrd microcode-initrd)
|
|---|
| 24 | (firmware (list linux-firmware))
|
|---|
| 25 | (keyboard-layout (keyboard-layout "us,ru"
|
|---|
| 26 | #:options '("grp:shifts_toggle" "ctrl:nocaps")))
|
|---|
| 27 | (host-name "wkz-guix")
|
|---|
| 28 |
|
|---|
| 29 | ;; The list of user accounts ('root' is implicit).
|
|---|
| 30 | (users (cons* (user-account
|
|---|
| 31 | (name "w96k")
|
|---|
| 32 | (comment "W96K")
|
|---|
| 33 | (group "users")
|
|---|
| 34 | (home-directory "/home/w96k")
|
|---|
| 35 | (supplementary-groups '("wheel" "netdev" "audio" "video" "docker")))
|
|---|
| 36 | %base-user-accounts))
|
|---|
| 37 |
|
|---|
| 38 | ;; (packages %base-packages)
|
|---|
| 39 | (packages
|
|---|
| 40 | (append
|
|---|
| 41 | (map
|
|---|
| 42 | specification->package
|
|---|
| 43 | '(
|
|---|
| 44 |
|
|---|
| 45 | ))
|
|---|
| 46 | %base-packages))
|
|---|
| 47 |
|
|---|
| 48 | ;; Below is the list of system services. To search for available
|
|---|
| 49 | ;; services, run 'guix system search KEYWORD' in a terminal.
|
|---|
| 50 | (services
|
|---|
| 51 | (append (list
|
|---|
| 52 | (service guix-home-service-type `(("w96k" ,wkz-home) ("wkz" ,wkz-home)))
|
|---|
| 53 | (service block-facebook-hosts-service-type)
|
|---|
| 54 |
|
|---|
| 55 | (service zram-device-service-type
|
|---|
| 56 | (zram-device-configuration
|
|---|
| 57 | (compression-algorithm 'zlib)
|
|---|
| 58 | (priority 100)))
|
|---|
| 59 |
|
|---|
| 60 | (service tor-service-type)
|
|---|
| 61 | (service openssh-service-type)
|
|---|
| 62 | (service containerd-service-type)
|
|---|
| 63 | (service docker-service-type)
|
|---|
| 64 | ;; (service hurd-vm-service-type
|
|---|
| 65 | ;; (hurd-vm-configuration
|
|---|
| 66 | ;; (disk-size (* 5000 (expt 2 20))) ;5G
|
|---|
| 67 | ;; (memory-size 1024)))
|
|---|
| 68 |
|
|---|
| 69 | ;; (service nix-service-type)
|
|---|
| 70 |
|
|---|
| 71 | ;; (service xvnc-service-type (xvnc-configuration
|
|---|
| 72 | ;; (display-number 10)
|
|---|
| 73 | ;; (localhost? #f)
|
|---|
| 74 | ;; (geometry "1280x800")))
|
|---|
| 75 |
|
|---|
| 76 | (service syncthing-service-type
|
|---|
| 77 | (syncthing-configuration
|
|---|
| 78 | (user "w96k")))
|
|---|
| 79 |
|
|---|
| 80 | (service postgresql-service-type
|
|---|
| 81 | (postgresql-configuration
|
|---|
| 82 | (postgresql postgresql-15)))
|
|---|
| 83 |
|
|---|
| 84 | (service connman-service-type)
|
|---|
| 85 |
|
|---|
| 86 | ;; (service screen-locker-service-type
|
|---|
| 87 | ;; (screen-locker-configuration
|
|---|
| 88 | ;; (name "xlock")
|
|---|
| 89 | ;; (program (file-append xlockmore "/bin/xlock"))))
|
|---|
| 90 |
|
|---|
| 91 | ;; (service slim-service-type
|
|---|
| 92 | ;; (slim-configuration
|
|---|
| 93 | ;; (default-user "w96k")
|
|---|
| 94 | ;; (xorg-configuration
|
|---|
| 95 | ;; (xorg-configuration
|
|---|
| 96 | ;; (keyboard-layout keyboard-layout)))))
|
|---|
| 97 | )
|
|---|
| 98 |
|
|---|
| 99 | (modify-services %desktop-services
|
|---|
| 100 | (delete screen-locker-service-type)
|
|---|
| 101 | (delete modem-manager-service-type)
|
|---|
| 102 | (delete udisks-service-type)
|
|---|
| 103 | (delete upower-service-type)
|
|---|
| 104 | (delete network-manager-service-type)
|
|---|
| 105 | (delete usb-modeswitch-service-type)
|
|---|
| 106 | (delete geoclue-service-type)
|
|---|
| 107 | ;;(delete elogind-service-type)
|
|---|
| 108 | (delete colord-service-type)
|
|---|
| 109 |
|
|---|
| 110 |
|
|---|
| 111 | (guix-service-type config => (guix-configuration
|
|---|
| 112 | (inherit config)
|
|---|
| 113 | ;; Rely on btrfs compression.
|
|---|
| 114 | (log-compression 'none)
|
|---|
| 115 | (extra-options '("--max-jobs=10"))
|
|---|
| 116 | (substitute-urls
|
|---|
| 117 | (append (list "https://substitutes.nonguix.org")
|
|---|
| 118 | %default-substitute-urls))
|
|---|
| 119 | (authorized-keys
|
|---|
| 120 | (append (list (plain-file "non-guix.pub"
|
|---|
| 121 | "
|
|---|
| 122 | (public-key
|
|---|
| 123 | (ecc
|
|---|
| 124 | (curve Ed25519)
|
|---|
| 125 | (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)
|
|---|
| 126 | )
|
|---|
| 127 | )
|
|---|
| 128 | "))
|
|---|
| 129 | %default-authorized-guix-keys))))
|
|---|
| 130 |
|
|---|
| 131 | (delete gdm-service-type))))
|
|---|
| 132 |
|
|---|
| 133 | (mapped-devices (list (mapped-device
|
|---|
| 134 | (source (uuid
|
|---|
| 135 | "03db8d78-051b-4a11-a7e5-b62ae0f530d4"))
|
|---|
| 136 | (target "cryptroot")
|
|---|
| 137 | (type luks-device-mapping))))
|
|---|
| 138 |
|
|---|
| 139 | ;; The list of file systems that get "mounted". The unique
|
|---|
| 140 | ;; file system identifiers there ("UUIDs") can be obtained
|
|---|
| 141 | ;; by running 'blkid' in a terminal.
|
|---|
| 142 | (file-systems (cons* (file-system
|
|---|
| 143 | (mount-point "/")
|
|---|
| 144 | (device "/dev/mapper/cryptroot")
|
|---|
| 145 | (type "btrfs")
|
|---|
| 146 | (options "compress=zlib:6,autodefrag")
|
|---|
| 147 | (dependencies mapped-devices))
|
|---|
| 148 | (file-system
|
|---|
| 149 | (mount-point "/boot/efi")
|
|---|
| 150 | (device (uuid "6ECD-551F"
|
|---|
| 151 | 'fat32))
|
|---|
| 152 | (type "vfat")) %base-file-systems))
|
|---|
| 153 |
|
|---|
| 154 | (bootloader (bootloader-configuration
|
|---|
| 155 | (bootloader grub-efi-bootloader)
|
|---|
| 156 | (targets (list "/boot/efi"))
|
|---|
| 157 | (keyboard-layout keyboard-layout))))
|
|---|
