summaryrefslogtreecommitdiff
path: root/guix/system-base.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/system-base.scm')
-rw-r--r--guix/system-base.scm148
1 files changed, 0 insertions, 148 deletions
diff --git a/guix/system-base.scm b/guix/system-base.scm
deleted file mode 100644
index 93a7cf4..0000000
--- a/guix/system-base.scm
+++ /dev/null
@@ -1,148 +0,0 @@
-
-(define-module (system-base)
- #:use-module (gnu)
- #:use-module (gnu services)
- #:use-module (gnu services dbus)
- #:use-module (gnu system)
- #:use-module (gnu system setuid)
- #:use-module (gnu system nss)
- #:use-module (nongnu packages linux)
- #:use-module (nongnu system linux-initrd)
- #:use-module (rosenthal services networking)
- #:export (system-base))
-
-(use-service-modules cups desktop networking ssh xorg docker guix
- admin pm docker)
-
-(use-package-modules nfs certs shells ssh linux bash emacs networking
- wm fonts libusb cups freedesktop file-systems version-control
- package-management)
-
-(define system-packages
- '("sway" "swaylock" "swaylock-effects" "swaybg"
- "waybar" "gnupg" "pinentry" "font-jetbrains-mono"
- "docker" "docker-cli"))
-
-(define (system-base hostname filesystem swap-uuid)
- (operating-system
- (locale "en_US.utf8")
- (timezone "Europe/Athens")
- (host-name hostname)
- (keyboard-layout (if (string= hostname "zeus")
- (keyboard-layout "us")
- (keyboard-layout "us" #:options '("ctrl:swapcaps"))))
-
- ;; TODO: Use the full linux kernel only on the desktop
- (kernel linux-lts)
- (initrd microcode-initrd)
- (firmware (list linux-firmware))
-
- ;; The list of user accounts ('root' is implicit).
- (users (cons* (user-account
- (name "thanos")
- (comment "Thanos Apollo")
- (group "users")
- (home-directory "/home/thanos")
- (supplementary-groups '("wheel" "netdev" "audio" "video" "docker")))
- %base-user-accounts))
-
- ;; Packages installed system-wide.
- (packages
- (append (map specification->package system-packages)
- %base-packages))
-
- ;; Below is the list of system services. To search for available
- ;; services, run 'guix system search KEYWORD' in a terminal.
- (services
- (append (list
- (service docker-service-type)
- ;; tty login
- (service elogind-service-type)
-
- (service console-font-service-type
- (map (lambda (tty)
- ;; Use a larger font for HIDPI screens
- (cons tty (file-append
- font-terminus
- "/share/consolefonts/ter-132n")))
- '("tty1" "tty2" "tty3")))
-
- (service greetd-service-type
- (greetd-configuration
- (greeter-supplementary-groups
- (list "video" "input"))
- (terminals
- (list
- (greetd-terminal-configuration
- (terminal-vt "1")
- (terminal-switch #t))
- (greetd-terminal-configuration
- (terminal-vt "2"))
- (greetd-terminal-configuration
- (terminal-vt "3"))
- (greetd-terminal-configuration
- (terminal-vt "4"))
- (greetd-terminal-configuration
- (terminal-vt "5"))))))
-
-
- (service gnome-desktop-service-type)
-
- (service openssh-service-type
- (openssh-configuration
- (permit-root-login 'prohibit-password)))
-
- ;; TODO: Fix swaylock
- (service screen-locker-service-type
- (screen-locker-configuration
- (name "swaylock")
- (program (file-append swaylock "/bin/swaylock"))
- (using-pam? #t)
- (using-setuid? #f)))
-
- ;; Networking services
- (service network-manager-service-type)
- (service wpa-supplicant-service-type) ;; Needed by NetworkManager
- (service modem-manager-service-type) ;; For cellular modems
-
- polkit-wheel-service
-
- (service tor-service-type)
- (service cups-service-type)
-
- ;; (service avahi-service-type)
- (service udisks-service-type)
- (service upower-service-type)
- (service cups-pk-helper-service-type)
- (service geoclue-service-type)
- ;; (service polkit-service-type)
- ;; (service dbus-root-service-type)
- fontconfig-file-system-service ;; Manage the fontconfig cache
-
- ;; Power and thermal management services
- (service thermald-service-type)
- (service tlp-service-type
- (tlp-configuration
- (cpu-boost-on-ac? #t)
- (wifi-pwr-on-bat? #t)))
- (service tailscale-service-type))
-
- (modify-services %base-services
- (delete login-service-type)
- (delete mingetty-service-type)
- (delete console-font-service-type))))
-
-
- (bootloader (bootloader-configuration
- (bootloader grub-efi-bootloader)
- (targets (list "/boot/efi"))
- (keyboard-layout keyboard-layout)))
-
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- (swap-devices (list (swap-space
- (target (uuid swap-uuid)))))
-
- ;; run 'lsblk -f' to get UUIDs.
- (file-systems filesystem)))
-
-