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

Allow error inspection in dlocks via lisp debugger

Browse Source
This commit is contained in:
Chris Barrett
2022-08-25 21:04:45 +12:00
parent c64ad61c6a
commit c97f68e9f3
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -221,7 +221,7 @@ predicates.")
;; (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 err (condition-case-unless-debug err
(progn ,@body) (progn ,@body)
(error (error
(error "Error evaluating %s form: %s" (error "Error evaluating %s form: %s"
@@ -341,7 +341,7 @@ and old content."
;;; Backlinks dblock type ;;; Backlinks dblock type
(defun org-roam-dblocks-format-backlinks (params) (defun org-roam-dblocks-format-backlinks (params)
(condition-case err (condition-case-unless-debug err
(progn (progn
(org-roam-dblocks-args-assert params t) (org-roam-dblocks-args-assert params t)
(-let* ((id (org-roam-dblocks-args-id params)) (-let* ((id (org-roam-dblocks-args-id params))
@@ -371,7 +371,7 @@ and old content."
;;; Roam notes search dblock type ;;; Roam notes search dblock type
(defun org-roam-dblocks-format-notes (params) (defun org-roam-dblocks-format-notes (params)
(condition-case err (condition-case-unless-debug err
(progn (progn
(org-roam-dblocks-args-assert params t) (org-roam-dblocks-args-assert params t)
(cl-assert (or (org-roam-dblocks-args-match params) (cl-assert (or (org-roam-dblocks-args-match params)