branch: externals/show-font
commit 6ca36f382e6d088df4cd04c6db7816f135bf5802
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add some outline headings
---
show-font.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/show-font.el b/show-font.el
index d301670791..65466403f7 100644
--- a/show-font.el
+++ b/show-font.el
@@ -79,6 +79,8 @@ x×X .,·°;:¡!¿?`'‘’ ÄAÃÀ TODO
:type 'string
:group 'show-font)
+;;;; Faces
+
(defgroup show-font-faces nil
"Show font features in a buffer WORK-IN-PROGRESS."
:group 'show-font)
@@ -123,6 +125,7 @@ x×X .,·°;:¡!¿?`'‘’ ÄAÃÀ TODO
;;;###autoload
(defconst show-font-extensions-regexp "\\.\\(ttf\\|otf\\)\\'"
"Regular expression to match font file extensions.")
+;;;; Helper functions
(defconst show-font-latin-alphabet
(eval-when-compile (mapcar #'string (number-sequence ?a ?z)))
@@ -269,6 +272,8 @@ buffer."
(save-excursion
(insert (show-font--prepare-text)))))))
+;;;; Major mode to preview the font of the current TTF or OTF file
+
;;;###autoload
(define-derived-mode show-font-mode special-mode "Show Font"
"Major mode to preview a font file's character set."
