| [254aa1d] | 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)
|
|---|
| 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 | (user-account
|
|---|
| 37 | (name "wkz")
|
|---|
| 38 | (comment "wkz")
|
|---|
| 39 | (group "users")
|
|---|
| 40 | (home-directory "/home/wkz")
|
|---|
| 41 | (supplementary-groups '("wheel" "netdev" "audio" "video" "docker")))
|
|---|
| 42 | %base-user-accounts))
|
|---|
| 43 |
|
|---|
| 44 | ;; (packages %base-packages)
|
|---|
| 45 | (packages
|
|---|
| 46 | (append
|
|---|
| 47 | (map
|
|---|
| 48 | specification->package
|
|---|
| 49 | '(
|
|---|
| 50 | "ratpoison"
|
|---|
| 51 | "xterm"
|
|---|
| 52 | ))
|
|---|
| 53 | %base-packages))
|
|---|
| 54 |
|
|---|
| 55 | ;; Below is the list of system services. To search for available
|
|---|
| 56 | ;; services, run 'guix system search KEYWORD' in a terminal.
|
|---|
| 57 | (services
|
|---|
| 58 | (append (list
|
|---|
| 59 | (service guix-home-service-type `(("w96k" ,wkz-home) ("wkz" ,wkz-home)))
|
|---|
| 60 | (service block-facebook-hosts-service-type)
|
|---|
| 61 |
|
|---|
| 62 | (service tor-service-type)
|
|---|
| 63 | (service openssh-service-type)
|
|---|
| 64 | (service containerd-service-type)
|
|---|
| 65 | (service docker-service-type)
|
|---|
| 66 | ;; (service hurd-vm-service-type
|
|---|
| 67 | ;; (hurd-vm-configuration
|
|---|
| 68 | ;; (disk-size (* 5000 (expt 2 20))) ;5G
|
|---|
| 69 | ;; (memory-size 1024)))
|
|---|
| 70 |
|
|---|
| 71 | (service nix-service-type (nix-configuration
|
|---|
| 72 | (extra-options '("--extra-experimental-features nix-command"))))
|
|---|
| 73 |
|
|---|
| 74 | (service xvnc-service-type (xvnc-configuration
|
|---|
| 75 | (display-number 10)
|
|---|
| 76 | (localhost? #f)
|
|---|
| 77 | (geometry "1280x800")))
|
|---|
| 78 |
|
|---|
| 79 | (service syncthing-service-type
|
|---|
| 80 | (syncthing-configuration
|
|---|
| 81 | (user "w96k")))
|
|---|
| 82 |
|
|---|
| 83 | (service postgresql-service-type
|
|---|
| 84 | (postgresql-configuration
|
|---|
| 85 | (postgresql postgresql-15)))
|
|---|
| 86 |
|
|---|
| 87 | (service connman-service-type)
|
|---|
| 88 |
|
|---|
| 89 | ;; (service screen-locker-service-type
|
|---|
| 90 | ;; (screen-locker-configuration
|
|---|
| 91 | ;; (name "xlock")
|
|---|
| 92 | ;; (program (file-append xlockmore "/bin/xlock"))))
|
|---|
| 93 |
|
|---|
| 94 | ;; (service slim-service-type
|
|---|
| 95 | ;; (slim-configuration
|
|---|
| 96 | ;; (default-user "w96k")
|
|---|
| 97 | ;; (xorg-configuration
|
|---|
| 98 | ;; (xorg-configuration
|
|---|
| 99 | ;; (keyboard-layout keyboard-layout)))))
|
|---|
| 100 | )
|
|---|
| 101 |
|
|---|
| 102 | (modify-services %desktop-services
|
|---|
| 103 | (delete screen-locker-service-type)
|
|---|
| 104 | (delete modem-manager-service-type)
|
|---|
| 105 | (delete udisks-service-type)
|
|---|
| 106 | (delete upower-service-type)
|
|---|
| 107 | (delete network-manager-service-type)
|
|---|
| 108 | (delete usb-modeswitch-service-type)
|
|---|
| 109 | (delete geoclue-service-type)
|
|---|
| 110 |
|
|---|
| 111 |
|
|---|
| 112 | (guix-service-type config => (guix-configuration
|
|---|
| 113 | (inherit config)
|
|---|
| 114 | (extra-options '("--max-jobs=10"))
|
|---|
| 115 | (substitute-urls
|
|---|
| 116 | (append (list "https://substitutes.nonguix.org")
|
|---|
| 117 | %default-substitute-urls))
|
|---|
| 118 | (authorized-keys
|
|---|
| 119 | (append (list (plain-file "non-guix.pub"
|
|---|
| 120 | "
|
|---|
| 121 | (public-key
|
|---|
| 122 | (ecc
|
|---|
| 123 | (curve Ed25519)
|
|---|
| 124 | (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)
|
|---|
| 125 | )
|
|---|
| 126 | )
|
|---|
| 127 | "))
|
|---|
| 128 | %default-authorized-guix-keys))))
|
|---|
| 129 |
|
|---|
| 130 | (delete gdm-service-type))))
|
|---|
| 131 |
|
|---|
| 132 | (bootloader (bootloader-configuration
|
|---|
| 133 | (bootloader grub-efi-bootloader)
|
|---|
| 134 | (targets (list "/boot/efi"))
|
|---|
| 135 | (keyboard-layout keyboard-layout)))
|
|---|
| 136 | (mapped-devices (list (mapped-device
|
|---|
| 137 | (source (uuid
|
|---|
| 138 | "6cfe9eed-8cdd-43da-9b9f-cec6f8ec538b"))
|
|---|
| 139 | (target "cryptroot")
|
|---|
| 140 | (type luks-device-mapping))))
|
|---|
| 141 |
|
|---|
| 142 | (file-systems (cons* (file-system
|
|---|
| 143 | (mount-point "/boot/efi")
|
|---|
| 144 | (device (uuid "17C5-3E35"
|
|---|
| 145 | 'fat32))
|
|---|
| 146 | (type "vfat"))
|
|---|
| 147 | (file-system
|
|---|
| 148 | (mount-point "/")
|
|---|
| 149 | (device "/dev/mapper/cryptroot")
|
|---|
| 150 | (type "ext4")
|
|---|
| 151 | (options "discard")
|
|---|
| 152 | (skip-check-if-clean? #f)
|
|---|
| 153 | (repair #t)
|
|---|
| 154 | (dependencies mapped-devices)) %base-file-systems)))
|
|---|
