awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-02 14:53:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

💄 Indentation

Browse Source
This commit is contained in:
Chris Barrett
2023-12-29 11:18:51 +13:00
parent 45c4052b0a
commit 8a0d397459
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/org-roam-dblocks.el
View File

@@ -167,7 +167,7 @@ If non-nil, only org-roam nodes with the specified tags have
their blocks updated automatically." their blocks updated automatically."
:group 'org-roam-dblocks :group 'org-roam-dblocks
:type '(choice (const nil) :type '(choice (const nil)
(repeat :tag "Tag" (string)))) (repeat :tag "Tag" (string))))
(defcustom org-roam-dblocks-autoupdate-silently-p t (defcustom org-roam-dblocks-autoupdate-silently-p t
"Whether to suppress messages during the dblock update process." "Whether to suppress messages during the dblock update process."
@@ -228,8 +228,8 @@ their blocks updated automatically."
(defconst org-roam-dblocks--node-slot-symbols (defconst org-roam-dblocks--node-slot-symbols
'(file file-title file-hash file-atime file-mtime '(file file-title file-hash file-atime file-mtime
id level point todo priority scheduled deadline title properties olp id level point todo priority scheduled deadline title properties olp
tags aliases refs) tags aliases refs)
"A list of slots names on org-roam-nodes. "A list of slots names on org-roam-nodes.
This list is used to create lexical bindings in anaphoric This list is used to create lexical bindings in anaphoric
@@ -252,13 +252,13 @@ predicates.")
;; (org-roam-dblocks--parse-filter-fn :foo 'it) ;; (org-roam-dblocks--parse-filter-fn :foo 'it)
;; (org-roam-dblocks--parse-filter-fn :foo '(equal it 0)) ;; (org-roam-dblocks--parse-filter-fn :foo '(equal it 0))
(cl-macrolet ((lambda-with-error-handling (binding &rest body) (cl-macrolet ((lambda-with-error-handling (binding &rest body)
`(lambda ,binding `(lambda ,binding
(condition-case-unless-debug err (condition-case-unless-debug err
(progn ,@body) (progn ,@body)
(error (error
(error "Error evaluating %s form: %s" (error "Error evaluating %s form: %s"
keyword keyword
(error-message-string err))))))) (error-message-string err)))))))
(cond (cond
((null form) ((null form)
nil) nil)