1 files changed, 117 insertions, 0 deletions
diff --git a/surltesh-echer/configuration.scm b/surltesh-echer/configuration.scm
new file mode 100644
index 0000000..bea816a
--- /dev/null
+++ b/surltesh-echer/configuration.scm
@@ -0,0 +1,117 @@
+(use-modules (gnu)
+             (guix packages)
+             (guix git-download)
+             (gnu system)
+             (gnu services)
+             (guix gexp)
+             (srfi srfi-1))
+
+(use-package-modules
+ bootloaders certs
+ emacs
+ terminals
+ wm xdisorg shells admin
+ version-control
+ nss)
+
+(use-service-modules desktop
+                     base)
+
+(define wlroots-0.15
+  (package
+    (inherit wlroots)
+    (version "0.15.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://gitlab.freedesktop.org/wlroots/wlroots")
+                    (commit version)))
+              (file-name (git-file-name "wlroots" version))
+              (sha256
+               (base32 "00s73nhi3sc48l426jdlqwpclg41kx1hv0yk4yxhbzw19gqpfm1h"))))))
+
+
+(define-public hikari-patched
+  (package
+    (inherit hikari)
+    (inputs (modify-inputs (package-inputs hikari) 
+               (replace "wlroots" wlroots-0.15)))))
+
+
+(operating-system
+  (host-name "surltesh-echer")
+  (timezone "Europe/Paris")
+  (locale "en_US.utf8")
+
+  ;; Use the UEFI variant of GRUB with the EFI System
+  ;; Partition mounted on /boot/efi.
+  (bootloader (bootloader-configuration
+                (bootloader grub-bootloader)
+                (targets '("/dev/sda"))))
+
+  ;; Assume the target root file system is labelled "my-root",
+  ;; and the EFI System Partition has UUID 1234-ABCD.
+  (file-systems (append
+                 (list (file-system
+                         (device "/dev/sda1")
+                         (mount-point "/")
+                         (type "ext4")))
+                 %base-file-systems))
+
+  (users (cons (user-account
+                (name "stuebinm")
+                (group "users")
+                (supplementary-groups '("wheel" "netdev"
+                                        "audio" "video"))
+                (shell (file-append fish "/bin/fish")))
+               %base-user-accounts))
+
+  ;; Add a bunch of window managers; we can choose one at
+  ;; the log-in screen with F1.
+  (packages (append (list
+                     ;; window managers
+                     hikari-patched
+                     emacs kitty fuzzel git
+                     fish
+                     ;; for HTTPS access
+                     nss-certs)
+                    %base-packages))
+
+  ;; Use the "desktop" services, which include the X11
+  ;; log-in service, networking with NetworkManager, and more.
+  (services 
+    (append (modify-services
+             %desktop-services
+             (delete mingetty-service-type))
+    (list
+     (service greetd-service-type
+              (greetd-configuration
+               (terminals
+                (list
+                 (greetd-terminal-configuration
+                  (terminal-vt "1")
+                  (terminal-switch #t)
+                  (default-session-command
+                    (greetd-agreety-session
+                     (command (file-append hikari-patched "/bin/hikari"))
+                     (command-args '("-c" "hikari.conf"))
+                     ))
+                  )))))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty2")))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty3")))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty4")))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty5")))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty6")))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty7")))
+     (service mingetty-service-type
+              (mingetty-configuration (tty "tty8")))
+              )))
+
+  ;; Allow resolution of '.local' host names with mDNS.
+  (name-service-switch %mdns-host-lookup-nss))