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) (defun org-roam-slipbox-from-file (file)
(condition-case nil (condition-case nil
(let* ((dir (f-dirname file)) (let ((dir (f-dirname file)))
(name (s-replace " " "_" (file-name-nondirectory dir)))) (if (f-same-p dir org-roam-directory)
(cond ((f-same-p dir org-roam-directory) org-roam-slipbox-default
org-roam-slipbox-default) (org-roam-slipbox--sanitize-tag (file-name-nondirectory dir))))
((string-match-p org-tag-re name)
name)
;; NB. If `name' isn't a legal tag, apply the default.
(t
org-roam-slipbox-default)))
(error org-roam-slipbox-default))) (error org-roam-slipbox-default)))
;;;###autoload ;;;###autoload