Compare commits
6 Commits
2713daceda
...
a6a1b3e7b6
Author | SHA1 | Date |
---|---|---|
Lucien Cartier-Tilet | a6a1b3e7b6 | |
Lucien Cartier-Tilet | d5628bd9fe | |
Lucien Cartier-Tilet | bb5699d650 | |
Lucien Cartier-Tilet | 2f2a7aa674 | |
Lucien Cartier-Tilet | 7252623ada | |
Lucien Cartier-Tilet | 35ef17c7d0 |
12
export.el
12
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))
|
||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue