From 5e33872e23d48eca8f297b45c97e5ebfac857f4b Mon Sep 17 00:00:00 2001 From: Joar von Arndt <88452361+JanJoar@users.noreply.github.com> Date: Wed, 1 Jan 2025 18:46:58 +0100 Subject: [PATCH] Adds an org-static-blog-after-publish hook --- org-static-blog.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/org-static-blog.el b/org-static-blog.el index 6c3c288..d169d8b 100644 --- a/org-static-blog.el +++ b/org-static-blog.el @@ -265,6 +265,11 @@ Only if og tags are enabled. It can be overridden with the :type '(string) :safe t) +(defcustom org-static-blog-after-publish-hook nil + "Hook run after org-static-blog-publish." + :type 'hook + :safe t) + ;; localization support (defconst org-static-blog-texts '((other-posts @@ -427,6 +432,11 @@ re-rendered. With a prefix argument, all blog posts are re-rendered unconditionally." (interactive "P") + (org-static-blog-publish-blog force-render) + (run-hooks 'org-static-blog-after-publish-hook)) + +(defun org-static-blog-publish-blog (force-render) + "Renders the blog before \='org-static-blog-after-publish-hook\='." (dolist (file (append (org-static-blog-get-post-filenames) (org-static-blog-get-draft-filenames))) (when (or force-render (org-static-blog-needs-publishing-p file))