| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- %.html: %.org
- emacs -batch -l batch-export.el --eval "(batch-org-export-as 'html)" $<
- %.pdf: %.tex
- latexmk --shell-escape -pdf -xelatex $<
- %.tex: %.org
- emacs -batch -l batch-export.el --eval "(batch-org-export-as 'latex)" $<
- ;;; -*- mode: emacs-lisp -*-
- (add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/lisp"))
- (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
- (setq org-export-backends '(html latex))
- (require 'org-loaddefs)
- (defun org-export-file-to (backend src dest)
- (with-temp-buffer
- (insert-file-contents src)
- (org-export-to-file backend dest)))
- (setq file-suffixes
- '((html . ".html")
- (latex . ".tex")
- (pdf . ".pdf")))
- (defun org-export-dest (backend f)
- (concat (file-name-sans-extension f) (cdr (assoc backend file-suffixes))))
- (defun batch-org-export-as (backend &optional noforce)
- "Run `org-export-as' with the given backend on the files remaining on the command line.
- Use this from the command line, with `-batch'; it won't work in
- an interactive Emacs. Each file is processed even if an error
- occurred previously. For example, invoke \"emacs -batch -f
- batch-byte-compile $emacs/ ~/*.el\". If NOFORCE is non-nil,
- don't recompile a file that seems to be already up-to-date."
- ;; command-line-args-left is what is left of the command line, from
- ;; startup.el.
- (defvar command-line-args-left) ;Avoid 'free variable' warning
- (if (not noninteractive)
- (error "`batch-org-export-as' is to be used only with -batch"))
- (let ((error nil))
- (while command-line-args-left
- (if (file-directory-p (expand-file-name (car command-line-args-left)))
- ;; Directory as argument.
- (let (source dest)
- (dolist (file (directory-files (car command-line-args-left)))
- (if (and (string-match emacs-lisp-file-regexp file)
- (not (auto-save-file-name-p file))
- (setq source
- (expand-file-name file
- (car command-line-args-left)))
- (setq dest (org-export-dest backend source))
- (file-exists-p dest)
- (file-newer-than-file-p source dest))
- (if (null (org-export-file-to backend source dest))
- (setq error t)))))
- ;; Specific file argument
- (let* ((source (car command-line-args-left))
- (dest (org-export-dest backend source)))
- (if (or (not noforce)
- (or (not (file-exists-p dest))
- (file-newer-than-file-p source dest)))
- (if (null (org-export-file-to backend (car command-line-args-left) dest))
- (setq error t)))))
- (setq command-line-args-left (cdr command-line-args-left)))
- (kill-emacs (if error 1 0))))
|
