emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove centralization of org exports

Browse source 
It's too much hassle to maintain, and too many exporters expect to work
out of the current directory.
This commit is contained in:
Henrik Lissner 2020-02-16 02:50:52 -05:00
parent 24d2f494c9
commit 92e8521e90
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 0 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

29
modules/lang/org/config.el
View file

@ -52,10 +52,6 @@ Is relative to `org-directory', unless it is absolute. Is used in Doom's default
(defvar +org-initial-fold-level 2 (defvar +org-initial-fold-level 2
"The initial fold level of org files when no #+STARTUP options for it.") "The initial fold level of org files when no #+STARTUP options for it.")
(defvar +org-enable-centralized-exports t
"If non-nil, files exported from files in `org-directory' will be stored in
`+org-export-directory', rather than the same directory has the input file(s).")
(defvar +org-export-directory ".export/" (defvar +org-export-directory ".export/"
"Where to store exported files relative to `org-directory'. Can be an absolute "Where to store exported files relative to `org-directory'. Can be an absolute
path too.") path too.")
@ -358,30 +354,6 @@ underlying, modified buffer. This fixes that."
(add-to-list 'projectile-globally-ignored-directories org-attach-id-dir))) (add-to-list 'projectile-globally-ignored-directories org-attach-id-dir)))
(defun +org-init-centralized-exports-h ()
"TODO"
;; I don't have any beef with org's built-in export system, but I do wish it
;; would export to a central directory (by default), rather than
;; `default-directory'. This is because all my org files are usually in one
;; place, and I want to be able to refer back to old exports if needed.
(setq +org-export-directory (expand-file-name +org-export-directory org-directory))
(defadvice! +org--export-output-file-name-a (args)
"Return a centralized export location unless one is provided or the current
file isn't in `org-directory'."
:filter-args #'org-export-output-file-name
(when (and +org-enable-centralized-exports
(not (nth 2 args))
buffer-file-name
(file-in-directory-p buffer-file-name org-directory))
(cl-destructuring-bind (extension &optional subtreep _pubdir) args
(let ((dir (expand-file-name +org-export-directory org-directory)))
(unless (file-directory-p dir)
(make-directory dir t))
(setq args (list extension subtreep dir)))))
args))
(defun +org-init-custom-links-h () (defun +org-init-custom-links-h ()
;; Highlight broken file links ;; Highlight broken file links
(org-link-set-parameters (org-link-set-parameters
@ -950,7 +922,6 @@ compelling reason, so..."
#'+org-init-babel-lazy-loader-h #'+org-init-babel-lazy-loader-h
#'+org-init-capture-defaults-h #'+org-init-capture-defaults-h
#'+org-init-capture-frame-h #'+org-init-capture-frame-h
#'+org-init-centralized-exports-h
#'+org-init-custom-links-h #'+org-init-custom-links-h
#'+org-init-export-h #'+org-init-export-h
#'+org-init-habit-h #'+org-init-habit-h