tec
/
org-pandoc-import
1
0
Fork 0
Code Issues 5 Pull Requests 3 Releases Activity

Remove transient working dirs on emacs exit

This commit is contained in:
TEC 2020-10-25 16:55:20 +08:00
parent fc0117201f
commit 554b1896b9
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
org-pandoc-import-transient.el
View File

@ -162,7 +162,20 @@ Thus, if we re-open the file with `org-pandoc-import-transient-mode' enabled,
we want to re-create the associated org file."
(plist-put (cdr (assoc (buffer-file-name) org-pandoc-import-transient--files)) :initialised nil))
(defun org-pandoc-import-transient--cleanup ()
"Remove all .opi-transient working dirs, to avoid cluttering.
Dirs to remove are found from `org-pandoc-import-transient--files'."
(dolist (transient-dir
(delete-dups
(mapcar #'file-name-directory
(delq nil
(mapcar (lambda (item) (plist-get (cdr item) :target))
org-pandoc-import-transient--files)))))
(delete-directory transient-dir t))
(setq org-pandoc-import-transient--files nil))
(org-pandoc-import-transient--register-file-handlers)
(add-hook 'kill-emacs-hook #'org-pandoc-import-transient--cleanup)
(provide 'org-pandoc-import-transient)