jordonbiondo
/ doge.el
Created
February 12, 2014 21:24
— forked from anonymous/doge.el
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun doge-ify (&rest phrases) | |
| (let ((uc-ws #x2001) | |
| (prefixes '("such" "wow" "wow such" "much" "very" "so" "too" "super" "amaze" )) | |
| (fillers '("wow" "amaze" "good job" "super" "fancy" "woof" "[amaze intensifies]" "[wow intensifies]"))) | |
| (cl-flet* ((n-spaces (n) (apply 'string (mapcar (lambda (c) (if (< 3 (random 10)) c ?\s )) (make-string n uc-ws)))) | |
| (random-space () (n-spaces (* 2 (+ 3 (random 10))))) | |
| (random-prefix () (nth (random (length prefixes)) prefixes)) | |
| (random-filler () (nth (random (length fillers)) fillers))) | |
| (reduce 'concat (mapcar (lambda (phrase) | |
| (concat (random-prefix) (n-spaces 1) phrase (random-space) |