mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
fe6a4e7ce5
I've set `lexical-binding` to `nil` in all Emacs Lisp files to suppress the warnings introduced in Emacs 31 requiring all elisp files to have a `lexical-binding` comment. This retains the default behavior of dynamic binding when no `lexical-binding` comment is present. With it set to `t` across the board, various things break, and fixing those is a task for another day.
23 lines
703 B
EmacsLisp
23 lines
703 B
EmacsLisp
;;; siren-list-available-fonts.el --- jimeh's Emacs Siren: list-available-fonts helper. -*- lexical-binding: nil; -*-
|
|
|
|
;;; 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
|