diff --git a/src/examples/pebblisp.pbl b/src/examples/pebblisp.pbl index d7a3b3b..e5434bc 100644 --- a/src/examples/pebblisp.pbl +++ b/src/examples/pebblisp.pbl @@ -1,10 +1,19 @@ +(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 reload (fn () (loadfile "/home/sagevaillancourt/.pebblisp.pbl"))) + (def hour (fn (ti) ( (def h (% ti's hour 12)) (if (= 0 h) 12 h) diff --git a/src/plfunc.h b/src/plfunc.h index bddc764..3844826 100644 --- a/src/plfunc.h +++ b/src/plfunc.h @@ -246,6 +246,7 @@ tfn(getEnvVar, "env", "(env HOME) => /home/sagevaillancourt" ); +/// () => struct Time fn(getTime, "time", "Get a struct of the current time with fields (minute hour sec)." );