From 427b7ab5a06213fe2edf3842e970b7ecc7be3781 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Wed, 28 Feb 2024 08:21:21 -0500 Subject: update --- happy-birthday.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 happy-birthday.el 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 + ! () ! () () () () ! () () () () () () () () () () () + () () () () () () () !? ! () () () () () () () () + () () () () () () () () () () () () () () () () ! ! + () () () ! () () () () () () () ! () () () () () () + () () () () () () () () () () () () () ! () () () + () () () () () () () () () () () () () () ! () () + () () () () () () ! () !? ! () () () () () () () () + () () () () () () () () () () () () () () () () ! + () () () () () () () () () () () () () () () ! () + () () () () () () () () () () () () () () ! ! () () + () () () () () !?) -- cgit v1.2.3