diff options
| author | Hilton Chain <hako@ultrarare.space> | 2026-04-09 01:21:48 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2026-04-17 03:07:03 +0800 |
| commit | f0079d20ae3b85e16fef9af4b48e9d0c954b10fe (patch) | |
| tree | 1c0e9892eff47206ecb485b758675991b2789608 /gnu/home | |
| parent | e597af9546392a2088a0a67d77c0b91e6c4dd9ef (diff) | |
home: services: gpg-agent: Allow inheriting graphical session environment.
* gnu/home/services/gnupg.scm (home-gpg-agent-shepherd-services): Wrap service
constructor to allow inheriting graphical session environment.
Link: https://codeberg.org/guix/guix/issues/5899#issuecomment-12902232
Diffstat (limited to 'gnu/home')
| -rw-r--r-- | gnu/home/services/gnupg.scm | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/gnu/home/services/gnupg.scm b/gnu/home/services/gnupg.scm index 7fc99f793a8..aa9fb4ca6a0 100644 --- a/gnu/home/services/gnupg.scm +++ b/gnu/home/services/gnupg.scm | |||
| @@ -120,14 +120,19 @@ entry will be expired even if it has been accessed recently.") | |||
| 120 | (list (shepherd-service | 120 | (list (shepherd-service |
| 121 | (provision '(gpg-agent ssh-agent)) | 121 | (provision '(gpg-agent ssh-agent)) |
| 122 | (modules '((shepherd support))) ;for '%user-runtime-dir' | 122 | (modules '((shepherd support))) ;for '%user-runtime-dir' |
| 123 | (start #~(make-systemd-constructor | 123 | (start |
| 124 | (list #$(file-append gnupg "/bin/gpg-agent") | 124 | #~(lambda args |
| 125 | "--supervised" "--enable-ssh-support") | 125 | ((make-systemd-constructor |
| 126 | (list #$(endpoint "ssh" "S.gpg-agent.ssh") | 126 | (list #$(file-append gnupg "/bin/gpg-agent") |
| 127 | #$(endpoint "browser" "S.gpg-agent.browser") | 127 | "--supervised" "--enable-ssh-support") |
| 128 | #$(endpoint "extra" "S.gpg-agent.extra") | 128 | (list #$(endpoint "ssh" "S.gpg-agent.ssh") |
| 129 | ;; #$(endpoint "scdaemon" "S.scdaemon") | 129 | #$(endpoint "browser" "S.gpg-agent.browser") |
| 130 | #$(endpoint "std" "S.gpg-agent")))) | 130 | #$(endpoint "extra" "S.gpg-agent.extra") |
| 131 | ;; #$(endpoint "scdaemon" "S.scdaemon") | ||
| 132 | #$(endpoint "std" "S.gpg-agent")) | ||
| 133 | ;; Inherit graphical session environment. | ||
| 134 | #:environment-variables (environ)) | ||
| 135 | args))) | ||
| 131 | (stop #~(make-systemd-destructor)) | 136 | (stop #~(make-systemd-destructor)) |
| 132 | (documentation "Start 'gpg-agent', the GnuPG passphrase | 137 | (documentation "Start 'gpg-agent', the GnuPG passphrase |
| 133 | agent, with support for handling OpenSSH material.")))) | 138 | agent, with support for handling OpenSSH material.")))) |