Browse Source

LaTeX export: Macro processing also in author field

Carsten Dominik 15 years ago
parent
commit
1902dfacbe
2 changed files with 5 additions and 1 deletions
  1. 3 0
      lisp/ChangeLog
  2. 2 1
      lisp/org-latex.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2010-03-09  Carsten Dominik  <carsten.dominik@gmail.com>
 2010-03-09  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
+	* org-latex.el (org-export-latex-make-header): Apply macros in
+	author field.
+
 	* org-clock.el (org-clocking-buffer, org-clocking-p): New function.
 	* org-clock.el (org-clocking-buffer, org-clocking-p): New function.
 	(org-clock-select-task, org-clock-notify-once-if-expired)
 	(org-clock-select-task, org-clock-notify-once-if-expired)
 	(org-clock-in, org-clock-out, org-clock-cancel, org-clock-goto)
 	(org-clock-in, org-clock-out, org-clock-cancel, org-clock-goto)

+ 2 - 1
lisp/org-latex.el

@@ -1142,7 +1142,8 @@ The function mus take one parameter, the depth of the table of contents.")
 TITLE is the current title from the buffer or region.
 TITLE is the current title from the buffer or region.
 OPT-PLIST is the options plist for current buffer."
 OPT-PLIST is the options plist for current buffer."
   (let ((toc (plist-get opt-plist :table-of-contents))
   (let ((toc (plist-get opt-plist :table-of-contents))
-	(author (plist-get opt-plist :author)))
+	(author (org-export-apply-macros-in-string
+		 (plist-get opt-plist :author))))
     (concat
     (concat
      (if (plist-get opt-plist :time-stamp-file)
      (if (plist-get opt-plist :time-stamp-file)
 	 (format-time-string "%% Created %Y-%m-%d %a %H:%M\n"))
 	 (format-time-string "%% Created %Y-%m-%d %a %H:%M\n"))