awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(feature): support encrypted org files (#87)

Browse Source 
Authored by @chip2n
This commit is contained in:
chip2n
2020-02-15 20:04:54 +01:00
committed by GitHub
parent ba91fc41a7
commit 9aba7ee094
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-roam-utils.el
View File

@ -38,6 +38,14 @@
(require 'subr-x)
(require 'cl-lib)
(defun org-roam--org-file-p (path)
"Check if PATH is pointing to an org file."
(let ((ext (file-name-extension path)))
(or (string= ext "org")
(and
(string= ext "gpg")
(string= (file-name-extension (file-name-sans-extension path)) "org")))))
(defun org-roam--find-files (dir)
"Return all `org-roam' files in `DIR'."
(if (file-exists-p dir)
@ -53,7 +61,7 @@
(when (not (string-match dir-ignore-regexp file))
(setq result (append (org-roam--find-files file) result))))
((and (file-readable-p file)
(string= (file-name-extension file) "org"))
(org-roam--org-file-p file))
(setq result (cons (file-truename file) result)))))
result)))
@ -65,7 +73,7 @@
(path (org-element-property :path link))
(start (org-element-property :begin link)))
(when (and (string= type "file")
(string= (file-name-extension path) "org"))
(org-roam--org-file-p path))
(goto-char start)
(let* ((element (org-element-at-point))
(content (or (org-element-property :raw-value element)