Added full commander expand

examples/animate.lisp

@@ -1,13 +1,17 @@
 ; animate
-
 (
-  (clear)
-  (def t (sin (div (time) 100)))
-
-  (def pos (add 200 30 (mul 30 t)))
-  (defn square (a) (rect a a a a))
-  (stroke (square pos) 1 "red")
-
+  (clear) 
+  (def t 
+    (sin 
+      (div 
+        (time) 100))) 
+  (def pos 
+    (add 200 30 
+      (mul 30 t))) 
+  (defn square 
+    (a) 
+    (rect a a a a)) 
+  (stroke 
+    (square pos) 1 "red") 
   ; set false to stop 
-  (animate true)
-)
+  (animate true))

examples/fs.lisp

@@ -0,0 +1,11 @@
+; filesystem
+( 
+  ; get files 
+  (def files 
+    (ls 
+      (folder))) 
+  ; print files count 
+  (echo 
+    (concat "Current folder: " 
+      (folder) " contains " 
+      (len files) " files"))))