Use emacs pinentry

This commit is contained in:
Ray Miller 2024-11-29 18:06:28 +00:00
parent 8017e03c46
commit 89b0a2cd68

View file

@ -6,22 +6,23 @@
(use-modules (gnu home) (use-modules (gnu home)
(gnu packages) (gnu packages)
(gnu packages gnupg)
(gnu services) (gnu services)
(guix gexp) (guix gexp)
(gnu home services shells) (gnu home services shells)
(gnu home services dotfiles) (gnu home services dotfiles)
(gnu home services gnupg)) (gnu home services gnupg))
(home-environment (home-environment
;; Below is the list of packages that will show up in your ;; Below is the list of packages that will show up in your
;; Home profile, under ~/.guix-home/profile. ;; Home profile, under ~/.guix-home/profile.
(packages (specifications->packages (list "emacs-no-x" (packages (specifications->packages (list "emacs-no-x"
"git" "git"
"git-crypt" "git-crypt"
"git-lfs" "git-lfs"
"glibc-locales" "glibc-locales"
"gnupg" "gnupg"
;;"go@1.23.2" ;;"go@1.23.2"
"guile" "guile"
"guile-algorithms" "guile-algorithms"
"guile-config" "guile-config"
@ -46,29 +47,32 @@
"guile-srfi-235" "guile-srfi-235"
"guile-ssh" "guile-ssh"
"guile-tap" "guile-tap"
"nss-certs" "nss-certs"
"pass-git-helper" "pass-git-helper"
"password-store" "password-store"
"recutils"))) "pinentry-emacs"
"recutils")))
;; Below is the list of Home services. To search for available ;; Below is the list of Home services. To search for available
;; services, run 'guix home search KEYWORD' in a terminal. ;; services, run 'guix home search KEYWORD' in a terminal.
(services (services
(list (service home-bash-service-type (list (service home-bash-service-type
(home-bash-configuration (home-bash-configuration
(guix-defaults? #t) (guix-defaults? #t)
(environment-variables '(("XDG_RUNTIME_DIR" . "/home/ray/.local/run"))) (environment-variables '(("XDG_RUNTIME_DIR" . "/home/ray/.local/run")))
(aliases '(("grep" . "grep --color=auto") ("ll" . "ls -l") (aliases '(("grep" . "grep --color=auto") ("ll" . "ls -l")
("ls" . "ls -p --color=auto"))) ("ls" . "ls -p --color=auto")))
(bashrc (list (local-file (bashrc (list (local-file
"/home/ray/Workspace/guix-config/.bashrc" "/home/ray/Workspace/guix-config/.bashrc"
"bashrc"))) "bashrc")))
(bash-profile (list (local-file (bash-profile (list (local-file
"/home/ray/Workspace/guix-config/.bash_profile" "/home/ray/Workspace/guix-config/.bash_profile"
"bash_profile"))))) "bash_profile")))))
(service home-dotfiles-service-type (service home-dotfiles-service-type
(home-dotfiles-configuration (home-dotfiles-configuration
(directories '("./dotfiles")) (directories '("./dotfiles"))
(layout 'stow))) (layout 'stow)))
(service home-gpg-agent-service-type (service home-gpg-agent-service-type
(home-gpg-agent-configuration))))) (home-gpg-agent-configuration
(pinentry-program
(file-append pinentry-emacs "/bin/pinentry-emacs")))))))