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

(chore): fix lints on master (#2099)

Browse Source
This commit is contained in:
Jethro Kuan
2022-02-20 13:14:58 -08:00
committed by GitHub
parent fd97c80a26
commit 25d828c32e
3 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
.dir-locals.el
View File

@ -4,6 +4,9 @@
(elisp-lint-ignored-validators . ("byte-compile" "package-lint")) (elisp-lint-ignored-validators . ("byte-compile" "package-lint"))
(elisp-lint-indent-specs . ((describe . 1) (elisp-lint-indent-specs . ((describe . 1)
(it . 1) (it . 1)
(thread-first . 0)
(cl-flet . 1)
(cl-flet* . 1)
(org-element-map . defun) (org-element-map . defun)
(org-roam-dolist-with-progress . 2) (org-roam-dolist-with-progress . 2)
(org-roam-with-temp-buffer . 1) (org-roam-with-temp-buffer . 1)

3
org-roam-capture.el
View File

@ -591,7 +591,8 @@ Return the ID of the location."
PATH is a string that can optionally contain templated text in PATH is a string that can optionally contain templated text in
it." it."
(or (org-roam-node-file org-roam-capture--node) (or (org-roam-node-file org-roam-capture--node)
(thread-first path (thread-first
path
(org-roam-capture--fill-template t) (org-roam-capture--fill-template t)
(string-trim) (string-trim)
(expand-file-name org-roam-directory)))) (expand-file-name org-roam-directory))))

16
org-roam-node.el
View File

@ -131,8 +131,8 @@ It takes a single argument REF, which is a propertized string."
:type 'boolean) :type 'boolean)
(defcustom org-roam-extract-new-file-path "%<%Y%m%d%H%M%S>-${slug}.org" (defcustom org-roam-extract-new-file-path "%<%Y%m%d%H%M%S>-${slug}.org"
"The file path template (relative to `org-roam-directory') to use "The file path template to use when a node is extracted to its own file.
when a node is extracted to its own file." This path is relative to `org-roam-directory'."
:group 'org-roam :group 'org-roam
:type 'string) :type 'string)
@ -187,14 +187,12 @@ when a node is extracted to its own file."
816 ; U+0330 COMBINING TILDE BELOW 816 ; U+0330 COMBINING TILDE BELOW
817 ; U+0331 COMBINING MACRON BELOW 817 ; U+0331 COMBINING MACRON BELOW
))) )))
(cl-flet* ((nonspacing-mark-p (char) (cl-flet* ((nonspacing-mark-p (char) (memq char slug-trim-chars))
(memq char slug-trim-chars)) (strip-nonspacing-marks (s) (string-glyph-compose
(strip-nonspacing-marks (s) (apply #'string
(string-glyph-compose (seq-remove #'nonspacing-mark-p
(apply #'string (seq-remove #'nonspacing-mark-p
(string-glyph-decompose s))))) (string-glyph-decompose s)))))
(cl-replace (title pair) (cl-replace (title pair) (replace-regexp-in-string (car pair) (cdr pair) title)))
(replace-regexp-in-string (car pair) (cdr pair) title)))
(let* ((pairs `(("[^[:alnum:][:digit:]]" . "_") ;; convert anything not alphanumeric (let* ((pairs `(("[^[:alnum:][:digit:]]" . "_") ;; convert anything not alphanumeric
("__*" . "_") ;; remove sequential underscores ("__*" . "_") ;; remove sequential underscores
("^_" . "") ;; remove starting underscore ("^_" . "") ;; remove starting underscore