summaryrefslogtreecommitdiffstats
path: root/guix/jd/home/services/desktop.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/jd/home/services/desktop.scm')
-rw-r--r--guix/jd/home/services/desktop.scm21
1 files changed, 20 insertions, 1 deletions
diff --git a/guix/jd/home/services/desktop.scm b/guix/jd/home/services/desktop.scm
index 32c8059..d5aa414 100644
--- a/guix/jd/home/services/desktop.scm
+++ b/guix/jd/home/services/desktop.scm
@@ -13,6 +13,7 @@
13 #:use-module (gnu home services sound) 13 #:use-module (gnu home services sound)
14 #:use-module (gnu home services xdg) 14 #:use-module (gnu home services xdg)
15 #:use-module (gnu home services gnupg) 15 #:use-module (gnu home services gnupg)
16 #:use-module (gnu home services dotfiles)
16 #:use-module (guix gexp) 17 #:use-module (guix gexp)
17 18
18 #:use-module (jd packages fonts)) 19 #:use-module (jd packages fonts))
@@ -33,6 +34,9 @@
33 "wlsunset" 34 "wlsunset"
34 "grimshot" 35 "grimshot"
35 "swappy" 36 "swappy"
37
38 "htop"
39 "distrobox"
36 40
37 "udiskie" 41 "udiskie"
38 ;; rest 42 ;; rest
@@ -121,7 +125,7 @@
121 `(("GTK_THEME" . "Adwaita:dark") 125 `(("GTK_THEME" . "Adwaita:dark")
122 ("VISUAL" . "emacsclient") 126 ("VISUAL" . "emacsclient")
123 ("EDITOR" . "emacsclient") 127 ("EDITOR" . "emacsclient")
124 ("PATH" . "$HOME/.bin:$HOME/.npm-global/bin:$PATH") 128 ("PATH" . "$HOME/.bin:$HOME/.local/bin:$HOME/.npm-global/bin:$PATH")
125 ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share") 129 ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share")
126 ("SBCL_HOME" . "/run/current-system/profile/lib/sbcl/") 130 ("SBCL_HOME" . "/run/current-system/profile/lib/sbcl/")
127 131
@@ -161,6 +165,19 @@
161 (default-cache-ttl-ssh 28800) 165 (default-cache-ttl-ssh 28800)
162 (max-cache-ttl-ssh 28800))) 166 (max-cache-ttl-ssh 28800)))
163 167
168(define (desktop-gpg-agent-service config)
169 (home-gpg-agent-configuration
170 (pinentry-program
171 (file-append pinentry-gnome3 "/bin/pinentry-gnome3"))
172 (ssh-support? #t)
173 (default-cache-ttl 28800)
174 (max-cache-ttl 28800)
175 (default-cache-ttl-ssh 28800)
176 (max-cache-ttl-ssh 28800)))
177
178(define (desktop-dotfiles-service config)
179 (home-dotfiles-configuration
180 (directories '("./files"))))
164 181
165(define-public home-desktop-service-type 182(define-public home-desktop-service-type
166 (service-type (name 'home-desktop) 183 (service-type (name 'home-desktop)
@@ -174,6 +191,8 @@
174 desktop-xdg-mime-applications-service) 191 desktop-xdg-mime-applications-service)
175 (service-extension home-gpg-agent-service-type 192 (service-extension home-gpg-agent-service-type
176 desktop-gpg-agent-service) 193 desktop-gpg-agent-service)
194 (service-extension home-dotfiles-service-type
195 desktop-dotfiles-service)
177 )) 196 ))
178 (default-value #f) 197 (default-value #f)
179 (description "Runs desktop services."))) 198 (description "Runs desktop services.")))