tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-e-latex: Add creator info in hypersetup when it should be commented

Browse source 
* EXPERIMENTAL/org-e-latex.el (org-e-latex-template): Add creator info
  in hypersetup when it should be commented.
This commit is contained in:
Nicolas Goaziou 2012-02-07 08:20:27 +01:00
parent aac1c8b60d
commit 678de3fdf0
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
EXPERIMENTAL/org-e-latex.el
View file

@ -840,11 +840,8 @@ holding export options."
(format "\\hypersetup{\n pdfkeywords={%s},\n pdfsubject={%s},\n pdfcreator={%s}}\n" (format "\\hypersetup{\n pdfkeywords={%s},\n pdfsubject={%s},\n pdfcreator={%s}}\n"
(or (plist-get info :keywords) "") (or (plist-get info :keywords) "")
(or (plist-get info :description) "") (or (plist-get info :description) "")
(let ((creator-info (plist-get info :with-creator))) (if (not (plist-get info :with-creator)) ""
(cond (plist-get info :creator)))
((not creator-info) "")
((eq creator-info 'comment) "")
(t (plist-get info :creator)))))
;; 9. Document start. ;; 9. Document start.
"\\begin{document}\n\n" "\\begin{document}\n\n"
;; 10. Title command. ;; 10. Title command.
@ -866,7 +863,7 @@ holding export options."
;; 13. Creator. ;; 13. Creator.
(let ((creator-info (plist-get info :with-creator))) (let ((creator-info (plist-get info :with-creator)))
(cond (cond
((not creator-info)) ((not creator-info) "")
((eq creator-info 'comment) ((eq creator-info 'comment)
(format "%% %s\n" (plist-get info :creator))) (format "%% %s\n" (plist-get info :creator)))
(t (concat (plist-get info :creator) "\n")))) (t (concat (plist-get info :creator) "\n"))))