- (require 'ox)
- (setq org-html-validation-link nil)
- (setq org-export-time-stamp-file nil)
- (defun main ()
- (let* ((org-file (car command-line-args-left))
- (html-file (concat (substring org-file 0 -4) ".html")))
- (with-temp-buffer
- (insert-file-contents org-file)
- (org-export-to-file 'html html-file))))
- (main)
|
