mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 03:02:52 +00:00
Make LaTeX_CLASS also work in a setup file
This commit is contained in:
parent
e4bdd9238c
commit
f99fa74db1
|
@ -1,3 +1,13 @@
|
||||||
|
2009-09-30 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org-latex.el (org-export-latex-set-initial-vars): Also check in
|
||||||
|
the plist.
|
||||||
|
|
||||||
|
* org.el (org-additional-option-like-keywords): Add LATEX_CLASS
|
||||||
|
keyword.
|
||||||
|
|
||||||
|
* org-exp.el (org-infile-export-plist): Add LATEX_CLASS keyword.
|
||||||
|
|
||||||
2009-09-29 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-09-29 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org-inlinetask.el (org-inlinetask-export): Option removed.
|
* org-inlinetask.el (org-inlinetask-export): Option removed.
|
||||||
|
|
|
@ -657,12 +657,13 @@ modified) list.")
|
||||||
(let ((re (org-make-options-regexp
|
(let ((re (org-make-options-regexp
|
||||||
(append
|
(append
|
||||||
'("TITLE" "AUTHOR" "DATE" "EMAIL" "TEXT" "OPTIONS" "LANGUAGE"
|
'("TITLE" "AUTHOR" "DATE" "EMAIL" "TEXT" "OPTIONS" "LANGUAGE"
|
||||||
"LINK_UP" "LINK_HOME" "SETUPFILE" "STYLE" "LATEX_HEADER"
|
"LINK_UP" "LINK_HOME" "SETUPFILE" "STYLE"
|
||||||
|
"LATEX_HEADER" "LATEX_CLASS"
|
||||||
"EXPORT_SELECT_TAGS" "EXPORT_EXCLUDE_TAGS"
|
"EXPORT_SELECT_TAGS" "EXPORT_EXCLUDE_TAGS"
|
||||||
"KEYWORDS" "DESCRIPTION" "MACRO" "BIND")
|
"KEYWORDS" "DESCRIPTION" "MACRO" "BIND")
|
||||||
(mapcar 'car org-export-inbuffer-options-extra))))
|
(mapcar 'car org-export-inbuffer-options-extra))))
|
||||||
p key val text options a pr style
|
p key val text options a pr style
|
||||||
latex-header macros letbind
|
latex-header latex-class macros letbind
|
||||||
ext-setup-or-nil setup-contents (start 0))
|
ext-setup-or-nil setup-contents (start 0))
|
||||||
(while (or (and ext-setup-or-nil
|
(while (or (and ext-setup-or-nil
|
||||||
(string-match re ext-setup-or-nil start)
|
(string-match re ext-setup-or-nil start)
|
||||||
|
@ -687,6 +688,8 @@ modified) list.")
|
||||||
(setq style (concat style "\n" val)))
|
(setq style (concat style "\n" val)))
|
||||||
((string-equal key "LATEX_HEADER")
|
((string-equal key "LATEX_HEADER")
|
||||||
(setq latex-header (concat latex-header "\n" val)))
|
(setq latex-header (concat latex-header "\n" val)))
|
||||||
|
((string-equal key "LATEX_CLASS")
|
||||||
|
(setq latex-class val))
|
||||||
((string-equal key "TEXT")
|
((string-equal key "TEXT")
|
||||||
(setq text (if text (concat text "\n" val) val)))
|
(setq text (if text (concat text "\n" val) val)))
|
||||||
((string-equal key "OPTIONS")
|
((string-equal key "OPTIONS")
|
||||||
|
@ -721,6 +724,8 @@ modified) list.")
|
||||||
(when style (setq p (plist-put p :style-extra style)))
|
(when style (setq p (plist-put p :style-extra style)))
|
||||||
(when latex-header
|
(when latex-header
|
||||||
(setq p (plist-put p :latex-header-extra (substring latex-header 1))))
|
(setq p (plist-put p :latex-header-extra (substring latex-header 1))))
|
||||||
|
(when latex-class
|
||||||
|
(setq p (plist-put p :latex-class latex-class)))
|
||||||
(when options
|
(when options
|
||||||
(setq p (org-export-add-options-to-plist p options)))
|
(setq p (org-export-add-options-to-plist p options)))
|
||||||
;; Add macro definitions
|
;; Add macro definitions
|
||||||
|
|
|
@ -928,6 +928,7 @@ LEVEL indicates the default depth for export."
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(and (re-search-forward "^#\\+LaTeX_CLASS:[ \t]*\\([a-zA-Z]+\\)" nil t)
|
(and (re-search-forward "^#\\+LaTeX_CLASS:[ \t]*\\([a-zA-Z]+\\)" nil t)
|
||||||
(match-string 1))))
|
(match-string 1))))
|
||||||
|
(plist-get org-export-latex-options-plist :latex-class)
|
||||||
org-export-latex-default-class)
|
org-export-latex-default-class)
|
||||||
org-export-latex-class
|
org-export-latex-class
|
||||||
(or (car (assoc org-export-latex-class org-export-latex-classes))
|
(or (car (assoc org-export-latex-class org-export-latex-classes))
|
||||||
|
|
|
@ -9129,7 +9129,7 @@ This function can be used in a hook."
|
||||||
(defconst org-additional-option-like-keywords
|
(defconst org-additional-option-like-keywords
|
||||||
'("BEGIN_HTML" "END_HTML" "HTML:" "ATTR_HTML"
|
'("BEGIN_HTML" "END_HTML" "HTML:" "ATTR_HTML"
|
||||||
"BEGIN_DocBook" "END_DocBook" "DocBook:" "ATTR_DocBook"
|
"BEGIN_DocBook" "END_DocBook" "DocBook:" "ATTR_DocBook"
|
||||||
"BEGIN_LaTeX" "END_LaTeX" "LaTeX:" "LATEX_HEADER:" "ATTR_LaTeX"
|
"BEGIN_LaTeX" "END_LaTeX" "LaTeX:" "LATEX_HEADER:" "LATEX_CLASS:" "ATTR_LaTeX"
|
||||||
"BEGIN:" "END:"
|
"BEGIN:" "END:"
|
||||||
"ORGTBL" "TBLFM:" "TBLNAME:"
|
"ORGTBL" "TBLFM:" "TBLNAME:"
|
||||||
"BEGIN_EXAMPLE" "END_EXAMPLE"
|
"BEGIN_EXAMPLE" "END_EXAMPLE"
|
||||||
|
|
Loading…
Reference in a new issue