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

Deregister file handlers before removing temp dirs

This commit is contained in:
TEC 2020-10-25 17:13:17 +08:00
parent f51f51e8a6
commit 986ce28c28
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -65,6 +65,11 @@ active extensions."
(nconc file-name-handler-alist (list (cons org-transient-file-regex #'org-pandoc-import-transient--maybe-converted-org-file-handler))))
(unless org-alist
(nconc auto-mode-alist (list (cons org-transient-file-regex #'org-mode))))))
(defun org-pandoc-import-transient--deregister-file-handlers ()
"Remove (the main) org-pandoc-import handler from `file-name-handler-alist'."
(setq file-name-handler-alist
(delete (rassoc 'org-pandoc-import-transient--file-handler file-name-handler-alist)
file-name-handler-alist)))
(defun org-pandoc-import-transient--file-handler (operation &rest args)
(let ((inhibit-file-name-handlers
@ -164,8 +169,9 @@ 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.
"Deregister file handlers and remove all .opi-transient working dirs, to avoid cluttering.
Dirs to remove are found from `org-pandoc-import-transient--files'."
(org-pandoc-import-transient--deregister-file-handlers)
(dolist (transient-dir
(delete-dups
(mapcar #'file-name-directory