diff options
Diffstat (limited to '.config/guix/modules/ymir.scm')
-rw-r--r-- | .config/guix/modules/ymir.scm | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/.config/guix/modules/ymir.scm b/.config/guix/modules/ymir.scm new file mode 100644 index 0000000..e3a9921 --- /dev/null +++ b/.config/guix/modules/ymir.scm @@ -0,0 +1,87 @@ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; This configuration defines the base-level ;; +;; services for both of my machines. ;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define-module (ymir) + #:use-module (gnu)) +(use-service-modules audio desktop networking ssh xorg) + +;;;; user +(define-public username "bdunahu") +(define user (user-account + (name username) + (comment username) + (group "users") + (home-directory (string-append "/home/" username)) + (supplementary-groups '("audio" + "netdev" + "video" + "wheel")))) + + +;;;; base os +(define-public ymir + (operating-system + (host-name "ymir") + (locale "en_US.utf8") + (timezone "America/Denver") + (keyboard-layout (keyboard-layout "us")) + (kernel-arguments + (list + "quiet")) + + ;; 'root' is implicit + (users (cons* user + %base-user-accounts)) + + ;; grub (uefi) + (bootloader (bootloader-configuration + (bootloader grub-efi-bootloader) + (targets (list "/boot/efi")) + (keyboard-layout keyboard-layout))) + + ;; packages installed system-wide. + (packages (append (map specification->package + '("cryptsetup" + "curl" + "emacs" + "emacs-desktop-environment" + "emacs-exwm" + "git" + "imagemagick" + "mpd" + "mpd-mpc" + "nss-certs" + "picom" + "pulseaudio" + "vim" + "xmodmap")) + %base-packages)) + + ;; base system services. + (services + (append (list + (service openssh-service-type) + (service tor-service-type) + (service mpd-service-type + (mpd-configuration + (user user) + (music-directory "~/Personal/mpd/music") + (playlist-directory "~/Personal/mpd/playlist") + (default-port 6600))) + (set-xorg-configuration + (xorg-configuration (keyboard-layout keyboard-layout)))) + + ;; This is the default list of services we + ;; are appending to. + %desktop-services)) + + ;; OVERRIDE ME + (file-systems (cons* + (file-system + (mount-point "/") + (device "none") + (type "tmpfs") + (check? #f)) + %base-file-systems)))) |