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

(feat): Add support for different file extensions (#465)

Browse Source 
Adds `org-roam-file-extensions`, which allows org-roam to detect file extensions other than .org. Fixes #461
This commit is contained in:
Jethro Kuan
2020-04-15 15:02:05 +08:00
committed by GitHub
parent a4a2ac8d19
commit d7fc91e047
2 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -13,6 +13,7 @@
* [#385][gh-385] Add `org-roam-graph-node-extra-config` to configure Graphviz nodes * [#385][gh-385] Add `org-roam-graph-node-extra-config` to configure Graphviz nodes
* [#435][gh-435] Add `org-roam-graph-edge-extra-config` to configure Graphviz edges * [#435][gh-435] Add `org-roam-graph-edge-extra-config` to configure Graphviz edges
* [#439][gh-439] Add support for `org-ref` citations to display as edges in graph. Add `org-roam-graph-edge-cites-extra-config` to configure these edges * [#439][gh-439] Add support for `org-ref` citations to display as edges in graph. Add `org-roam-graph-edge-cites-extra-config` to configure these edges
* [#465][gh-465] Add `org-roam-file-extensions` to allow detection of org files with different file extensions
## 1.0.0 (23-03-2020) ## 1.0.0 (23-03-2020)

23
org-roam.el
View File

@ -87,15 +87,23 @@ Formatter may be a function that takes title as its only argument."
:type 'boolean :type 'boolean
:group 'org-roam) :group 'org-roam)
;;;; Dynamic variables
(defvar org-roam-last-window nil
"Last window `org-roam' was called from.")
(defcustom org-roam-verbose t (defcustom org-roam-verbose t
"Echo messages that are not errors." "Echo messages that are not errors."
:type 'boolean :type 'boolean
:group 'org-roam) :group 'org-roam)
(defcustom org-roam-file-extensions '("org")
"Detected file extensions to include in the Org-roam ecosystem.
While the file extensions may be different, the file format needs
to be an `org-mode' file, and it is the user's responsibility to
ensure that."
:type '(repeat string)
:group 'org-roam)
;;;; Dynamic variables
(defvar org-roam-last-window nil
"Last window `org-roam' was called from.")
;;; Utilities ;;; Utilities
;;;; General Utilities ;;;; General Utilities
(defun org-roam--plist-to-alist (plist) (defun org-roam--plist-to-alist (plist)
@ -148,10 +156,9 @@ Like `file-name-extension', but does not strip version number."
(defun org-roam--org-file-p (path) (defun org-roam--org-file-p (path)
"Check if PATH is pointing to an org file." "Check if PATH is pointing to an org file."
(let ((ext (org-roam--file-name-extension path))) (let ((ext (org-roam--file-name-extension path)))
(or (string= ext "org") (when (string= ext "gpg") ; Handle encrypted files
(and (setq ext (org-roam--file-name-extension (file-name-sans-extension path))))
(string= ext "gpg") (member ext org-roam-file-extensions)))
(string= (org-roam--file-name-extension (file-name-sans-extension path)) "org")))))
(defun org-roam--org-roam-file-p (&optional file) (defun org-roam--org-roam-file-p (&optional file)
"Return t if FILE is part of Org-roam system, nil otherwise. "Return t if FILE is part of Org-roam system, nil otherwise.