feat(misc): add helper command to display list of available fonts

core/siren-core-modules.el

@@ -72,6 +72,7 @@
 
 ;; Misc.
 (require 'siren-explain-pause)
+(require 'siren-list-available-fonts)
 (require 'siren-lorem-ipsum)
 (require 'siren-rand)
 (require 'siren-refine)

modules/misc/siren-list-available-fonts.el

@@ -0,0 +1,22 @@
+;;; siren-list-available-fonts.el --- jimeh's Emacs Siren: list-available-fonts helper.
+
+;;; Commentary:
+
+;; Helper function to list available fonts in a temporary buffer.
+
+;;; Code:
+
+(defun list-available-fonts ()
+  "Display a list of available fonts in a new buffer."
+  (interactive)
+  (let ((font-list (sort (font-family-list) 'string<))
+        (buffer-name "*Available Fonts*"))
+    (with-output-to-temp-buffer buffer-name
+      (with-current-buffer buffer-name
+        (dolist (font font-list)
+          (insert font "\n"))
+        (special-mode)))
+    (pop-to-buffer buffer-name)))
+
+(provide 'siren-list-available-fonts)
+;;; siren-list-available-fonts.el ends here