summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--depre/main.scm52
1 files 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