awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-09 12:57:22 -05:00
Code Issues Packages Projects Releases Wiki Activity

s/advice-add/define-advice

Browse Source
This commit is contained in:
Chris Barrett
2022-08-16 22:39:51 +12:00
parent 47f45cf06f
commit 4238c9daac
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -179,7 +179,7 @@ their blocks updated automatically."
;; blindly clear out the block's content. We then check whether the block
;; content needs to be updated.
(defun org-roam-dblocks--prepare-dblock (fn &rest args)
(define-advice org-prepare-dblock (:around (fn &rest args) org-roam-dblocks-dirty-checks)
"Advice to hack org's dblock update flow for the dblock types we define.
FN is the advised function, and ARGS are its arguments.
@ -221,9 +221,6 @@ and old content."
params))))
(with-eval-after-load 'org
(advice-add 'org-prepare-dblock :around #'org-roam-dblocks--prepare-dblock))
;;;###autoload
(defun org-roam-dblocks--write-content (params)
(when-let* ((new-content (plist-get params :new-content)))