From d9c50ea7ba3aad5a6794991d2cc03a068820d1a6 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 5 Jan 2024 22:33:00 +0100
Subject: Add losing my religion from REM

---
 src/main.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/main.lisp b/src/main.lisp
index 51a7cbb..2c7375e 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -56,13 +56,14 @@
 ; Part
 
 (defun part-name (key)
-  (ecase key
+  (case key
     ('intro "Intro")
     ('verse "Couplet")
     ('chorus "Refrain")
     ('interlude "Interlude")
     ('bridge "Pont")
-    ('outro "Outro")))
+    ('outro "Outro")
+    (otherwise key)))
 
 (defun part-tags (key children)
   (h "div" 
-- 
cgit v1.2.3