Browse Source

babel: change exported source-block names to more closely mimic the WEB style

Eric Schulte 15 years ago
parent
commit
b3e0d4ea7f
1 changed files with 7 additions and 5 deletions
  1. 7 5
      lisp/org-exp.el

+ 7 - 5
lisp/org-exp.el

@@ -2436,7 +2436,8 @@ INDENT was the original indentation of the block."
 			(setq rtn
                               (concat
                                (if caption
-                                   (format "<label class=\"org-src-name\">%s</label>\n" caption)
+                                   (format "<label class=\"org-src-name\">%s  &equiv</label>\n"
+                                           caption)
                                  "")
                                (replace-match
 				   (format "<pre class=\"src src-%s\">\n" lang)
@@ -2476,10 +2477,11 @@ INDENT was the original indentation of the block."
 					       lang-sym
 					       org-export-latex-listings-langs))
 					     lang)))
-                                     (format "\\lstset{language=%s}" lstlang))
-                                 "")
-                               "\\begin{lstlisting}"
-                               (if caption (format "[title={%s}]\n" caption) "\n")
+                                     (format "\\lstset{language=%s}\n" lstlang))
+                                 "\n")
+                               (when caption
+                                 (format "%s $\\equiv$ \n" caption))
+                               "\\begin{lstlisting}\n"
                                rtn "\\end{lstlisting}\n")
                             (concat (car org-export-latex-verbatim-wrap)
                                     rtn (cdr org-export-latex-verbatim-wrap)))