7 lines
309 B
Plaintext
7 lines
309 B
Plaintext
(zepto:add-to-path (++ (get-home-dir) "/.zeps/"))
|
|
(define col (lambda (x) (color x #{:to-str #t})))
|
|
(define (*prompt*)
|
|
(++ (col :blue) (col :bold) "zepto [" (->string *statement-count*) "]> " (col :reset)))
|
|
(define (*ret*)
|
|
(++ (col :red) (col :bold) "=[" (->string *statement-count*) "]> " (col :reset)))
|