diff options
author | Carlos Laviola <claviola@debian.org> | 2006-10-26 23:01:19 -0300 |
---|---|---|
committer | Jonathan McCrohan <jmccrohan@gmail.com> | 2012-05-08 14:48:35 +0100 |
commit | 6fe0872d9b672ea1a6fd4f811dde799f94f44245 (patch) | |
tree | 604fc6131e6fd3ee7a2aa8a96cc4844c685680d2 /debian/figlet.el | |
parent | e8ed9bd2e7597f7aefdfc7004a308f0e291c3ca7 (diff) | |
download | figlet-6fe0872d9b672ea1a6fd4f811dde799f94f44245.tar.gz |
Imported Debian patch 2.2.2-1debian/2.2.2-1
Diffstat (limited to 'debian/figlet.el')
-rw-r--r-- | debian/figlet.el | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/debian/figlet.el b/debian/figlet.el new file mode 100644 index 0000000..c9e0ae6 --- /dev/null +++ b/debian/figlet.el @@ -0,0 +1,50 @@ +;; filename: figlet.el +;; Kirby Files, 9/18/94. kfiles@bbn.com +;; add font completion: James LewisMoss 27 Oct 2000, dres@debian.org +;; feel free to modify and distribute; there's not a lot here. +;; call M-x figlet-message to insert a large ascii text in your buffer. +;; Current option is to center text. Feel free to change this if you'd +;; like. +(defvar fig-options "-c") + +(setq save-eval-depth max-lisp-eval-depth) +(setq max-lisp-eval-depth 1000) + +(defun collapse-lists (da-list) + (cond ((stringp da-list) (list da-list)) + ((null da-list) nil) + (t (append (collapse-lists (car da-list)) + (collapse-lists (cdr da-list)))))) + +(defun generate-figlet-font-list (loc-list) + "Generate a list of figlet fonts." + (mapcar + '(lambda (element) + (cons element nil)) + (mapcar + '(lambda (one-file) + (let ((point (string-match ".flf" one-file))) + (substring one-file 0 point))) + (collapse-lists + (mapcar + '(lambda (dir-string) + (directory-files (expand-file-name dir-string) + nil ".*\.flf")) + loc-list))))) + +;; replace this with "figlet -I2" to get the default font dir +(defvar fig-font-locations '("/usr/share/figlet")) + +(defvar fig-font-list (generate-figlet-font-list fig-font-locations)) + +(defun figlet-message () + "Inserts large message of text in ASCII font into current buffer" + (interactive) + (setq str (read-from-minibuffer "Enter message: ")) + (setq font + (completing-read "Which font: " fig-font-list nil t)) + (call-process "figlet" nil t t "-f" font fig-options str) + (message "Done printing")) + + +(setq max-lisp-eval-depth save-eval-depth) |