Re: [Orgmode] [PATCH] Fix the export of underscores in links in the LaTeX export

[Carsten Dominik]

Thanks for the patch, I am fixing this problem
on a more fundamental level, already during preprocessing.

- Carsten

On Jan 8, 2009, at 1:58 PM, Christian Egli wrote:


Hi

I have the attached org file which I export to LaTeX. With the current
version of git the export produces the link as follows:

\href{http://wiki.dspace.org/index.php/Configure\_media\_{}filters} 
{media filters}


Notice the spurious '{}' before filters. Needless to say this link
doesn't work.

I tried to understand the source of the problem and came up with the
following patch which seems to work. However since I don't quite
understand this code you should take my change with a grain of salt.
With my patch I now get the following link.

\href{http://wiki.dspace.org/index.php/Configure\_media\_filters} 
{media filters}


#+OPTIONS:   ^:nil TeX:nil toc:nil

* Title
** Subtitle
[[http://wiki.dspace.org/index.php/Configure_media_filters][media  
filters]]


Thanks
Christian
---
lisp/org-export-latex.el |7 ---
1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-export-latex.el b/lisp/org-export-latex.el
index daa75dc..eeb8199 100644
--- a/lisp/org-export-latex.el
+++ b/lisp/org-export-latex.el
@@ -958,12 +958,13 @@ SUBSUP corresponds to the ^: option in the # 
+OPTIONS line.

Convert CHAR depending on STRING-BEFORE and STRING-AFTER."
  (cond ((equal string-before "\\")
 (concat string-before char string-after))
+   ; deal with links
+   ((eq 'org-link (get-text-property 0 'face char))
+(concat string-before "\\" char string-after))
;; this is part of a math formula
((and (string-match "\\S-+" string-before)
  (string-match "\\S-+" string-after))
-(cond ((eq 'org-link (get-text-property 0 'face char))
-   (concat string-before "\\" char string-after))
-  ((save-match-data (org-inside-latex-math-p))
+(cond ((save-match-data (org-inside-latex-math-p))
(if subsup
(cond ((eq 1 (length string-after))
   (concat string-before char string-after))
--
1.5.6.3

___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode




___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

[Orgmode] [PATCH] Fix the export of underscores in links in the LaTeX export

[Christian Egli]

Hi

I have the attached org file which I export to LaTeX. With the current
version of git the export produces the link as follows:

\href{http://wiki.dspace.org/index.php/Configure\_media\_{}filters}{media 
filters}

Notice the spurious '{}' before filters. Needless to say this link
doesn't work.

I tried to understand the source of the problem and came up with the
following patch which seems to work. However since I don't quite
understand this code you should take my change with a grain of salt.
With my patch I now get the following link.

 \href{http://wiki.dspace.org/index.php/Configure\_media\_filters}{media 
filters}

#+OPTIONS:   ^:nil TeX:nil toc:nil

* Title
** Subtitle
[[http://wiki.dspace.org/index.php/Configure_media_filters][media filters]]

Thanks
Christian
---
 lisp/org-export-latex.el |7 ---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-export-latex.el b/lisp/org-export-latex.el
index daa75dc..eeb8199 100644
--- a/lisp/org-export-latex.el
+++ b/lisp/org-export-latex.el
@@ -958,12 +958,13 @@ SUBSUP corresponds to the ^: option in the #+OPTIONS line.
 Convert CHAR depending on STRING-BEFORE and STRING-AFTER."
   (cond ((equal string-before "\\")
 (concat string-before char string-after))
+   ; deal with links
+   ((eq 'org-link (get-text-property 0 'face char))
+(concat string-before "\\" char string-after))
;; this is part of a math formula
((and (string-match "\\S-+" string-before)
  (string-match "\\S-+" string-after))
-(cond ((eq 'org-link (get-text-property 0 'face char))
-   (concat string-before "\\" char string-after))
-  ((save-match-data (org-inside-latex-math-p))
+(cond ((save-match-data (org-inside-latex-math-p))
(if subsup
(cond ((eq 1 (length string-after))
   (concat string-before char string-after))
-- 
1.5.6.3

___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode