diff options
Diffstat (limited to 'guix/jd/home/services')
-rw-r--r-- | guix/jd/home/services/desktop.scm | 21 |
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."))) |