diff options
Diffstat (limited to 'guix/jd/desktops')
| -rw-r--r-- | guix/jd/desktops/base.scm | 55 | ||||
| -rwxr-xr-x | guix/jd/desktops/berserker.scm | 36 |
2 files changed, 54 insertions, 37 deletions
diff --git a/guix/jd/desktops/base.scm b/guix/jd/desktops/base.scm index c613c26..079d57e 100644 --- a/guix/jd/desktops/base.scm +++ b/guix/jd/desktops/base.scm | |||
| @@ -18,7 +18,7 @@ | |||
| 18 | #:use-module (nongnu system linux-initrd)) | 18 | #:use-module (nongnu system linux-initrd)) |
| 19 | 19 | ||
| 20 | (use-package-modules wm gnome networking virtualization | 20 | (use-package-modules wm gnome networking virtualization |
| 21 | lisp lisp-xyz cups fonts gnupg) | 21 | lisp lisp-xyz cups fonts gnupg android) |
| 22 | 22 | ||
| 23 | (use-service-modules cups desktop networking ssh xorg | 23 | (use-service-modules cups desktop networking ssh xorg |
| 24 | docker virtualization pm sound dbus | 24 | docker virtualization pm sound dbus |
| @@ -68,6 +68,7 @@ | |||
| 68 | "audio" ;; control audio devices | 68 | "audio" ;; control audio devices |
| 69 | "video" ;; access to webcam | 69 | "video" ;; access to webcam |
| 70 | "dialout" ;; access to /dev/ttyUSBX devices | 70 | "dialout" ;; access to /dev/ttyUSBX devices |
| 71 | "adbusers" | ||
| 71 | )))) | 72 | )))) |
| 72 | 73 | ||
| 73 | (define-public %jd-base-user-accounts | 74 | (define-public %jd-base-user-accounts |
| @@ -147,7 +148,7 @@ | |||
| 147 | (map (lambda (tty) | 148 | (map (lambda (tty) |
| 148 | (cons tty (file-append | 149 | (cons tty (file-append |
| 149 | font-terminus | 150 | font-terminus |
| 150 | "/share/consolefonts/ter-112n"))) | 151 | "/share/consolefonts/ter-122n.psf.gz"))) |
| 151 | '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) | 152 | '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) |
| 152 | 153 | ||
| 153 | (service screen-locker-service-type | 154 | (service screen-locker-service-type |
| @@ -167,6 +168,7 @@ | |||
| 167 | (bluetooth-configuration | 168 | (bluetooth-configuration |
| 168 | (auto-enable? #t))) | 169 | (auto-enable? #t))) |
| 169 | 170 | ||
| 171 | (service containerd-service-type) | ||
| 170 | (service docker-service-type) | 172 | (service docker-service-type) |
| 171 | (service libvirt-service-type | 173 | (service libvirt-service-type |
| 172 | (libvirt-configuration | 174 | (libvirt-configuration |
| @@ -188,29 +190,38 @@ | |||
| 188 | (service nix-service-type) | 190 | (service nix-service-type) |
| 189 | 191 | ||
| 190 | polkit-network-manager-service | 192 | polkit-network-manager-service |
| 193 | |||
| 194 | (udev-rules-service 'android android-udev-rules | ||
| 195 | #:groups '("adbusers")) | ||
| 196 | |||
| 197 | (udev-rules-service 'microbit (udev-rule | ||
| 198 | "69-microbit.rules" | ||
| 199 | (string-append "ACTION!=\"add|change\", GOTO=\"microbit_rules_end\"" | ||
| 200 | "SUBSYSTEM==\"usb\", ATTR{idVendor}==\"0d28\", ATTR{idProduct}==\"0204\", TAG+=\"uaccess\"" | ||
| 201 | "LABEL=\"microbit_rules_end\""))) | ||
| 191 | 202 | ||
| 192 | ;; %desktop-services | 203 | ;; %desktop-services |
| 193 | (modify-services %desktop-services | 204 | (modify-services %desktop-services |
| 194 | (guix-service-type config => (guix-configuration | 205 | (guix-service-type config => (guix-configuration |
| 195 | (inherit config) | 206 | (inherit config) |
| 196 | (substitute-urls | 207 | (substitute-urls |
| 197 | (append (list "https://substitutes.nonguix.org") | 208 | (append (list "https://substitutes.nonguix.org") |
| 198 | %default-substitute-urls)) | 209 | %default-substitute-urls)) |
| 199 | (authorized-keys | 210 | (authorized-keys |
| 200 | (append (list (plain-file "non-guix.pub" | 211 | (append (list (plain-file "non-guix.pub" |
| 201 | "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))")) | 212 | "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))")) |
| 202 | %default-authorized-guix-keys)))) | 213 | %default-authorized-guix-keys)))) |
| 203 | (delete network-manager-service-type) | 214 | (delete network-manager-service-type) |
| 204 | ;; (delete mingetty-service-type) | 215 | ;; (delete mingetty-service-type) |
| 205 | (delete console-font-service-type) | 216 | (delete console-font-service-type) |
| 206 | 217 | ||
| 207 | (delete pulseaudio-service-type) | 218 | (delete pulseaudio-service-type) |
| 208 | (delete alsa-service-type) | 219 | (delete alsa-service-type) |
| 209 | (delete (if (string-prefix? "x86_64" | 220 | (delete (if (string-prefix? "x86_64" |
| 210 | (or (%current-target-system) | 221 | (or (%current-target-system) |
| 211 | (%current-system))) | 222 | (%current-system))) |
| 212 | gdm-service-type | 223 | gdm-service-type |
| 213 | sddm-service-type))))) | 224 | sddm-service-type))))) |
| 214 | 225 | ||
| 215 | ;; Odin is a base for my operating systems | 226 | ;; Odin is a base for my operating systems |
| 216 | (define-public odin-free | 227 | (define-public odin-free |
diff --git a/guix/jd/desktops/berserker.scm b/guix/jd/desktops/berserker.scm index ed673db..37e7adc 100755 --- a/guix/jd/desktops/berserker.scm +++ b/guix/jd/desktops/berserker.scm | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | (define-module (jd desktops berserker) | 1 | (define-module (jd desktops berserker) |
| 2 | #:use-module (jd desktops base) | 2 | #:use-module (jd desktops base) |
| 3 | #:use-module (jd packages linux) | ||
| 3 | #:use-module (gnu) | 4 | #:use-module (gnu) |
| 4 | #:use-module (gnu home)) | 5 | #:use-module (gnu home)) |
| 5 | 6 | ||
| @@ -10,30 +11,35 @@ | |||
| 10 | (define system | 11 | (define system |
| 11 | (operating-system | 12 | (operating-system |
| 12 | (inherit odin-non-free) | 13 | (inherit odin-non-free) |
| 14 | (kernel-loadable-modules (list xmm7360-pci)) | ||
| 13 | (host-name "berserker") | 15 | (host-name "berserker") |
| 14 | 16 | ||
| 15 | (bootloader (bootloader-configuration | 17 | |
| 18 | (bootloader (bootloader-configuration | ||
| 16 | (bootloader grub-efi-bootloader) | 19 | (bootloader grub-efi-bootloader) |
| 17 | (targets (list "/boot/efi")))) | 20 | (targets (list "/boot/efi")))) |
| 21 | (mapped-devices (list (mapped-device | ||
| 22 | (source (uuid | ||
| 23 | "1f2b1bf2-89fe-4e2c-8b40-c460572bb776")) | ||
| 24 | (target "crypthome") | ||
| 25 | (type luks-device-mapping)))) | ||
| 18 | 26 | ||
| 19 | (swap-devices (list (swap-space | 27 | (file-systems (cons* (file-system |
| 20 | (target (uuid | ||
| 21 | "70ee2477-66ff-4856-aebf-8a77053c4462"))))) | ||
| 22 | |||
| 23 | (file-systems (cons* (file-system | ||
| 24 | (mount-point "/boot/efi") | ||
| 25 | (device (uuid "BE9B-69F0" | ||
| 26 | 'fat32)) | ||
| 27 | (type "vfat")) | ||
| 28 | |||
| 29 | (file-system | ||
| 30 | (mount-point "/") | 28 | (mount-point "/") |
| 31 | (device (uuid | 29 | (device (uuid |
| 32 | "d8783299-c180-4ca3-9c56-9826797f928d" | 30 | "66396ba1-bda9-46bd-ab26-5edc46b437d6" |
| 33 | 'ext4)) | 31 | 'ext4)) |
| 34 | (type "ext4")) | 32 | (type "ext4")) |
| 35 | 33 | (file-system | |
| 36 | %base-file-systems)))) | 34 | (mount-point "/boot/efi") |
| 35 | (device (uuid "482A-B117" | ||
| 36 | 'fat32)) | ||
| 37 | (type "vfat")) | ||
| 38 | (file-system | ||
| 39 | (mount-point "/home") | ||
| 40 | (device "/dev/mapper/crypthome") | ||
| 41 | (type "ext4") | ||
| 42 | (dependencies mapped-devices)) %base-file-systems)))) | ||
| 37 | 43 | ||
| 38 | 44 | ||
| 39 | (if (getenv "JD_HOME") home system) | 45 | (if (getenv "JD_HOME") home system) |
