From e14390858839d7fd56b579d6489ea7bc88a5e530 Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Sun, 2 Jul 2023 15:36:22 +0200
Subject: Add GNU/Guix config files.

---
 guix/jd/desktops/base.scm | 90 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 guix/jd/desktops/base.scm

(limited to 'guix/jd/desktops/base.scm')

diff --git a/guix/jd/desktops/base.scm b/guix/jd/desktops/base.scm
new file mode 100644
index 0000000..7618257
--- /dev/null
+++ b/guix/jd/desktops/base.scm
@@ -0,0 +1,90 @@
+(define-module (jd desktops base)
+  #:use-module (gnu)
+  #:use-module (jd packages vpn)
+  #:use-module (nongnu packages linux)
+  #:use-module (nongnu system linux-initrd))
+
+(use-package-modules wm gnome)
+(use-service-modules cups desktop networking ssh xorg
+		     docker virtualization pm sound)
+
+;; Odin is a base operating system
+(define-public odin
+  (operating-system
+   (kernel linux)
+   (initrd microcode-initrd)
+   (firmware (list linux-firmware))
+
+   (locale "en_US.utf8")
+   (timezone "Europe/Warsaw")
+   (keyboard-layout (keyboard-layout "pl"))
+   (host-name "odin")
+   
+   (users (cons* (user-account
+		  (name "jakub")
+		  (comment "Jakub Dlugosz")
+		  (group "users")
+		  (home-directory "/home/jakub")
+		  (supplementary-groups '("wheel" "netdev" "audio" "video")))
+		 %base-user-accounts))
+
+   (packages (append (specifications->packages '("emacs"
+						 "emacs-exwm"
+						 
+						 "brightnessctl"
+
+						 "bluez"
+						 "bluez-alsa"
+
+						 "xf86-input-libinput" 
+						 
+						 "nss-certs"))
+
+		     %base-packages))
+   
+   (services
+    (append (list
+	     (service xfce-desktop-service-type)
+	     (service openssh-service-type)
+	     (set-xorg-configuration
+	      (xorg-configuration (keyboard-layout keyboard-layout)))
+
+	     (service network-manager-service-type
+		      (network-manager-configuration
+		       (vpn-plugins (list
+				     network-manager-pptp))))
+	     
+	     (service bluetooth-service-type
+		      (bluetooth-configuration
+		       (auto-enable? #t)))
+
+	     (service docker-service-type)
+	     (service libvirt-service-type
+		      (libvirt-configuration
+		       (unix-sock-group "libvirt")
+		       (tls-port "16555")))
+
+	     (service sane-service-type)
+	     (service cups-service-type
+		      (cups-configuration
+		       (web-interface? #t)))
+
+	     (service thermald-service-type)
+	     (service tlp-service-type
+		      (tlp-configuration
+		       (cpu-boost-on-ac? #t)
+		       (wifi-pwr-on-bat? #t))))
+
+	    (modify-services %desktop-services
+                             (delete network-manager-service-type))))
+   (bootloader (bootloader-configuration
+		(bootloader grub-bootloader)
+		(targets (list "/boot/efi"))
+		(keyboard-layout keyboard-layout)))
+   
+   (file-systems (cons* (file-system
+			 (mount-point "/tmp")
+			 (device "none")
+			 (type "tmpfs")
+			 (check? #f))
+			%base-file-systems))))
-- 
cgit v1.2.3