(define-module (jd desktops base) #:use-module (jd home services polkit) #:use-module (jd home services desktop) #:use-module (jd home services emacs) #:use-module (jd services polkit) #:use-module (gnu) #:use-module (gnu home) #:use-module (gnu home services) #:use-module (gnu home services desktop) #:use-module (gnu home services gnupg) #:use-module (gnu home services xdg) #:use-module (gnu home services sound) #:use-module (gnu services) #:use-module (guix packages) #:use-module (nongnu packages linux) #:use-module (nongnu system linux-initrd)) (use-package-modules wm gnome networking virtualization lisp lisp-xyz cups fonts gnupg) (use-service-modules cups desktop networking ssh xorg docker virtualization pm sound dbus nix sddm) (define-public %jd-base-home-services (list ;; (service home-redshift-service-type ;; (home-redshift-configuration ;; (location-provider 'manual) ;; (latitude 51.919438) ;; (longitude 19.145136))) ;; Poland (service home-dbus-service-type) (service home-emacs-service-type) (service home-desktop-service-type) ;; Dont know why, but when i put home-gpg-agent-service-type as an ;; extension in home-desktop-service-type service it doesn't work. (service home-gpg-agent-service-type (home-gpg-agent-configuration (pinentry-program (file-append pinentry-gnome3 "/bin/pinentry-gnome3")) (ssh-support? #t) (default-cache-ttl 28800) (max-cache-ttl 28800) (default-cache-ttl-ssh 28800) (max-cache-ttl-ssh 28800))) ;; (service home-polkit-gnome-service-type) )) (define-public %jakub-user (user-account (name "jakub") (comment "Jakub Dlugosz") (group "users") (home-directory "/home/jakub") (supplementary-groups '("wheel" ;; sudo "netdev" ;; network devices "kvm" "libvirt" "tty" "input" "docker" "audio" ;; control audio devices "video" ;; access to webcam "dialout" ;; access to /dev/ttyUSBX devices )))) (define-public %jd-base-user-accounts (cons* %jakub-user %base-user-accounts)) (define-public %stumpwm-packages (list sbcl sbcl-dbus stumpwm+slynk sbcl-stumpwm-screenshot sbcl-stumpwm-pamixer sbcl-stumpwm-pass sbcl-stumpwm-cpu sbcl-stumpwm-mem sbcl-stumpwm-net sbcl-stumpwm-battery-portable sbcl-stumpwm-stumptray sbcl-stumpwm-ttf-fonts sbcl-drakma sbcl-yason (list stumpwm "lib"))) (define-public %root-packages (specifications->packages '("emacs" "emacs-exwm" "stow" "bluez" "bluez-alsa" "exfat-utils" "git" "xf86-input-libinput" "intel-vaapi-driver" "libva-utils" ;; vainfo ;; "nss-certs" -- it is in %base-packages from fdfd7667c66cf9ce746330f39bcd366e124460e1 "nix"))) (define-public %jd-base-packages (append %root-packages ;; %stumpwm-packages %base-packages)) (define-public %jd-base-services (cons* (service openssh-service-type) ;; (set-xorg-configuration ;; (xorg-configuration ;for Xorg ;; (keyboard-layout (keyboard-layout "pl")))) ;; (service greetd-service-type ;; (greetd-configuration ;; ;; We need to give the greeter user these permissions, otherwise ;; ;; Sway will crash on launch. ;; (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")) ;; (greetd-terminal-configuration ;; (terminal-vt "6")))))) (service console-font-service-type (map (lambda (tty) (cons tty (file-append font-terminus "/share/consolefonts/ter-112n"))) '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6"))) (service screen-locker-service-type (screen-locker-configuration (name "swaylock") (program (file-append swaylock "/bin/swaylock")) (using-pam? #t) (using-setuid? #f))) (service network-manager-service-type (network-manager-configuration (vpn-plugins (list network-manager-openvpn)))) (simple-service 'dbus-packages dbus-root-service-type (list blueman virt-manager)) (service bluetooth-service-type (bluetooth-configuration (auto-enable? #t))) (service docker-service-type) (service libvirt-service-type (libvirt-configuration (unix-sock-group "libvirt"))) (service virtlog-service-type) (service cups-service-type (cups-configuration (web-interface? #t) (extensions (list cups-filters)))) (service thermald-service-type) (service tlp-service-type (tlp-configuration (cpu-boost-on-ac? #t) (wifi-pwr-on-bat? #t))) (service nix-service-type) polkit-network-manager-service ;; %desktop-services (modify-services %desktop-services (guix-service-type config => (guix-configuration (inherit config) (substitute-urls (append (list "https://substitutes.nonguix.org") %default-substitute-urls)) (authorized-keys (append (list (plain-file "non-guix.pub" "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))")) %default-authorized-guix-keys)))) (delete network-manager-service-type) ;; (delete mingetty-service-type) (delete console-font-service-type) (delete pulseaudio-service-type) (delete alsa-service-type) (delete (if (string-prefix? "x86_64" (or (%current-target-system) (%current-system))) gdm-service-type sddm-service-type))))) ;; Odin is a base for my operating systems (define-public odin-free (operating-system (locale "en_US.utf8") (timezone "Europe/Warsaw") (keyboard-layout (keyboard-layout "pl")) (host-name "odin") (users %jd-base-user-accounts) (packages %jd-base-packages) (services %jd-base-services) (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)))) (define-public odin-non-free (operating-system (inherit odin-free) (kernel linux) (initrd microcode-initrd) (firmware (list linux-firmware))))