From 35ef17c7d093d7e49c3a159a87e655c99efb7f11 Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Sun, 28 Nov 2021 22:47:27 +0100 Subject: [PATCH] [Misc] Exporter no longer generates backup files --- export.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/export.el b/export.el index 6bf7106..bc16c35 100755 --- a/export.el +++ b/export.el @@ -10,21 +10,19 @@ (package-install 'htmlize) (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) (progn (mapc (lambda (file) - (progn (message (concat "====================\n" + (progn (message (concat "=====================\n" "Exporting " file "\n" - "====================\n")) + "=====================\n")) (with-current-buffer (find-file file) (org-html-export-to-html)))) - (directory-files directory t (regexp-quote ".org"))) - (mapc (lambda (file) - (delete-file file nil)) - (directory-files directory t (regexp-quote "html~"))))) + (directory-files directory t (regexp-quote ".org"))))) (dolist (dir '("org/config/" "org/config/Deprecated/" "org/config/WIP")) (export-and-clean dir))