+;; Homepage: http://www.cognition.ens.fr/~guerry/u/org-export-latex.el

+;; Version: 5.09

+;; GNU Emacs is free software; you can redistribute it and/or modify it

+;; under the terms of the GNU General Public License as published by the

+;; Free Software Foundation; either version 3, or (at your option) any

+;; later version.

+;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT

+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

+;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for

+;; more details.

+;;

+;; You should have received a copy of the GNU General Public License along

+;; with GNU Emacs; see the file COPYING. If not, write to the Free Software

+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA

+;; 02110-1301, USA.

+;;

+;; This library implements a LaTeX exporter for org-mode.

+;;

+(eval-when-compile

+ (require 'cl))

+

+(require 'org)

+;;; Variables:

+(defvar org-export-latex-list-beginning-re

+ "^\\([ \t]*\\)\\([-+]\\|[0-9]+\\(?:\\.\\|)\\)\\) *?")

+(defvar latexp) ; dynamically scoped from org.el

+(defvar re-quote) ; dynamically scoped from org.el

+(defvar commentsp) ; dynamically scoped from org.el

+

+;;; Custom variables:

+(defcustom org-export-latex-date-format

+ "%d %B %Y"

+(defcustom org-export-latex-tables-verbatim nil

+ "When non-nil, export tables as verbatim."

+ :group 'org-export-latex

+ :type 'boolean)

+

+(defcustom org-export-latex-remove-from-headlines

+;;; Autoload functions:

+ (org-cleaned-string-for-export

+ region :emph-multiline t

+ :comments nil

+ :add-text text

+ :skip-before-1st-heading skip

+

+

+ (or to-buffer (save-buffer))

+;;; Parsing functions:

+(defun org-export-latex-parse-list (&optional delete)

+ "Parse the list at point.

+Return a list containing first level items as strings and

+sublevels as list of strings."

+ (let ((start (point))

+ ;; Find the end of the list

+ (end (save-excursion

+ (catch 'exit

+ (while (or (looking-at org-export-latex-list-beginning-re)

+ (looking-at "^[ \t]+\\|^$"))

+ (if (eq (point) (point-max))

+ (throw 'exit (point-max)))

+ (forward-line 1))) (point)))

+ output itemsep)

+ (while (re-search-forward org-export-latex-list-beginning-re end t)

+ (setq itemsep (if (save-match-data

+ (string-match "^[0-9]" (match-string 2)))

+ "[0-9]+\\(?:\\.\\|)\\)" "[-+]"))

+ (let* ((indent1 (match-string 1))

+ (nextitem (save-excursion

+ (save-match-data

+ (or (and (re-search-forward

+ (concat "^" indent1 itemsep " *?") end t)

+ (match-beginning 0)) end))))

+ (item (buffer-substring

+ (point)

+ (or (and (re-search-forward

+ org-export-latex-list-beginning-re end t)

+ (goto-char (match-beginning 0)))

+ (goto-char end))))

+ (nextindent (match-string 1))

+ (item (org-trim item))

+ (item (if (string-match "^\\[.+\\]" item)

+ (replace-match "\\\\texttt{\\&}"

+ t nil item) item)))

+ (push item output)

+ (when (> (length nextindent)

+ (length indent1))

+ (narrow-to-region (point) nextitem)

+ (push (org-export-latex-parse-list) output)

+ (widen))))

+ (when delete (delete-region start end))

+ (setq output (nreverse output))

+ (push (if (string-match "^\\[0" itemsep)

+ 'ordered 'unordered) output)))

+

+;;; Rendering functions:

+ (let ((num (plist-get org-latex-options-plist :section-numbers)))

+ (mapc (lambda(x) (org-export-latex-subcontent x num)) subcontent)))

+(defun org-export-latex-subcontent (subcontent num)

+ (subcontent (cadr (assoc 'subcontent subcontent))))

+

+;;; Exporting internals:

+(defun org-latex-protect (string)

+ (add-text-properties 0 (length string) '(org-protected t) string) string)

+

+(defun org-export-latex-protect-char-in-string (char-list string)

+ "Add org-protected text-property to char from CHAR-LIST in STRING."

+ (with-temp-buffer

+ (save-match-data

+ (insert string)

+ (goto-char (point-min))

+ (while (re-search-forward (regexp-opt char-list) nil t)

+ (add-text-properties (match-beginning 0)

+ (match-end 0) '(org-protected t)))

+ (buffer-string))))

+

+(defun org-export-latex-set-initial-vars (ext-plist)

+ "Store org local variables required for LaTeX export.

+EXT-PLIST is an optional additional plist."

+ (setq org-latex-todo-keywords-1 org-todo-keywords-1

+ org-latex-all-targets-regexp

+ (org-make-target-link-regexp (org-all-targets))

+ org-latex-options-plist

+ (org-combine-plists (org-default-export-plist) ext-plist

+ (org-infile-export-plist))

+ org-latex-sectioning-depth

+ (let ((hl-levels (plist-get org-latex-options-plist :headline-levels))

+ (sec-depth (length org-export-latex-sectioning-alist)))

+ ;; Fall back on org-export-latex-sectioning-alist length if

+ ;; headline-levels goes beyond it

+ (if (> hl-levels sec-depth) sec-depth hl-levels))))

+

+(defun org-export-latex-make-preamble (opt-plist)

+ "Make the LaTeX preamble and return it as a string.

+Argument OPT-PLIST is the options plist for current buffer."

+ (let ((toc (plist-get opt-plist :table-of-contents)))

+ (concat (if (plist-get opt-plist :time-stamp-file)

+ (format-time-string "% Created %Y-%m-%d %a %H:%M\n"))

+

+ ;; LaTeX custom preamble

+ org-export-latex-preamble "\n"

+

+ ;; LaTeX packages

+ (if org-export-latex-packages-alist

+ (mapconcat (lambda(p)

+ (if (equal "" (car p))

+ (format "\\usepackage{%s}" (cadr p))

+ (format "\\usepackage[%s]{%s}"

+ (car p) (cadr p))))

+ org-export-latex-packages-alist "\n") "")

+ "\n\\begin{document}\n\n"

+

+ ;; title

+ (format

+ "\\title{%s}\n"

+ (or (plist-get opt-plist :title)

+ (and (not

+ (plist-get opt-plist :skip-before-1st-heading))

+ (org-export-grab-title-from-buffer))

+ (and buffer-file-name

+ (file-name-sans-extension

+ (file-name-nondirectory buffer-file-name)))

+ "UNTITLED"))

+

+ ;; author info

+ (if (plist-get opt-plist :author-info)

+ (format "\\author{%s}\n"

+ (or (plist-get opt-plist :author) user-full-name))

+ (format "%%\\author{%s}\n"

+ (or (plist-get opt-plist :author) user-full-name)))

+

+ ;; date

+ (format "\\date{%s}\n"

+ (format-time-string

+ (or (plist-get opt-plist :date)

+ org-export-latex-date-format)))

+

+ "\\maketitle\n\n"

+ ;; table of contents

+ (if (and (plist-get opt-plist :section-numbers) toc)

+ (format "\\setcounter{tocdepth}{%s}\n"

+ (plist-get opt-plist :headline-levels)) "")

+ (if (and (plist-get opt-plist :section-numbers) toc)

+ "\\tableofcontents\n" "\n"))))

+

+(defun org-export-latex-first-lines (&optional comments)

+ "Export the first lines before first headline.

+COMMENTS is either nil to replace them with the empty string or a

+formatting string like %%%%s if we want to comment them out."

+ (save-excursion

+ (goto-char (point-min))

+ (let* ((end (if (re-search-forward "^\\*" nil t)

+ (goto-char (match-beginning 0))

+ (goto-char (point-max)))))

+ (org-export-latex-content

+ (org-cleaned-string-for-export

+ (buffer-substring (point-min) end)

+ :for-LaTeX t

+ :emph-multiline t

+ :add-text nil

+ :comments nil

+ :skip-before-1st-heading nil

+ :LaTeX-fragments nil)))))

+

+(defun org-export-latex-keywords-maybe (remove-list)

+ (if (or (not org-export-with-tags)

+ (plist-get remove-list :tags))

+ (when (plist-get org-latex-options-plist :emphasize)

+ (org-export-latex-fontify))

+ (org-export-latex-keywords-maybe

+ org-export-latex-remove-from-headlines)

+ (org-export-latex-keywords

+ (plist-get org-latex-options-plist :timestamps))

+ (org-export-latex-lists)

+ (let* ((lang (plist-get org-latex-options-plist :language))

+;; | { } _ ^ \ | \{ \} \_ \^ \\ | { } _ ^ \ |

+ (cond ((equal (match-string 1) "\\") nil)

+ ((eq 'org-link (get-text-property 0 'face (match-string 2)))

+ (replace-match (concat (match-string 1) "\\~") t t))

+ (t (replace-match

+ (org-latex-protect

+ (concat (match-string 1) "\\~{}")) t t))))

+ "\\([a-za-z0-9]+\\|[ \t\n]\\|\\b\\|\\\\\\)\\(_\\|\\^\\)\\([a-za-z0-9]+\\|[ \t\n]\\|[:punct:]\\|{[a-za-z0-9]+}\\|([a-za-z0-9]+)\\)"

+ "\\(.\\|^\\)\\(\\\\\\)\\([ \t\n]\\|[a-zA-Z&#%{}\"]+\\)"

+ (cond ((eq 'org-link (get-text-property 0 'face char))

+ ((and subsup

+ (subsup (concat "$" string-before char string-after "$"))

+ (t (org-latex-protect

+ (concat string-before "\\" char "{}" string-after)))))

+ (t (org-latex-protect

+ (concat string-before "\\" char "{}" string-after)))))

+ (not (string-match "[ \t]\\'\\|^" string-before)))

+(defun org-export-latex-keywords (timestamps)

+ "Convert special keywords to LaTeX.

+Regexps are those from `org-latex-special-string-regexps'."

+ (let ((rg org-latex-special-string-regexps) r)

+ (while (setq r (pop rg))

+ (goto-char (point-min))

+ (while (re-search-forward (eval r) nil t)

+ (if (not timestamps)

+ (replace-match (format "\\\\texttt{%s}" (match-string 0)) t)

+ (replace-match ""))))))

+

+;; FIXME Use org-export-highlight-first-table-line ?

+(defun org-export-latex-lists ()

+ "Convert lists to LaTeX."

+ (goto-char (point-min))

+ (while (re-search-forward org-export-latex-list-beginning-re nil t)

+ (beginning-of-line)

+ (org-export-list-to-latex

+ (org-export-latex-parse-list t))))

+

+(defun org-export-list-to-generic (list params)

+ "Convert a LIST parsed through `org-export-latex-parse-list' to other formats.

+

+Valid parameters are

+

+:ustart String to start an unordered list

+:uend String to end an unordered list

+

+:ostart String to start an ordered list

+:oend String to end an ordered list

+

+:splice When set to t, return only list body lines, don't wrap

+ them into :[u/o]start and :[u/o]end. Default is nil.

+

+:istart String to start a list item

+:iend String to end a list item

+:isep String to separate items

+:lsep String to separate sublists"

+ (interactive)

+ (let* ((p params) sublist

+ (splicep (plist-get p :splice))

+ (ostart (plist-get p :ostart))

+ (oend (plist-get p :oend))

+ (ustart (plist-get p :ustart))

+ (uend (plist-get p :uend))

+ (istart (plist-get p :istart))

+ (iend (plist-get p :iend))

+ (isep (plist-get p :isep))

+ (lsep (plist-get p :lsep)))

+ (let ((wrapper

+ (cond ((eq (car list) 'ordered)

+ (concat ostart "\n%s" oend "\n"))

+ ((eq (car list) 'unordered)

+ (concat ustart "\n%s" uend "\n"))))

+ rtn)

+ (while (setq sublist (pop list))

+ (cond ((symbolp sublist) nil)

+ ((stringp sublist)

+ (setq rtn (concat rtn istart sublist iend isep)))

+ (t

+ (setq rtn (concat rtn ;; previous list

+ lsep ;; list separator

+ (org-export-list-to-generic sublist p)

+ lsep ;; list separator

+ )))))

+ (format wrapper rtn))))

+

+(defun org-export-list-to-latex (list)

+ "Convert LIST into a LaTeX list."

+ (insert

+ (org-export-list-to-generic

+ list '(:splicep nil :ostart "\\begin{enumerate}" :oend "\\end{enumerate}"

+ :ustart "\\begin{itemize}" :uend "\\end{itemize}"

+ :istart "\\item " :iend ""

+ :isep "\n" :lsep "\n"))

+ ;; Add a trailing \n after list conversion

+ "\n"))

+

+ ;; (save-excursion (save-match-data (org-table-align)))

+ (if org-export-latex-tables-verbatim

+ (let* ((raw-table (buffer-substring beg end))

+ (tbl (concat "\\begin{verbatim}\n" raw-table

+ "\\end{verbatim}\n")))

+ (apply 'delete-region (list beg end))

+ (insert tbl))

+ (progn

+ (while (not (eq end (point)))

+ (if (looking-at "[ \t]*|\\([^-|].+\\)|[ \t]*$")

+ (push (split-string (org-trim (match-string 1)) "|") tbl-list)

+ (push 'hline tbl-list))

+ (forward-line))

+ ;; comment region out instead of deleting it ?

+ (apply 'delete-region (list beg end))

+ (when opt (insert (orgtbl-to-latex (nreverse tbl-list)

+ nil) "\n\n")))))))

+(defun org-export-latex-cleaned-string

+ ;; FIXME remove commentsp call in org.el and here

+ (&optional commentsp)

+ ;; align all tables

+ (goto-char (point-min))

+ (while (re-search-forward "^\\([ \t]*\\)|" nil t)

+ ;; Re-align the table to update org-table-last-alignment

+ (org-table-align))

+

+ ;; Preserve line breaks

+ ;; Convert LaTeX to \LaTeX{}

+ ;; Convert horizontal rules

+ ;; Protect LaTeX \commands{...}

+ (while (re-search-forward "\\\\[a-zA-Z]+\\(?:\\[.*\\]\\)?{.*}" nil t)

+

+ (while (re-search-forward

+ (concat "<<<?" org-latex-all-targets-regexp

+ ">>>?\\((INVISIBLE)\\)?") nil t)

+ (replace-match

+ (org-latex-protect

+ (format "\\label{%s}%s"(match-string 1)

+ (if (match-string 2) "" (match-string 1)))) t t))

+

+ ;; Delete @<...> constructs

+ ;; Thanks to Daniel Clemente for this regexp

+ (while (re-search-forward "@<\\(?:[^\"\n]\\|\".*\"\\)*?>" nil t)

+

+ (setq footnote

+ (concat

+ (org-trim (buffer-substring (point) end))

+ ;; FIXME stupid workaround for cases where

+ ;; `org-bracket-link-analytic-regexp' matches

+ ;; }. as part of the link.

+ " "))

+ (add-text-properties 0 10 '(org-protected t) footnote-rpl)

+ (replace-match ""))))