export.el

@@ -10,19 +10,21 @@
 (package-install 'htmlize)
 
 (setq org-confirm-babel-evaluate nil
-      org-html-validation-link nil
-      make-backup-files nil)
+      org-html-validation-link 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")))))
+                (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"))
   (export-and-clean dir))