18 lines
540 B
Plaintext
18 lines
540 B
Plaintext
(zepto:add-to-path (++ (os:get-home-dir) "/.zeps/"))
|
|
|
|
(define (*prompt*)
|
|
"my personal prompt customization
|
|
|
|
complexity: O(1)
|
|
returns: the prompt string"
|
|
(define col (lambda (x) (color x #{:to-str #t})))
|
|
(++ (col :blue) (col :bold) "zepto [" (->string *statement-count*) "]> " (col :reset)))
|
|
|
|
(define (*ret*)
|
|
"my personal return customization
|
|
|
|
complexity: O(1)
|
|
returns: the return string"
|
|
(define col (lambda (x) (color x #{:to-str #t})))
|
|
(++ (col :red) (col :bold) "=[" (->string *statement-count*) "]> " (col :reset)))
|