Просмотр исходного кода

LaTeX export: Macro processing also in author field

Carsten Dominik 16 лет назад
Родитель
Сommit
1902dfacbe
2 измененных файлов с 5 добавлено и 1 удалено
  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"))