1 files changed, 71 insertions, 0 deletions

diff --git a/src/jd/host.scm b/src/jd/host.scm
new file mode 100644
index 0000000..4e573e4
--- /dev/null
+++ b/src/jd/host.scm
@@ -0,0 +1,71 @@
+(define-module (jd host)
+  #:use-module (rde features base)
+  #:use-module (rde features system)
+  #:use-module (rde features wm)
+  #:use-module (gnu system file-systems)
+  #:use-module (gnu system mapped-devices)
+  #:use-module (ice-9 match))
+
+(define mapped-devices
+  (list (mapped-device
+         (source (uuid "3fcc2e44-77bb-4a62-bbdc-f8c646fccbd2"))
+         (target "enc")
+         (type luks-device-mapping))))
+
+(define btrfs-subvolumes
+  (map (match-lambda
+         ((subvol . mount-point)
+          (file-system
+           (type "btrfs")
+           (device "/dev/mapper/enc")
+           (mount-point mount-point)
+           (options (format #f "subvol=~a" subvol))
+           (dependencies mapped-devices))))
+       '((@ . "/")
+         (@boot . "/boot")
+         (@gnu  . "/gnu")
+         (@nix  . "/nix")
+         (@home . "/home")
+         (@data . "/data")
+         (@var-log . "/var/log"))))
+
+(define data-fs
+  (car
+   (filter
+    (lambda (x) (equal? (file-system-mount-point x) "/data"))
+    btrfs-subvolumes)))
+
+(define file-systems
+  (append
+   btrfs-subvolumes
+   (list
+    (file-system
+     (device "/data/system/var/lib")
+     (type "none")
+     (mount-point "/var/lib")
+     (flags '(bind-mount))
+     (dependencies (list data-fs)))
+    (file-system
+     (mount-point "/boot/efi")
+     (type "vfat")
+     (device (uuid "82F1-2D6E" 'fat32))))))
+
+(define-public %host-features
+  (list
+   (feature-host-info
+    #:host-name "berserker"
+    #:timezone  "Europe/Warsaw"
+    #:issue "Greetings, wandering soul, craving the tapping keystrokes?")
+   (feature-file-systems
+    #:mapped-devices mapped-devices
+    #:file-systems   file-systems)
+   (feature-kanshi
+    #:extra-config
+    `((profile laptop ((output eDP-1 enable)))
+      (profile docked ((output eDP-1 disable)
+                       (output DP-3  enable)))
+      (profile docked ((output eDP-1 disable)
+                       (output DP-4  enable)))
+      (profile docked ((output eDP-1 disable)
+                       (output DP-6  enable)))))
+   (feature-hidpi)))