Move examples.janet next to gen-docs.janet

Author: CFiggers

content/examples.janet

@@ -0,0 +1,20 @@
+(def replacer
+  (peg/compile
+    ~(% (any (+ (/ '(set "%*/:<>?")
+                   ,|(string "_" (0 $))) '1)))))
+
+(defn sym-to-filename
+  ``
+  Convert a symbol to a filename. Certain filenames are not allowed on
+  various operating systems.
+  ``
+  [fname]
+  (string "examples/" ((peg/match replacer fname) 0) ".janet"))
+
+(defn main
+  [& args]
+  (def symbol-name (get args 1))
+  (assert symbol-name "please specify a symbol name")
+  (print (string/slice (sym-to-filename symbol-name)
+                       (length "examples/"))))
+