[PATCH] Change underscores to hyphens for HTML export

[PATCH] Change underscores to hyphens for HTML export

[Nick Dokos]

From 28c0b3afce11a8e2bd452ccab44b96c00a4401ca Mon Sep 17 00:00:00 2001
From: Nick Dokos <nick@dokosmarshall.org>
Date: Sat, 11 Jun 2011 23:38:09 -0400
Subject: [PATCH] Change underscores to hyphens for HTML export

* lisp/org-html.el (org-export-as-html): changed underscores to hyphens in section number.
(org-html-level-start): ditto.

Daniel Clemente reported that after commit
438536f6157794101ce0957e39cad6bf70580751 which changed underscores to
hyphens in org-exp.el, he had problems exporting HTML files that used
to work. In particular, org files that used CUSTOM_ID properties were
broken.

This patch is a minimal fix for this problem: it changes underscores
to hyphens in section numbers only. Daniel has tested the fix on an
extensive collection of org files and reports that no additional
problems have surfaced. There are other places in org-html where
underscores are used, so there may be additional problems: if any are
found, they should be fairly straightforward to fix (as this problem
was).

Many thanks to Daniel for findind and reporting the problem and testing
the fix on a large collection of his org files.

TINYCHANGE

Signed-off-by: Nick Dokos <nick@dokosmarshall.org>
---
 lisp/org-html.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-html.el b/lisp/org-html.el
index afc6a77..b5d371f 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -1395,7 +1395,7 @@ lang=\"%s\" xml:lang=\"%s\">
 					   (setq txt (replace-match "" t t txt)))
 					 (setq href
 					       (replace-regexp-in-string
-						"\\." "_" (format "sec-%s" snumber)))
+						"\\." "-" (format "sec-%s" snumber)))
 					 (setq href (org-solidify-link-text (or (cdr (assoc href org-export-preferred-target-alist)) href)))
 					 (push
 					  (format
@@ -2412,7 +2412,7 @@ When TITLE is nil, just close all open levels."
 		(insert "<ul>\n<li>" title "<br/>\n"))))
 	(aset org-levels-open (1- level) t)
 	(setq snumber (org-section-number level)
-	      snu (replace-regexp-in-string "\\." "_" snumber))
+	      snu (replace-regexp-in-string "\\." "-" snumber))
 	(setq level (+ level org-export-html-toplevel-hlevel -1))
 	(if (and num (not body-only))
 	    (setq title (concat
-- 
1.7.5.1.169.g505a1

Re: [PATCH] Change underscores to hyphens for HTML export

[Carsten Dominik]

Applied, thanks.

- Carsten

On Jun 13, 2011, at 6:28 PM, Nick Dokos wrote:

> From 28c0b3afce11a8e2bd452ccab44b96c00a4401ca Mon Sep 17 00:00:00 2001
> From: Nick Dokos <nick@dokosmarshall.org>
> Date: Sat, 11 Jun 2011 23:38:09 -0400
> Subject: [PATCH] Change underscores to hyphens for HTML export
> 
> * lisp/org-html.el (org-export-as-html): changed underscores to hyphens in section number.
> (org-html-level-start): ditto.
> 
> Daniel Clemente reported that after commit
> 438536f6157794101ce0957e39cad6bf70580751 which changed underscores to
> hyphens in org-exp.el, he had problems exporting HTML files that used
> to work. In particular, org files that used CUSTOM_ID properties were
> broken.
> 
> This patch is a minimal fix for this problem: it changes underscores
> to hyphens in section numbers only. Daniel has tested the fix on an
> extensive collection of org files and reports that no additional
> problems have surfaced. There are other places in org-html where
> underscores are used, so there may be additional problems: if any are
> found, they should be fairly straightforward to fix (as this problem
> was).
> 
> Many thanks to Daniel for findind and reporting the problem and testing
> the fix on a large collection of his org files.
> 
> TINYCHANGE
> 
> Signed-off-by: Nick Dokos <nick@dokosmarshall.org>
> ---
> lisp/org-html.el |    4 ++--
> 1 files changed, 2 insertions(+), 2 deletions(-)
> 
> diff --git a/lisp/org-html.el b/lisp/org-html.el
> index afc6a77..b5d371f 100644
> --- a/lisp/org-html.el
> +++ b/lisp/org-html.el
> @@ -1395,7 +1395,7 @@ lang=\"%s\" xml:lang=\"%s\">
> 					   (setq txt (replace-match "" t t txt)))
> 					 (setq href
> 					       (replace-regexp-in-string
> -						"\\." "_" (format "sec-%s" snumber)))
> +						"\\." "-" (format "sec-%s" snumber)))
> 					 (setq href (org-solidify-link-text (or (cdr (assoc href org-export-preferred-target-alist)) href)))
> 					 (push
> 					  (format
> @@ -2412,7 +2412,7 @@ When TITLE is nil, just close all open levels."
> 		(insert "<ul>\n<li>" title "<br/>\n"))))
> 	(aset org-levels-open (1- level) t)
> 	(setq snumber (org-section-number level)
> -	      snu (replace-regexp-in-string "\\." "_" snumber))
> +	      snu (replace-regexp-in-string "\\." "-" snumber))
> 	(setq level (+ level org-export-html-toplevel-hlevel -1))
> 	(if (and num (not body-only))
> 	    (setq title (concat
> -- 
> 1.7.5.1.169.g505a1
> 
> 

- Carsten