(define-module (suweren home) ;; easyeffects #:use-module (gnu packages audio) ;; font-google-noto ;; font-google-noto-emoji ;; font-google-noto-sans-cjk ;; font-google-noto-serif-cjk #:use-module (gnu packages fonts) ;; kded #:use-module (gnu packages kde-frameworks) ;; home-profile-service-type #:use-module (gnu home services) ;; home-dbus-service-type #:use-module (gnu home services desktop) ;; home-bash-service-type #:use-module (gnu home services shells) ;; home-shepherd-service-type #:use-module (gnu home services shepherd) ;; home-pipewire-service-type #:use-module (gnu home services sound) ;; gnupg ;; pinentry-qt ;; pinentry-tty #:use-module (gnu packages gnupg) ;; kde-gtk-config #:use-module (gnu packages kde-plasma) ;; librewolf #:use-module (gnu packages librewolf) ;; service ;; simple-service #:use-module (gnu services) ;; suweren-home-fontconfig-service-type #:use-module (suweren home services fontutils) ;; update-commands #:use-module (suweren update)) ;; string -> ;; (record service) (define-public (%suweren-home-services host-name*) (let* ((packages (list easyeffects font-google-noto font-google-noto-emoji font-google-noto-sans-cjk font-google-noto-serif-cjk gnupg kde-gtk-config kded librewolf pinentry-qt pinentry-tty)) (dbus (service home-dbus-service-type)) (pipewire (service home-pipewire-service-type)) (profile (simple-service 'default-home-packages home-profile-service-type packages)) (shepherd (service home-shepherd-service-type)) (update-commands* (update-commands host-name*))) (list dbus pipewire profile shepherd suweren-home-fontconfig-service-type update-commands*)))