From f357e5f644078a28eb11133131002ddbca3e0cb8 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 24 Apr 2010 14:14:15 +0200 Subject: [PATCH] Change the dot in section numbers to underscore, to get valid CSS class names --- lisp/ChangeLog | 4 ++++ lisp/org-html.el | 11 ++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f4800f05c..1a2508274 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2010-04-24 Carsten Dominik + * org-html.el (org-export-as-html, org-html-level-start): + Change the dot in section numbers to underscore, to get valid + CSS class names. + * org-table.el (org-table-justify-field-maybe): Make sure that inserting a value does not turn a line into a hline. diff --git a/lisp/org-html.el b/lisp/org-html.el index 71f62ebfd..133bffab3 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -871,7 +871,9 @@ lang=\"%s\" xml:lang=\"%s\"> t t line))) (while (string-match "<\\(<\\)+\\|>\\(>\\)+" txt) (setq txt (replace-match "" t t txt))) - (setq href (format "sec-%s" snumber)) + (setq href + (replace-regexp-in-string + "\\." "_" (format "sec-%s" snumber))) (setq href (or (cdr (assoc href org-export-preferred-target-alist)) href)) (push (format @@ -2085,8 +2087,11 @@ When TITLE is nil, just close all open levels." " " title))) (unless (= head-count 1) (insert "\n\n")) (setq href (cdr (assoc (concat "sec-" snumber) org-export-preferred-target-alist))) - (setq suffix (or href snumber)) - (setq href (or href (concat "sec-" snumber))) + (setq suffix (or href + (replace-regexp-in-string "\\." "_" snumber))) + (setq href (or href + (replace-regexp-in-string + "\\." "_" (concat "sec-" snumber)))) (insert (format "\n
\n%s%s\n
\n" suffix level (if extra-class (concat " " extra-class) "") level href