From 75e005e81b73d8471f16dc5fad7bbdc312bdbfe7 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Sun, 26 Apr 2026 23:47:18 -0400
Subject: Update

---
 src/gizmo/wasp-pronunciation.el | 139 ++++++++++++++++++++--------------------
 1 file changed, 70 insertions(+), 69 deletions(-)

(limited to 'src/gizmo/wasp-pronunciation.el')

diff --git a/src/gizmo/wasp-pronunciation.el b/src/gizmo/wasp-pronunciation.el
index 746bd882..b8be5012 100644
--- a/src/gizmo/wasp-pronunciation.el
+++ b/src/gizmo/wasp-pronunciation.el
@@ -8,89 +8,90 @@
 
 (defconst w/pronunciation-premade ;; funny options
   '("LCOLONQ"
-    "Joel"
-    "mod clonk"
-    "Columbo"
-    "/ɛ:l.kʰɔloʊŋkʰ/"
-    "Γ Column"
-    "notgeiser"
-    "funny magic man"
-    "Lucius Coloncus Quintilianus"
-    "rogueliTe"
-    "Heidy Barnett"
-    "Krya"
-    "Laconic"
-    "Loincloth"
-    "Costco"
-    "L Cluster"
-    "Love, Chastity, Organized, Love again, Organized again, Nice, Qomputer"
-    "Elkhunk"
-    "late late late late show with llll colonq"
-    "move right and exit"
-    "Al Capone"
-    ))
+     "Joel"
+     "mod clonk"
+     "Columbo"
+     "/ɛ:l.kʰɔloʊŋkʰ/"
+     "Γ Column"
+     "notgeiser"
+     "funny magic man"
+     "Lucius Coloncus Quintilianus"
+     "rogueliTe"
+     "Heidy Barnett"
+     "Krya"
+     "Laconic"
+     "Loincloth"
+     "Costco"
+     "L Cluster"
+     "Love, Chastity, Organized, Love again, Organized again, Nice, Qomputer"
+     "Elkhunk"
+     "late late late late show with llll colonq"
+     "move right and exit"
+     "Al Capone"
+     "loc"
+     ))
 
 (defconst w/pronunciation-part1 ;; the LLLL
   '("El"
-    "Eel"
-    "El El El El"
-    "La"
-    "Le"
-    "Luh"
-    "Loo"
-    "Lo"
-    "Al"
-    "All"
-    "Ale"
-    "Ail"
-    "Fifty"
-    "Long"
-    "Long Long Long Long"
-    ))
+     "Eel"
+     "El El El El"
+     "La"
+     "Le"
+     "Luh"
+     "Loo"
+     "Lo"
+     "Al"
+     "All"
+     "Ale"
+     "Ail"
+     "Fifty"
+     "Long"
+     "Long Long Long Long"
+     ))
 
 (defconst w/pronunciation-part2 ;; the Colon
   '("Colon"
-    "Cologne"
-    "Collin"
-    "Clon"
-    "Clown"
-    "Clone"
-    "Clun"
-    "Cuhlun"
-    "See"
-    "Cloin"
-    "Coloin"
-    "Kernel"
-    ))
+     "Cologne"
+     "Collin"
+     "Clon"
+     "Clown"
+     "Clone"
+     "Clun"
+     "Cuhlun"
+     "See"
+     "Cloin"
+     "Coloin"
+     "Kernel"
+     ))
 
 (defconst w/pronunciation-part3 ;; the Q
   '("Kuh"
-    "Queue"
-    "Kweh"
-    "Kiu"
-    "Kiew"
-    "Coo"
-    "Kewl"
-    ))
+     "Queue"
+     "Kweh"
+     "Kiu"
+     "Kiew"
+     "Coo"
+     "Kewl"
+     ))
 
-(defun w/pronuciation ()
+(defun w/pronunciation ()
   "Determine the canonical pronunciation of LCOLONQ."
   (if (= 0 (random 10))
-      (w/pick-random w/pronunciation-premade)
+    (w/pick-random w/pronunciation-premade)
     (let ((part1 (w/pick-random w/pronunciation-part1))
-          (part2 (w/pick-random w/pronunciation-part2))
-          (part3 (w/pick-random w/pronunciation-part3))
-          (skip1 (= 0 (random 5)))
-          (skip3 (= 0 (random 5)))
-          (merge (= 0 (random 2))))
+           (part2 (w/pick-random w/pronunciation-part2))
+           (part3 (w/pick-random w/pronunciation-part3))
+           (skip1 (= 0 (random 5)))
+           (skip3 (= 0 (random 5)))
+           (merge (= 0 (random 2))))
       (s-concat
-       (if skip1 "" (s-concat part1 " "))
-       part2
-       (if skip3
-           ""
-         (if merge
-             (s-downcase part3)
-           (s-concat " " part3)))))))
+        (if skip1 "" (s-concat part1 " "))
+        part2
+        (if skip3
+          ""
+          (if merge
+            (s-downcase part3)
+            (s-concat " " part3)))))))
 
 (provide 'wasp-pronunciation)
 ;;; wasp-pronunciation.el ends here
-- 
cgit v1.2.3