ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bug with export of tags in headlines.

This commit is contained in:
Carsten Dominik 2008-07-03 10:36:32 -07:00
parent 9919ff82a0
commit 4636a4d5e4
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ORGWEBPAGE/index.org
View File

@ -58,7 +58,8 @@ http://repo.or.cz/w/org-mode.git
There are several alternative distrbutions of Org: There are several alternative distrbutions of Org:
- The [[http://savannah.gnu.org/cvs/%3Fgroup%3Demacs][Emacs CVS]] contains a recent version - The [[http://savannah.gnu.org/cvs/%3Fgroup%3Demacs][Emacs CVS]] contains a recent version
- There is a [[http://packages.debian.org/sid/main/org-mode][Debian package]] by Sebastien Delafond - There is also a package on [[http://aur.archlinux.org/packages.php?do_Details&ID=18206][Archlinux]], by Jiyunatori.
- The [[http://packages.debian.org/sid/main/org-mode][Debian package]] is maintainned by Sebastien Delafond
- Mark A. Hershberger has made an [[https://launchpad.net/~hexmode/+archive][Ubuntu package]] for Org, but - Mark A. Hershberger has made an [[https://launchpad.net/~hexmode/+archive][Ubuntu package]] for Org, but
that seems to be out of date. that seems to be out of date.

19
lisp/org-export-latex.el
View File

@ -762,11 +762,22 @@ org-protect property."
(replace-match "") (replace-match "")
(replace-match (format "\\texttt{%s}" (match-string 0)) t t))) (replace-match (format "\\texttt{%s}" (match-string 0)) t t)))
;; convert tags ;; convert tags
(when (re-search-forward "\\(:[a-zA-Z0-9]+\\)+:" nil t) (when (re-search-forward "\\(:[a-zA-Z0-9_@]+\\)+:" nil t)
(if (or (not org-export-with-tags) (if (or (not org-export-with-tags)
(plist-get remove-list :tags)) (plist-get remove-list :tags))
(replace-match "") (replace-match "")
(replace-match (format "\\texttt{%s}" (match-string 0)) t t))))) (replace-match
(org-export-latex-protect-string
(format "\\texttt{%s}" (save-match-data
(org-quote-chars (match-string 0)))))
t t)))))
(defun org-quote-chars (s)
(let ((start 0))
(while (string-match "_" s start)
(setq start (+ 2 (match-beginning 0))
s (replace-match "\\_" t t s))))
s)
(defun org-export-latex-fontify-headline (string) (defun org-export-latex-fontify-headline (string)
"Fontify special words in string." "Fontify special words in string."
@ -777,10 +788,10 @@ org-protect property."
(goto-char (point-min)) (goto-char (point-min))
(when (plist-get org-export-latex-options-plist :emphasize) (when (plist-get org-export-latex-options-plist :emphasize)
(org-export-latex-fontify)) (org-export-latex-fontify))
(org-export-latex-special-chars
(plist-get org-export-latex-options-plist :sub-superscript))
(org-export-latex-keywords-maybe (org-export-latex-keywords-maybe
org-export-latex-remove-from-headlines) org-export-latex-remove-from-headlines)
(org-export-latex-special-chars
(plist-get org-export-latex-options-plist :sub-superscript))
(org-export-latex-links) (org-export-latex-links)
(org-trim (buffer-substring-no-properties (point-min) (point-max))))) (org-trim (buffer-substring-no-properties (point-min) (point-max)))))