cl-cowsay/default.lisp at master · goranmoomin/cl-cowsay · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
;;;; default.lisp

(defpackage #:cl-cowsay.default
  (:use #:cl
        #:alexandria)
  (:export #:*defaults*
           #:defaults))

(in-package #:cl-cowsay.default)

(defparameter *defaults*
  (alist-hash-table
   '((:borg . (:eyes "==" :tongue "  " :thoughts "\\"))
     (:dead . (:eyes "xx" :tongue "U " :thoughts "\\"))
     (:greedy . (:eyes "$$" :tongue "  " :thoughts "\\"))
     (:paranoia . (:eyes "@@" :tongue "  " :thoughts "\\"))
     (:stoned . (:eyes "**" :tongue "U " :thoughts "\\"))
     (:tired . (:eyes "--" :tongue "  " :thoughts "\\"))
     (:wired . (:eyes "OO" :tongue "  " :thoughts "\\"))
     (:youthful . (:eyes ".." :tongue "  " :thoughts "\\")))))

(defun defaults (mode)
  (gethash mode *defaults* '(:eyes "oo" :tongue "  " :thoughts "\\")))