emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-15 09:46:24 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add denote--extensions-with-encryption helper function

Browse source
This commit is contained in:
Protesilaos Stavrou 2023-01-24 21:20:33 +02:00
parent 823b3b8ba5
commit 196e68c30b
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
denote.el
View file

@ -1127,6 +1127,20 @@ for new note creation. The default is `org'.")
(plist-get (cdr type) :extension))
denote-file-types)))
;; TODO 2023-01-24: Perhaps there is a good reason to make this a user
;; option, but I am keeping it as a private variable for now.
(defvar denote--encryption-file-extensions '(".gpg" ".age")
"List of strings specifying file extensions for encryption.")
(defun denote--extensions-with-encryption ()
"Derive `denote--extensions' including `denote--encryption-file-extensions'."
(let ((file-extensions (denote--extensions))
all)
(dolist (ext file-extensions)
(dolist (enc denote--encryption-file-extensions)
(push (concat ext enc) all)))
(append file-extensions all)))
(defun denote--file-type-keys ()
"Return all `denote-file-types' keys."
(delete-dups (mapcar #'car denote-file-types)))