2863 |
"Read any extra arguments for figlet." |
"Read any extra arguments for figlet." |
2864 |
(interactive) |
(interactive) |
2865 |
(let* ((avail-fonts (artist-figlet-get-font-list)) |
(let* ((avail-fonts (artist-figlet-get-font-list)) |
2866 |
(font (completing-read (concat "Select font: (default " |
(font (completing-read (concat "Select font (default " |
2867 |
artist-figlet-default-font |
artist-figlet-default-font |
2868 |
") ") |
"): ") |
2869 |
(mapcar |
(mapcar |
2870 |
(lambda (font) (cons font font)) |
(lambda (font) (cons font font)) |
2871 |
avail-fonts)))) |
avail-fonts)))) |