Function: artist-figlet-choose-font

artist-figlet-choose-font is an interactive and byte-compiled function defined in artist.el.gz.

Signature

(artist-figlet-choose-font)

Documentation

Read any extra arguments for figlet.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-figlet-choose-font ()
  "Read any extra arguments for figlet."
  (interactive)
  (let* ((avail-fonts
          (if (memq system-type '(windows-nt ms-dos))
              (artist-figlet-get-font-list-windows)
            (artist-figlet-get-font-list)))
	 (font (completing-read (concat "Select font (default "
					artist-figlet-default-font
					"): ")
				(mapcar
				 (lambda (font) (cons font font))
				 avail-fonts))))
    (if (string= font "") artist-figlet-default-font font)))