From ed96338b2168e9856c122cd4e43734f962102479 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 23 Dec 2011 16:30:00 +0100 Subject: [PATCH] EXPERIMENTAL/org-e-latex: Apply change of back-end's name * EXPERIMENTAL/org-e-latex.el (org-e-latex--caption/label-string, org-e-latex-template, org-e-latex-headline, org-e-latex-inlinetask, org-e-latex-item, org-e-latex-keyword, org-e-latex-link, org-e-latex-src-block, org-e-latex-table, org-e-latex-verse-block): Apply change of back-end's name. --- EXPERIMENTAL/org-e-latex.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/EXPERIMENTAL/org-e-latex.el b/EXPERIMENTAL/org-e-latex.el index bf7745bc3..a66420859 100644 --- a/EXPERIMENTAL/org-e-latex.el +++ b/EXPERIMENTAL/org-e-latex.el @@ -588,7 +588,7 @@ If there's no caption nor label, return the empty string. For non-floats, see `org-e-latex--wrap-label'." (let ((caption-str (and caption (org-export-secondary-string - caption 'latex info))) + caption 'e-latex info))) (label-str (if label (format "\\label{%s}" label) ""))) (cond ((and (not caption-str) (not label)) "") @@ -670,7 +670,7 @@ This function shouldn't be used for floats. See CONTENTS is the transcoded contents string. INFO is a plist holding export options." (let ((title (org-export-secondary-string - (plist-get info :title) 'latex info))) + (plist-get info :title) 'e-latex info))) (concat ;; 1. Time-stamp. (and (plist-get info :time-stamp-file) @@ -699,10 +699,10 @@ holding export options." (let ((author (and (plist-get info :with-author) (let ((auth (plist-get info :author))) (and auth (org-export-secondary-string - auth 'latex info))))) + auth 'e-latex info))))) (email (and (plist-get info :with-email) (org-export-secondary-string - (plist-get info :email) 'latex info)))) + (plist-get info :email) 'e-latex info)))) (cond ((and author email (not (string= "" email))) (format "\\author{%s\\thanks{%s}}\n" author email)) (author (format "\\author{%s}\n" author)) @@ -937,12 +937,12 @@ holding contextual information." (concat (car sec) "\n%s" (nth 1 sec)) (concat (nth 2 sec) "\n%s" (nth 3 sec))))))) (text (org-export-secondary-string - (org-element-get-property :title headline) 'latex info)) + (org-element-get-property :title headline) 'e-latex info)) (todo (and (plist-get info :with-todo-keywords) (let ((todo (org-element-get-property :todo-keyword headline))) (and todo - (org-export-secondary-string todo 'latex info))))) + (org-export-secondary-string todo 'e-latex info))))) (todo-type (and todo (org-element-get-property :todo-type headline))) (tags (and (plist-get info :with-tags) (org-element-get-property :tags headline))) @@ -1062,12 +1062,12 @@ contextual information." CONTENTS holds the contents of the block. INFO is a plist holding contextual information." (let ((title (org-export-secondary-string - (org-element-get-property :title inlinetask) 'latex info)) + (org-element-get-property :title inlinetask) 'e-latex info)) (todo (and (plist-get info :with-todo-keywords) (let ((todo (org-element-get-property :todo-keyword inlinetask))) (and todo - (org-export-secondary-string todo 'latex info))))) + (org-export-secondary-string todo 'e-latex info))))) (todo-type (org-element-get-property :todo-type inlinetask)) (tags (and (plist-get info :with-tags) (org-element-get-property :tags inlinetask))) @@ -1119,7 +1119,7 @@ contextual information." (tag (let ((tag (org-element-get-property :tag item))) (and tag (format "[%s]" (org-export-secondary-string - tag 'latex info)))))) + tag 'e-latex info)))))) (concat counter "\\item" tag " " checkbox contents))) @@ -1150,7 +1150,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ((string= "figures" value) "\\listoffigures") ((string= "listings" value) "\\listoflistings")))) ((string= key "include") - (org-export-included-file keyword 'latex info))))) + (org-export-included-file keyword 'e-latex info))))) ;;;; Latex Environment @@ -1274,7 +1274,7 @@ INFO is a plist holding contextual information. See ((member type '("custom-id" "target" "radio")) (format "\\hyperref[%s]{%s}" (org-export-solidify-link-text path) - (or desc (org-export-secondary-string path 'latex info)))) + (or desc (org-export-secondary-string path 'e-latex info)))) ;; Fuzzy: With the help of `org-export-resolve-fuzzy-link', find ;; the destination of the link. ((string= type "fuzzy") @@ -1286,20 +1286,20 @@ INFO is a plist holding contextual information. See (org-export-solidify-link-text destination) (or desc (org-export-secondary-string - (org-element-get-property :raw-link link) 'latex info)))) + (org-element-get-property :raw-link link) 'e-latex info)))) ;; Headline match. ((integerp destination) (format "\\hyperref[headline-%d]{%s}" destination (or desc (org-export-secondary-string - (org-element-get-property :raw-link link) 'latex info)))) + (org-element-get-property :raw-link link) 'e-latex info)))) ;; No match. (t (format "\\texttt{%s}" (or desc (org-export-secondary-string (org-element-get-property :raw-link link) - 'latex info))))))) + 'e-latex info))))))) ;; Coderef: replace link with the reference name or the ;; equivalent line number. ((string= type "coderef") @@ -1519,7 +1519,7 @@ contextual information." (caption-str (and caption (org-export-secondary-string (org-element-get-property :caption src-block) - 'latex info)))) + 'e-latex info)))) (concat (format "\\lstset{%s}\n" (org-e-latex--make-option-string (append org-e-latex-listings-options @@ -1725,7 +1725,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (org-element-parse-secondary-string cell (cdr (assq 'table org-element-string-restrictions))) - 'latex info)) + 'e-latex info)) (org-split-string row "[ \t]*|[ \t]*")))) (org-split-string clean-table "\n")) `(:tstart nil :tend nil @@ -1831,7 +1831,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (org-remove-indentation (org-export-secondary-string (org-element-get-property :value verse-block) - 'latex info))))) + 'e-latex info))))) (while (string-match "^[ \t]+" contents) (let ((new-str (format "\\hspace*{%dem}" (length (match-string 0 contents)))))