diff options
| -rw-r--r-- | happy-birthday.el | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/happy-birthday.el b/happy-birthday.el new file mode 100644 index 0000000..fb96a6c --- /dev/null +++ b/happy-birthday.el @@ -0,0 +1,23 @@ +;;; happy-birthday.el -- -*- lexical-binding: t -*- + +(defmacro seb (&rest x) + (let ((r) (w)) + (dolist (e x) + (cond ((eq e '!) (push ?a w)) + ((eq e '!?) + (push (intern (apply 'string w)) r) + (setf w nil)) + ((eq e '()) (setf (car w) (1+ (car w)))))) + `(quote ,r))) +(seb + ! () ! () () () () ! () () () () () () () () () () () + () () () () () () () !? ! () () () () () () () () + () () () () () () () () () () () () () () () () ! ! + () () () ! () () () () () () () ! () () () () () () + () () () () () () () () () () () () () ! () () () + () () () () () () () () () () () () () () ! () () + () () () () () () ! () !? ! () () () () () () () () + () () () () () () () () () () () () () () () () ! + () () () () () () () () () () () () () () () ! () + () () () () () () () () () () () () () () ! ! () () + () () () () () !?) |