diff options
| author | Hilton Chain <hako@ultrarare.space> | 2026-05-16 14:15:14 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2026-05-24 23:05:33 +0800 |
| commit | 4c824e25c42b8b4c63883fd9188c18374d53a5f1 (patch) | |
| tree | 8f057e88ea47af6a87ce785f0ac5aed94c76f705 /gnu/home | |
| parent | dfdf3553a94414e07d3f409882496897702fc22a (diff) | |
Revert "home: gnupg: Remove extraneous lambda wrapper."
This reverts commit 6989890f65c7b82a1315f021ca68ddf09adb061a.
The wrapper was added in f0079d20ae3b85e16fef9af4b48e9d0c954b10fe by intention.
Merges: #8661
Diffstat (limited to 'gnu/home')
| -rw-r--r-- | gnu/home/services/gnupg.scm | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/gnu/home/services/gnupg.scm b/gnu/home/services/gnupg.scm index 319f84bb1dc..67a7e267c60 100644 --- a/gnu/home/services/gnupg.scm +++ b/gnu/home/services/gnupg.scm | |||
| @@ -125,16 +125,18 @@ entry will be expired even if it has been accessed recently.") | |||
| 125 | (requirement shepherd-requirement) | 125 | (requirement shepherd-requirement) |
| 126 | (modules '((shepherd support))) ;for '%user-runtime-dir' | 126 | (modules '((shepherd support))) ;for '%user-runtime-dir' |
| 127 | (start | 127 | (start |
| 128 | #~(make-systemd-constructor | 128 | #~(lambda args |
| 129 | (list #$(file-append gnupg "/bin/gpg-agent") | 129 | ((make-systemd-constructor |
| 130 | "--supervised" "--enable-ssh-support") | 130 | (list #$(file-append gnupg "/bin/gpg-agent") |
| 131 | (list #$(endpoint "ssh" "S.gpg-agent.ssh") | 131 | "--supervised" "--enable-ssh-support") |
| 132 | #$(endpoint "browser" "S.gpg-agent.browser") | 132 | (list #$(endpoint "ssh" "S.gpg-agent.ssh") |
| 133 | #$(endpoint "extra" "S.gpg-agent.extra") | 133 | #$(endpoint "browser" "S.gpg-agent.browser") |
| 134 | ;; #$(endpoint "scdaemon" "S.scdaemon") | 134 | #$(endpoint "extra" "S.gpg-agent.extra") |
| 135 | #$(endpoint "std" "S.gpg-agent")) | 135 | ;; #$(endpoint "scdaemon" "S.scdaemon") |
| 136 | ;; Inherit graphical session environment. | 136 | #$(endpoint "std" "S.gpg-agent")) |
| 137 | #:environment-variables (environ))) | 137 | ;; Inherit graphical session environment. |
| 138 | #:environment-variables (environ)) | ||
| 139 | args))) | ||
| 138 | (stop #~(make-systemd-destructor)) | 140 | (stop #~(make-systemd-destructor)) |
| 139 | (documentation "Start 'gpg-agent', the GnuPG passphrase | 141 | (documentation "Start 'gpg-agent', the GnuPG passphrase |
| 140 | agent, with support for handling OpenSSH material.")))) | 142 | agent, with support for handling OpenSSH material.")))) |