From a71e757c8d14fbe0eb7187b9bd6d317edf302f27 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 5 Aug 2022 17:29:45 +0200 Subject: [PATCH] fix(org): create org-persist-directory recursively `org-persist-write:index' does not recursively create `org-persist-directory', causing `make-directory` to throw a file-missing if a parent directory is missing. Fix: #6635 Ref: bzg/org-mode@edd7f2962fe1 --- modules/lang/org/config.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 82d3edb08..3105b755b 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -680,6 +680,13 @@ mutating hooks on exported output, like formatters." '("show4levels*" org-startup-folded show4levels*) '("show5levels*" org-startup-folded show5levels*)) + ;; TODO Upstream this. + (defadvice! +org--recursive-org-persist-mkdir-a (fn &rest args) + "`org-persist-write:index' does not recursively create +`org-persist-directory', which causes an error if it's a parent doesn't exist." + :before #'org-persist-write:index + (make-directory org-persist-directory t)) + (defadvice! +org--more-startup-folded-options-a () "Adds support for 'showNlevels*' startup options. Unlike showNlevels, this will also unfold parent trees."