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