mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-03 08:30:03 +00:00
Code

New variable org-export-html-protect-char-alist.

Browse Source 
* org-html.el (org-export-html-protect-char-alist): New custom
variable to define characters to be HTML protected.
(org-html-protect): Use the new variable.
This commit is contained in:
Bastien Guerry 2011-02-12 12:49:50 +01:00
parent dbb46ae6b1
commit 3a04522ef1
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/org-html.el
View File

@ -523,6 +523,15 @@ a file."
:group 'org-export-html
:type 'string)
(defcustom org-export-html-protect-char-alist
'(("&" . "&")
("<" . "&lt;")
(">" . "&gt;"))
"Alist of characters to be converted by `org-html-protect'."
:type '((repeat (cons (string :tag "Character")
(string :tag "HTML equivalent")))))
(defgroup org-export-htmlize nil
"Options for processing examples with htmlize.el."
:tag "Org Export Htmlize"
@ -2218,19 +2227,15 @@ that uses these same face definitions."
(goto-char (point-min)))
(defun org-html-protect (s)
"convert & to &amp;, < to &lt; and > to &gt;"
(let ((start 0))
(while (string-match "&" s start)
(setq s (replace-match "&amp;" t t s)
start (1+ (match-beginning 0))))
(while (string-match "<" s)
(setq s (replace-match "&lt;" t t s)))
(while (string-match ">" s)
(setq s (replace-match "&gt;" t t s)))
; (while (string-match "\"" s)
; (setq s (replace-match "&quot;" t t s)))
)
s)
"Convert characters to HTML equivalent.
Possible conversions are set in `org-export-html-protect-char-alist'."
(let ((start 0)
(cl org-export-html-protect-char-alist) c)
(while (setq c (pop cl))
(while (string-match (car c) s start)
(setq s (replace-match (cdr c) t t s)
start (1+ (match-beginning 0)))))
s))
(defun org-html-expand (string)
"Prepare STRING for HTML export. Apply all active conversions.