From c6d5682037b54886ccc679ea78f0833083d9f0d6 Mon Sep 17 00:00:00 2001
From: Jim Myhrberg <contact@jimeh.me>
Date: Mon, 20 Nov 2023 19:40:54 +0000
Subject: [PATCH] feat(misc): add helper command to display list of available
 fonts

---
 core/siren-core-modules.el                 |  1 +
 modules/misc/siren-list-available-fonts.el | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 modules/misc/siren-list-available-fonts.el

diff --git a/core/siren-core-modules.el b/core/siren-core-modules.el
index 07b7054..ba06797 100644
--- a/core/siren-core-modules.el
+++ b/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)
diff --git a/modules/misc/siren-list-available-fonts.el b/modules/misc/siren-list-available-fonts.el
new file mode 100644
index 0000000..d8b7559
--- /dev/null
+++ b/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