diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-06-03 18:17:08 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-06-03 18:17:08 +0200 |
commit | 48dfb47f520301223e74e4bed92ebda224372ad0 (patch) | |
tree | eca8511eca4da558c74e6f5bbfa057b6cb1b9d1b | |
parent | 73f04ce48ea0a763095d6f44e11a14bb9cc08371 (diff) | |
download | org-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.el | 18 |
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) |