mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Introduce a help function for entities

Browse Source 
* lisp/org-entities.el (org-entities-help): New command.
This commit is contained in:
Carsten Dominik 2010-06-03 18:17:08 +02:00
parent 73f04ce48e
commit 48dfb47f52
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org-entities.el
View File

@ -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)