(def black "")
(def red "")
(def green "")
(def yellow "")
(def blue "")
(def purple "")
(def cyan "")
(def white "")

(def bold "")
(def reset "")

(def nl (ch 10))

(def conf (cat (env "HOME") "/.pebblisp.pbl"))

(def reload (fn () (loadfile conf)))

(def hour (fn (ti) (
  (def h (% ti.hour 12))
  (if (= 0 h) 12 h)
)))

(def pwd (fn () (env "PWD")))

(def zero (fn (num) (cat (if (< num 10) "0" "") num)))

(def clock (fn (ti) (cat (hour ti) ":" (zero ti.minute) ":" (zero ti.sec))))

(def prompt (fn (a) (
  (def ti (time))

  (cat nl
    bold red "[sage] " blue (clock) " " reset cyan (pwd) nl
    bold green "pebblisp ~> " reset)
)))