From 40abc6c72560af03bba3c0f102a6f8a63f07713c Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sat, 5 Nov 2022 16:09:27 +0100
Subject: Use hungry-eol-escapes for better formatting

---
 depre/main.scm | 52 ++++++++++++++++++++++++++++++++--------------------
 1 file changed, 32 insertions(+), 20 deletions(-)

diff --git a/depre/main.scm b/depre/main.scm
index 964fca3..cdb2092 100644
--- a/depre/main.scm
+++ b/depre/main.scm
@@ -2,6 +2,9 @@
 (define-module (depre main)
   #:use-module (ice-9 textual-ports))
 
+;; Clean indentation from strings
+(read-enable 'hungry-eol-escapes)
+
 ;; Random seed
 (set! *random-state* (random-state-from-platform))
 
@@ -116,7 +119,8 @@
 
 (register-state
   'morning-1
-  (state "It's early in the morning. You have time to do whatever you want right now. What do you want to do?"
+  (state "It's early in the morning. You have time to do whatever you want \
+         right now. What do you want to do?"
     (list
       (cons "Work."
             (rest))
@@ -125,31 +129,39 @@
 
 (register-state
   'morning-2
-  (state "It's late in the morning. You still have some time before having lunch. What do you want to do?"
+  (state "It's late in the morning. You still have some time before having \
+         lunch. What do you want to do?"
          (list (cons "nope" (rest)))))
 
 (register-state
   'wake-up
   (state "Good morning. It's time to wake up, what do you want to do?"
-         (list (cons "Wake up and start your day."
-                     (f-or-tired
-                       (combine
-                         (answer "You just woke up, had your shower, had some breakfast and now you are ready for anything.")
-                         (cheer-up)
-                         (tire)
-                         (to-state 'morning-1))
-                       (combine
-                         (answer "You are too tired for waking up now. You stay at bed instead and your day starts in mid morning.")
-                         (depress)
-                         (rest)
-                         (to-state 'morning-2))))
-
-               (cons "Stay in bed"
+         (list
+           (cons "Wake up and start your day."
+                 (f-or-tired
+                   (combine
+                     (answer "You just woke up, had your shower, had some \
+                             breakfast and now you are ready for \
+                             anything.")
+                             (cheer-up)
+                             (tire)
+                             (to-state 'morning-1))
                      (combine
-                        (answer "You rest for a little bit more, but you feel bad because you have a hard time waking up like a normal person")
-                        (depress)
-                        (rest)
-                        (to-state 'morning-2))))))
+                       (answer "You are too tired for waking up now. You \
+                               stay at bed instead and your day starts in \
+                               mid morning.")
+                               (depress)
+                               (rest)
+                               (to-state 'morning-2))))
+
+           (cons "Stay in bed"
+                 (combine
+                   (answer "You rest for a little bit more, but you feel \
+                           bad because you have a hard time waking up \
+                           like a normal person.")
+                           (depress)
+                           (rest)
+                           (to-state 'morning-2))))))
 
 (register-state
   'start
-- 
cgit v1.2.3