Revision of emojified.lisp

lobo revised this gist 1731123006. Go to revision

1 file changed, 71 insertions

emojified.lisp(file created)

		@@ -0,0 +1,71 @@
1	+	(ql:quickload 'serapeum)
2	+	(ql:quickload 'nytpu.lisp-utils)
3	+
4	+	(defmacro 📌 (name macro)
5	+	`(progn
6	+	(setf (macro-function ',name)
7	+	(macro-function ',macro))))
8	+	(defmacro ⚙️ (name function)
9	+	`(serapeum:defalias ,name #',function))
10	+
11	+	(📌 🥺 defmethod)
12	+	(📌 😎 defun)
13	+	(📌 💭 serapeum:defconst)
14	+	(📌 🤓 defclass)
15	+	(📌 🔩 defstruct)
16	+	(📌 📝 deftype)
17	+	(📌 📋 nytpu.lisp-utils.bind:bind)
18	+	(📌 👓 with-accessors)
19	+	(⚙️ 📓 list)
20	+	(⚙️ ➕ +)
21	+	(⚙️ ✖️ *)
22	+	(⚙️ ➖ -)
23	+	(⚙️ 🔧 make-instance)
24	+	(💭 0️⃣ 0.0)
25	+	(💭 🌛 0.5)
26	+	(💭 1️⃣ 1.0)
27	+	(💭 2️⃣ 2.0)
28	+
29	+	(📝 🔢 () 'real)
30	+
31	+	(🔩 🔵
32	+	(👉 0️⃣ :type 🔢)
33	+	(👆 0️⃣ :type 🔢))
34	+	(⚙️ 🎯 make-🔵)
35	+
36	+	(🤓 〰️ ()
37	+	((🌓 :initarg :🌓
38	+	:accessor 🌓
39	+	:type 🔢)
40	+	(🌒 :initarg :🌒
41	+	:accessor 🌒
42	+	:type 🔢)
43	+	(🌑 :initarg :🌑
44	+	:accessor 🌑
45	+	:type 🔢)))
46	+
47	+	(😎 〰️ (🌓 🌒 🌑)
48	+	(🔧 '〰️ :🌓 🌓 :🌒 🌒 :🌑 🌑))
49	+
50	+	(🥺 📈 ((〰️ 〰️) ⏳)
51	+	(👓 ((🇦 🌓)
52	+	(🇧 🌒)
53	+	(🇨 🌑))
54	+	〰️
55	+	(📋 ((⌛ (➖ 1️⃣ ⏳)))
56	+	(➕ (✖️ 🇦 (✖️ ⌛ ⌛))
57	+	(✖️ 🇧 (✖️ ⏳ 2️⃣) ⌛)
58	+	(✖️ 🇨 (✖️ ⏳ ⏳))))))
59	+
60	+	(🥺 🎀 ((〰️ 〰️))
61	+	(👓 ((🇦 🌓)
62	+	(🇧 🌒)
63	+	(🇨 🌑))
64	+	〰️
65	+	(📓 (🎯 :👉 0️⃣ :👆 🇦)
66	+	(🎯 :👉 🌛 :👆 🇧)
67	+	(🎯 :👉 1️⃣ :👆 🇨))))
68	+
69	+	(📋 ((💡 (〰️ 1️⃣ 0️⃣ 2️⃣)))
70	+	(📓 (📈 💡 🌛)
71	+	(🎀 💡)))

Newer Older