phundrak
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

[Misc] Exporter no longer generates backup files

This commit is contained in:
Lucien Cartier-Tilet 2021-11-28 22:47:27 +01:00
parent 2713daceda
commit 35ef17c7d0
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
export.el
View File

@ -10,21 +10,19 @@
(package-install 'htmlize) (package-install 'htmlize)
(setq org-confirm-babel-evaluate nil (setq org-confirm-babel-evaluate nil
org-html-validation-link nil) org-html-validation-link nil
make-backup-files nil)
(defun export-and-clean (directory) (defun export-and-clean (directory)
(progn (mapc (lambda (file) (progn (mapc (lambda (file)
(progn (message (concat "====================\n" (progn (message (concat "=====================\n"
"Exporting " "Exporting "
file file
"\n" "\n"
"====================\n")) "=====================\n"))
(with-current-buffer (find-file file) (with-current-buffer (find-file file)
(org-html-export-to-html)))) (org-html-export-to-html))))
(directory-files directory t (regexp-quote ".org"))) (directory-files directory t (regexp-quote ".org")))))
(mapc (lambda (file)
(delete-file file nil))
(directory-files directory t (regexp-quote "html~")))))
(dolist (dir '("org/config/" "org/config/Deprecated/" "org/config/WIP")) (dolist (dir '("org/config/" "org/config/Deprecated/" "org/config/WIP"))
(export-and-clean dir)) (export-and-clean dir))