Add state and its representation in states

1 files changed, 33 insertions, 4 deletions

diff --git a/depre/main.scm b/depre/main.scm
index 37a3b35..81bdb03 100644
--- a/depre/main.scm
+++ b/depre/main.scm
@@ -1,8 +1,10 @@
 ; https://xn--rpa.cc/irl/term.html
 (define-module (depre main))
 
-(define %depression 50)
-(define %tiredness  50)
+;; Code makes heavy use of functional code and parameters for state.
+(define max-100 (lambda (x) (if (> x 100) 100 x)))
+(define %depression (make-parameter 50 max-100))
+(define %tiredness  (make-parameter 50 max-100))
 
 (define (nth n lst)
   (if (> n (length lst))
@@ -13,6 +15,8 @@
       (car lst)
       (loop (cdr lst) (- n 1))))))
 
+
+;; Function combinations: they define the state transitions
 (define (combine . functions)
   "Calls given functions in given order."
   (lambda ()
@@ -21,13 +25,36 @@
         ((car fs))
         (loop (cdr fs))))))
 
+;; Simple I/O
 (define (answer message)
   (lambda ()
     (display message)
     (newline)))
 
-(define (state heading menu)
+(define (bar percent)
+  "A simple 12 character bar for life-like variable representation"
+  (define len 22)
+  (string-tabulate
+    (lambda (x)
+      (cond
+        ((= x 0)                          #\[)
+        ((= x (- len 1))                  #\])
+        ((>= (/ percent (/ 100 len)) x)   #\=)
+        (else                             #\space)))
+    len))
+
+
+;; Basic state representation and creation: A state is a function that knows
+;; how to jump to other states through a menu.
+(define* (state heading menu #:optional (hide-status #f))
   (lambda ()
+    (when (not hide-status)
+      (newline)
+      (display "Depression:\t")
+      (display (bar (%depression)))
+      (newline)
+      (display "Tiredness:\t")
+      (display (bar (%tiredness))))
     (newline)
     (display heading)
     (newline)
@@ -43,6 +70,7 @@
           (display "Wrong answer. Try again >  ")
           (loop (read)))))))
 
+;; States:
 (define start
   (state "Hi, game starts"
          (list (cons "Start game"
@@ -52,6 +80,7 @@
                               (list (cons "hola"  (lambda () (display "HOLA")))
                                     (cons "adios" (lambda () (display "adios")))))))
                (cons "Quit game"
-                     (answer "Good bye!")))))
+                     (answer "Good bye!")))
+         #:hide-status))
 
 (start)