awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-17 13:33:32 -05:00
Code Issues Packages Projects Releases Wiki Activity

Sanitize slipbox name for tag

Browse Source
This commit is contained in:
Chris Barrett
2022-09-24 23:22:23 +12:00
parent 8020662241
commit 4ea787c213
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org-roam-slipbox.el
View File

@@ -110,17 +110,15 @@ tag applied."
(defun org-roam-slipbox--sanitize-tag (str)
(s-replace-regexp (rx (not (any alnum "_@#%"))) "_" str))
(defun org-roam-slipbox-from-file (file)
(condition-case nil
(let* ((dir (f-dirname file))
(name (s-replace " " "_" (file-name-nondirectory dir))))
(cond ((f-same-p dir org-roam-directory)
org-roam-slipbox-default)
((string-match-p org-tag-re name)
name)
;; NB. If `name' isn't a legal tag, apply the default.
(t
org-roam-slipbox-default)))
(let ((dir (f-dirname file)))
(if (f-same-p dir org-roam-directory)
org-roam-slipbox-default
(org-roam-slipbox--sanitize-tag (file-name-nondirectory dir))))
(error org-roam-slipbox-default)))
;;;###autoload