summaryrefslogtreecommitdiffstats
path: root/guix/jd/desktops
diff options
context:
space:
mode:
Diffstat (limited to 'guix/jd/desktops')
-rw-r--r--guix/jd/desktops/base.scm55
-rwxr-xr-xguix/jd/desktops/berserker.scm36
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)