summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-06-03 18:17:08 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2010-06-03 18:17:08 +0200
commit48dfb47f520301223e74e4bed92ebda224372ad0 (patch)
treeeca8511eca4da558c74e6f5bbfa057b6cb1b9d1b
parent73f04ce48ea0a763095d6f44e11a14bb9cc08371 (diff)
downloadorg-mode-48dfb47f520301223e74e4bed92ebda224372ad0.tar.gz
Introduce a help function for entities
* lisp/org-entities.el (org-entities-help): New command.
-rw-r--r--lisp/org-entities.el18
1 files changed, 18 insertions, 0 deletions
diff --git a/lisp/org-entities.el b/lisp/org-entities.el
index d7c52b6..f7c20d5 100644
--- a/lisp/org-entities.el
+++ b/lisp/org-entities.el
@@ -480,6 +480,24 @@ Kind can be any of `latex', `html', `ascii', `latin1', or `utf8'."
(goto-char pos)
(org-table-align)))
+(defun org-entities-help ()
+ "Create a Help buffer with all available entities"
+ (interactive)
+ (with-output-to-temp-buffer "*Help*"
+ (princ "Org-mode entities\n=================\n\n")
+ (let ((ll (append org-entities-user org-entities))
+ e latex mathp html latin utf8 name ascii)
+ (princ "Symbol Org entity LaTeX code HTML code\n")
+ (princ "-----------------------------------------------------------\n")
+ (while ll
+ (setq e (pop ll))
+ (setq name (car e)
+ latex (nth 1 e)
+ html (nth 3 e)
+ utf8 (nth 6 e))
+ (princ (format "%-8s \\%-16s %-22s %-13s\n"
+ utf8 name latex html))))))
+
(defun replace-amp ()
"Postprocess HTML file to unescape the ampersant."
(interactive)