diff options
Diffstat (limited to 'guix/jd/home')
| -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."))) |
