talexander/organic
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Fix sorting of entity names.

Browse Source
This commit is contained in:
Tom Alexander
2023-10-08 23:31:19 -04:00
parent fc17fc224c
commit c679a85e77
3 changed files with 281 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
elisp_snippets/dump_org_entities.el
View File

@@ -1,12 +1,11 @@
(dolist (var org-entities)
(when (listp var)
(message "EntityDefinition {name: %s, latex_math_mode: %s, latex: %s, html: %s, ascii: %s, utf8: %s},"
(prin1-to-string (nth 0 var))
(if (nth 2 var) "true" "false")
(prin1-to-string (nth 1 var))
(prin1-to-string (nth 3 var))
(prin1-to-string (nth 4 var))
(prin1-to-string (nth 6 var))
)
)
(dolist (var (sort (seq-filter 'listp org-entities)
(lambda (x y) (> (length (nth 0 x)) (length (nth 0 y))))))
(message "EntityDefinition {name: %s, latex_math_mode: %s, latex: %s, html: %s, ascii: %s, utf8: %s},"
(prin1-to-string (nth 0 var))
(if (nth 2 var) "true" "false")
(prin1-to-string (nth 1 var))
(prin1-to-string (nth 3 var))
(prin1-to-string (nth 4 var))
(prin1-to-string (nth 6 var))
)
)