12 lines
501 B
EmacsLisp
12 lines
501 B
EmacsLisp
(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))
|
|
)
|
|
)
|