branch: externals/denote-org
commit 9647c7bd924bd758e26a38c249f68ed44aff687f
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Consolidate the 'eval-after-load' for the dynamic blocks
---
denote-org.el | 40 ++++++++++------------------------------
1 file changed, 10 insertions(+), 30 deletions(-)
diff --git a/denote-org.el b/denote-org.el
index 5368f4971f..57bbec8034 100644
--- a/denote-org.el
+++ b/denote-org.el
@@ -454,12 +454,6 @@ Also see `denote-org-dblock--files'."
:include-date nil))
(org-update-dblock))
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
- '(progn
- (org-dynamic-block-define "denote-links"
'denote-org-dblock-insert-links)))
-
;; TODO 2024-12-04: Maybe we can do this for anything that deals with
;; regular expressions that users provide? I prefer not to do the
;; work if nobody wants it, though I am mentioning this here just in
@@ -520,12 +514,6 @@ Used by `org-dblock-update' with PARAMS provided by the
dynamic block."
:include-date nil))
(org-update-dblock))
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
- '(progn
- (org-dynamic-block-define "denote-missing-links"
'denote-org-dblock-insert-missing-links)))
-
;;;###autoload
(defun org-dblock-write:denote-missing-links (params)
"Function to update `denote-links' Org Dynamic blocks.
@@ -578,12 +566,6 @@ Used by `org-dblock-update' with PARAMS provided by the
dynamic block."
:include-date nil))
(org-update-dblock))
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
- '(progn
- (org-dynamic-block-define "denote-backlinks"
'denote-org-dblock-insert-backlinks)))
-
;;;###autoload
(defun org-dblock-write:denote-backlinks (params)
"Function to update `denote-backlinks' Org Dynamic blocks.
@@ -707,12 +689,6 @@ among `denote-sort-components'."
:add-links nil))
(org-update-dblock))
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
- '(progn
- (org-dynamic-block-define "denote-files"
'denote-org-dblock-insert-files)))
-
;;;###autoload
(defun org-dblock-write:denote-files (params)
"Function to update `denote-files' Org Dynamic blocks.
@@ -832,12 +808,6 @@ as its own heading."
:add-links nil))
(org-update-dblock))
-;; NOTE 2024-03-30: This is how the autoload is done in org.el.
-;;;###autoload
-(eval-after-load 'org
- '(progn
- (org-dynamic-block-define "denote-files-as-headings"
'denote-org-dblock-insert-files-as-headings)))
-
;;;###autoload
(defun org-dblock-write:denote-files-as-headings (params)
"Function to update `denote-files' Org Dynamic blocks.
@@ -853,5 +823,15 @@ Used by `org-dblock-update' with PARAMS provided by the
dynamic block."
(when rx (denote-org-dblock-add-files-as-headings rx add-links sort
reverse excluded-dirs not-rx)))
(join-line)) ; remove trailing empty line
+;; NOTE 2024-03-30: This is how the autoload is done in org.el.
+;;;###autoload
+(eval-after-load 'org
+ '(progn
+ (org-dynamic-block-define "denote-links" 'denote-org-dblock-insert-links)
+ (org-dynamic-block-define "denote-missing-links"
'denote-org-dblock-insert-missing-links)
+ (org-dynamic-block-define "denote-backlinks"
'denote-org-dblock-insert-backlinks)
+ (org-dynamic-block-define "denote-files" 'denote-org-dblock-insert-files)
+ (org-dynamic-block-define "denote-files-as-headings"
'denote-org-dblock-insert-files-as-headings)))
+
(provide 'denote-org)
;;; denote-org.el ends here
