Next: Replace with-maybe-gpg-file with Next's internal macro.
parent
5847711c19
commit
0b59407a3c
|
@ -117,17 +117,6 @@ Videos are downloaded with `+youtube-dl-command+'."
|
||||||
;; :initial-value %slot-default))
|
;; :initial-value %slot-default))
|
||||||
))
|
))
|
||||||
|
|
||||||
(defmacro with-maybe-gpg-file ((stream filespec) &body body)
|
|
||||||
"Evaluate BODY with STREAM bound to FILESPEC.
|
|
||||||
FILESPEC may be a GPG-encrypted file."
|
|
||||||
`(let ((clear-data (handler-case
|
|
||||||
(with-output-to-string (out)
|
|
||||||
(uiop:run-program (list "gpg" "-d" ,filespec) :output out))
|
|
||||||
(error ()
|
|
||||||
(alexandria:read-file-into-string ,filespec)))))
|
|
||||||
(with-input-from-string (,stream clear-data)
|
|
||||||
,@body)))
|
|
||||||
|
|
||||||
(defun format-c->lisp (s)
|
(defun format-c->lisp (s)
|
||||||
"Incomplete substitution of C format string to Lisp format string.
|
"Incomplete substitution of C format string to Lisp format string.
|
||||||
Recognized formats:
|
Recognized formats:
|
||||||
|
@ -148,7 +137,7 @@ Recognized formats:
|
||||||
(defvar my-search-engines
|
(defvar my-search-engines
|
||||||
(loop for file in '("~/.emacs.d/lisp/init-engine.el"
|
(loop for file in '("~/.emacs.d/lisp/init-engine.el"
|
||||||
"~/personal/bookmarks/engines.el")
|
"~/personal/bookmarks/engines.el")
|
||||||
append (with-maybe-gpg-file (s file)
|
append (next::with-maybe-gpg-file (s file)
|
||||||
(read-emacs-engines s))))
|
(read-emacs-engines s))))
|
||||||
|
|
||||||
(define-configuration browser
|
(define-configuration browser
|
||||||
|
|
Loading…
Reference in New Issue