Add more colors to pebblisp.pbl

Plus a type comment on (time)

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)

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)."
 );