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@edd7f2962f
This commit is contained in:
Henrik Lissner 2022-08-05 17:29:45 +02:00
parent 433c9e344d
commit a71e757c8d
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -680,6 +680,13 @@ mutating hooks on exported output, like formatters."
'("show4levels*" org-startup-folded show4levels*) '("show4levels*" org-startup-folded show4levels*)
'("show5levels*" org-startup-folded show5levels*)) '("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 () (defadvice! +org--more-startup-folded-options-a ()
"Adds support for 'showNlevels*' startup options. "Adds support for 'showNlevels*' startup options.
Unlike showNlevels, this will also unfold parent trees." Unlike showNlevels, this will also unfold parent trees."