From 288ccb3984c7cb46b67d0f6bf7fb6d53c5d7a2d3 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 13 Dec 2025 23:43:10 -0500
Subject: guix: full refactor of configuration structure

---
 guix/kolwynia/os/garmr.scm | 61 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 guix/kolwynia/os/garmr.scm

(limited to 'guix/kolwynia/os/garmr.scm')

diff --git a/guix/kolwynia/os/garmr.scm b/guix/kolwynia/os/garmr.scm
new file mode 100644
index 0000000..ad6cace
--- /dev/null
+++ b/guix/kolwynia/os/garmr.scm
@@ -0,0 +1,61 @@
+(define-module (kolwynia os garmr)
+  #:use-module (gnu)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu services)
+  #:use-module (gnu services guix)
+  #:use-module (gnu services pm)
+  #:use-module (guix gexp)
+  #:use-module (kolwynia os ymir)
+  #:use-module ((kolwynia os garmr file-systems)
+		#:prefix fs:)
+  #:use-module ((kolwynia os ymir packages)
+		#:prefix pkg:)
+  #:use-module ((kolwynia os ymir users)
+		#:prefix users:)
+  #:use-module (kolwynia home bdunahu))
+
+;;; Commentary:
+;;;
+;;; garmr is a corebooted and fully-libre laptop
+;;;
+;;; Code:
+
+(operating-system
+  (inherit ymir)
+  (host-name "garmr")
+
+  (packages (cons* brightnessctl tlp pkg:ymir-packages))
+
+  (services
+   (cons*
+    ;; laptop power management
+    (service tlp-service-type
+             (tlp-configuration
+	       (cpu-scaling-governor-on-ac (list "powersave"))
+	       (cpu-scaling-governor-on-bat (list "powersave"))
+	       (energy-perf-policy-on-ac "powersave")
+	       (energy-perf-policy-on-bat "powersave")
+	       (pcie-aspm-on-ac "powersave")
+	       (pcie-aspm-on-bat "powersave")
+	       (sched-powersave-on-bat? #t)
+	       (sched-powersave-on-ac? #t)
+	       (sata-linkpwr-on-ac "min_power")
+	       (sata-linkpwr-on-bat "min_power")
+	       (start-charge-thresh-bat0 60)
+	       (stop-charge-thresh-bat0 80)))
+    (service thermald-service-type)
+    (simple-service 'network-manager-applet
+                    profile-service-type
+                    (list network-manager-applet))
+    (service guix-home-service-type
+             `((,users:bdunahu-str ,bdunahu)))
+
+    (operating-system-user-services ymir)))
+
+  (mapped-devices fs:%mapped-devices)
+  (file-systems fs:%file-systems))
+
+;;; garmr.scm ends here
-- 
cgit v1.2.3