Emacs 29.2 fixes my Mac-specific bug with GPG

This commit is contained in:
Howard Abrams 2024-02-22 16:55:56 -08:00
parent a11c9b7290
commit 5db1762ef0
2 changed files with 29 additions and 77 deletions

View file

@ -46,7 +46,7 @@ Helper functions to allow code for specific operating systems:
With the way I start Emacs, I may not have the =PATH= I /actually/ use (from the shell) available, so we'll force it (code taken [[https://www.emacswiki.org/emacs/ExecPath][from here]]):
#+begin_src emacs-lisp :tangle no
#+begin_src emacs-lisp
(defun set-exec-path-from-shell ()
"Set up Emacs' `exec-path' and PATH environment variable to match
that used by the user's shell.
@ -81,31 +81,6 @@ Getting tired off all the packages that I load spewing a bunch of warnings that
(setq native-comp-async-report-warnings-errors nil
native-comp-deferred-compilation t))
#+end_src
** GNU Pretty Good Privacy
On Linux, GPG is pretty straight-forward, but on the Mac, I often have troubles doing:
#+begin_src sh
brew install gpg
#+end_src
Next, on every reboot, start the agent:
#+begin_src sh
/opt/homebrew/bin/gpg-agent --daemon
#+end_src
Since =brew link gpg= doesnt always work, this helper function may find the executable:
#+begin_src emacs-lisp
(defun executable (path)
"Return PATH if executable, see `file-executable-p'."
(let ((epath (first (file-expand-wildcards path))))
(when (and epath (file-executable-p epath)) epath)))
(use-package epa-file
:straight (:type built-in)
:custom (epg-gpg-program (or (executable "/opt/homebrew/bin/gpg")
(executable "/usr/local/bin/gpg")
(executable "/usr/local/opt/gpg")
(executable "/usr/bin/pgp")))
:config (epa-file-enable))
#+end_src
* Basic Libraries
The following packages come with Emacs, but seems like they still need loading:
#+begin_src emacs-lisp
@ -120,13 +95,13 @@ Ugh. Why am I getting a missing =first= function error? I define a simple implem
While most libraries will take care of their dependencies, I want to install /my dependent libraries/, e.g, [[https://github.com/magnars/.emacs.d/][Magnar Sveen]]'s Clojure-inspired [[https://github.com/magnars/dash.el][dash.el]] project:
#+begin_src emacs-lisp
(use-package dash)
(use-package dash)
#+end_src
Sure this package is essentially syntactic sugar, and to help /share/ my configuration, I attempt to use =thread-last= instead of =->>=, but, I still like it.
The [[https://github.com/magnars/s.el][s.el]] project is a simpler string manipulation library that I (and other projects) use:
#+begin_src emacs-lisp
(use-package s)
(use-package s)
#+end_src
Manipulate file paths with the [[https://github.com/rejeep/f.el][f.el]] project:

View file

@ -20,7 +20,7 @@ A literate programming file for configuring Emacs.
;;
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
;; ~/other/hamacs/ha-config.org
;; Using `find-file-at-point', and tangle the file to recreate this one .
;; Using `find-file-at-point', and tangle the file to recreate this.
;;
;;; Code:
#+end_src
@ -775,63 +775,40 @@ Once we create the new perspective workspace, if it matches a particular name, I
* Pretty Good Encryption
For details on using GnuPG in Emacs, see Mickey Petersens [[https://www.masteringemacs.org/article/keeping-secrets-in-emacs-gnupg-auth-sources][GnuPG Essay]].
On Linux, GPG is pretty straight-forward, but on the Mac, I often have troubles doing:
#+begin_src sh
brew install gpg
#+end_src
Next, on every reboot, start the agent:
#+begin_src sh
/opt/homebrew/bin/gpg-agent --daemon
#+end_src
Also, as [[https://www.bytedude.com/gpg-in-emacs/][bytedude]] mentions, I need to use the =epa-pineentry-mode= to =loopback= to actually get a prompt for the password, instead of an error. Also let's cache as much as possible, as my home machine is pretty safe, and my laptop is shutdown a lot.
#+begin_src emacs-lisp
(use-package epa-file
:straight (:type built-in)
:custom
(epg-debug t)
(auth-source-debug t)
;; Since I normally want symmetric encryption, and don't want
;; to use the "key selection":
(epa-file-select-keys 'symmetric-only)
;; Make sure we prompt in the minibuffer for the password:
(epg-pinentry-mode 'loopback)
;; I trust my Emacs session, so I don't bother expiring my pass:
(auth-source-cache-expiry nil))
#+end_src
Need to make sure that Emacs will handle the prompts, and turn it on:
#+begin_src emacs-lisp
(use-package epa-file
:config
(setq epg-debug t auth-source-debug t
;; Since I normally want symmetric encryption, and don't want
;; to use the "key selection":
epa-file-select-keys 'symmetric-only
;; Make sure we prompt in the minibuffer for the password:
epg-pinentry-mode 'loopback
;; I trust my Emacs session, so I don't bother expiring my pass:
auth-source-cache-expiry nil)
;; Make sure that for Emacs, we will handle the prompts:
(setenv "GPG_AGENT_INFO" nil)
(epa-file-enable))
#+end_src
Make sure that the following passes:
#+begin_src emacs-lisp :tangle no
(let ((macos-gpg "/opt/homebrew/bin/gpg1"))
(when (and (file-exists-p macos-gpg)
(file-executable-p macos-gpg))
(setq epg-gpg-program macos-gpg)))
#+end_src
As well as:
#+begin_src emacs-lisp :tangle no
(let ((macos-gpg "/opt/homebrew/bin/pinentry-tty"))
(when (and (file-exists-p macos-gpg)
(file-executable-p macos-gpg))
(setq pinentry-program macos-gpg)))
#+end_src
According to [[https://emacs.stackexchange.com/questions/78140/emacs-failing-to-save-encrypted-file][this discussion]], I seem to first, downgrade the version of GPG to version 2.2:
#+begin_src sh :results replace raw :wrap example
gpg --version
#+end_src
#+begin_example
gpg (GnuPG) 2.2.42
libgcrypt 1.10.3
Copyright (C) 2023 g10 Code GmbH
License GNU GPL-3.0-or-later <https://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
Home: /Users/howard.abrams/.gnupg
Supported algorithms:
Pubkey: RSA, ELG, DSA, ECDH, ECDSA, EDDSA
Cipher: IDEA, 3DES, CAST5, BLOWFISH, AES, AES192, AES256, TWOFISH,
CAMELLIA128, CAMELLIA192, CAMELLIA256
Hash: SHA1, RIPEMD160, SHA256, SHA384, SHA512, SHA224
Compression: Uncompressed, ZIP, ZLIB, BZIP2
#+end_example
However, for Emacs 29, and even with GPG1 or GPG2.2, it still hangs when saving encrypted files.
* Technical Artifacts :noexport:
Let's provide a name so we can =require= this file:
#+begin_src emacs-lisp :exports none