pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

authinfo now separate from emacs, so check and assert when missing

Browse source
This commit is contained in:
Benson Chu 2024-10-31 21:55:20 -05:00
parent 68c2dc9cdb
commit 3935dcfe96
2 changed files with 27 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
config-emacs.org
View file

@ -238,28 +238,32 @@
#+end_src
* encryption
#+begin_src emacs-lisp
(require 'epa-file)
(epa-file-enable)
(setq epa-pinentry-mode 'loopback)
(setq epa-file-cache-passphrase-for-symmetric-encryption t)
(setenv "GPG_AGENT_INFO" nil)
(let ((authinfo-file (expand-file-name "~/.authinfo")))
(if (not (setq my-ec/authinfo-exists
(file-exists-p authinfo-file)))
(warn ".authinfo file missing, remember to setup seafile. Mail config is also prevented from loading")
(require 'epa-file)
(epa-file-enable)
(setq epa-pinentry-mode 'loopback)
(setq epa-file-cache-passphrase-for-symmetric-encryption t)
(setenv "GPG_AGENT_INFO" nil)
(setq epg-gpg-program "gpg2")
;; (setq auth-source-debug t)
(setq auth-sources `((:source ,(ef "secrets/.authinfo.gpg"))))
(setq epg-gpg-program "gpg2")
;; (setq auth-source-debug t)
(setq auth-sources `((:source ,authinfo-file)))
(when-let* ((gpg (executable-find "gpg2"))
(version (shell-command-to-string (format "%s --version" gpg)))
((string-match (rx "gpg (GnuPG) "
(group (+ digit)
(+ "."
(+ digit))))
version))
(version (match-string 1 version))
(number (string-to-number
(string-replace "." "" version)))
((>= 243 number 241)))
(fset 'epg-wait-for-status 'ignore))
(when-let* ((gpg (executable-find "gpg2"))
(version (shell-command-to-string (format "%s --version" gpg)))
((string-match (rx "gpg (GnuPG) "
(group (+ digit)
(+ "."
(+ digit))))
version))
(version (match-string 1 version))
(number (string-to-number
(string-replace "." "" version)))
((>= 243 number 241)))
(fset 'epg-wait-for-status 'ignore))))
#+end_src
* delete-other-side-windows
#+begin_src emacs-lisp

4
config-ext.org
View file

@ -41,7 +41,9 @@
#+end_src
* Mail
#+begin_src emacs-lisp
(when (ec/load-or-ask-pred 'my-ec/enable-mail "Enable mail? ")
(when (and
(ec/load-or-ask-pred 'my-ec/enable-mail "Enable mail? ")
my-ec/authinfo-exists)
(require 'emacs-mail))
#+end_src
* Ace jump