org2html.el


1
2
3
4
5
6
7

(let ((bufname (car command-line-args-left))
      (target (car (cdr command-line-args-left))))
  (set-buffer (find-file bufname))
  (let ((name (org-html-export-to-html)))
    (if target
        (rename-file name target t))
    (kill-buffer (current-buffer))))