Browse Source

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.
Nicolas Goaziou 13 years ago
parent
commit
ed96338b21
1 changed files with 17 additions and 17 deletions
  1. 17 17
      EXPERIMENTAL/org-e-latex.el

+ 17 - 17
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)))))