1 files changed, 61 insertions, 0 deletions
diff --git a/stdlib/source/documentation/lux/control.lux b/stdlib/source/documentation/lux/control.lux
new file mode 100644
index 000000000..4fcbe7a98
--- /dev/null
+++ b/stdlib/source/documentation/lux/control.lux
@@ -0,0 +1,61 @@
+(.module:
+  [library
+   [lux #*
+    ["$" documentation (#+ documentation:)]
+    [data
+     [text (#+ \n)
+      ["%" format (#+ format)]]
+     [collection
+      ["." list]]]]]
+  ["." / #_
+   ["#." concatenative]
+   ["#." concurrency]
+   ["#." continuation]
+   ["#." exception]
+   ["#." function]
+   ["#." io]
+   ["#." lazy]
+   ["#." maybe]
+   ... ["#." parser]
+   ... ["#." pipe]
+   ... ["#." reader]
+   ... ["#." region]
+   ... ["#." remember]
+   ... [security
+   ...  ["#." policy]
+   ...  ["#." capability]]
+   ... ["#." state]
+   ... ["#." thread]
+   ... ["#." try]
+   ... ["#." writer]
+   ])
+
+... (def: security
+...   Test
+...   ($_ _.and
+...       /policy.documentation
+...       /capability.documentation
+...       ))
+
+(.def: .public documentation
+  (.List $.Module)
+  (list.joined
+   (list /concatenative.documentation
+         /concurrency.documentation
+         /continuation.documentation
+         /exception.documentation
+         /function.documentation
+         /io.documentation
+         /lazy.documentation
+         /maybe.documentation
+         ... /parser.documentation
+         ... /pipe.documentation
+         ... /reader.documentation
+         ... /region.documentation
+         ... /remember.documentation
+         ... ..security
+         ... /state.documentation
+         ... /thread.documentation
+         ... /try.documentation
+         ... /writer.documentation
+         )))