Convert ./gendocs from bash to BQN (requires •file.At bugfix from latest CBQN)

1 files changed, 9 insertions, 3 deletions

diff --git a/gendocs b/gendocs
index c7a566ff..559d4f5b 100755
--- a/gendocs
+++ b/gendocs
@@ -1,5 +1,11 @@
-#! /usr/bin/env bash
+#! /usr/bin/env bqn
 
 # Generate HTML files from markdown ones
-# Argument gives specific files if present; otherwise convert everything
-bqn md.bqn ${1-*.md */*.md */*/*.md} ${@:2:$#}
+# •args gives a list of files if present; otherwise convert everything
+files ← { 0<≠•args ? •args ;
+  # All markdown files in directories corresponding to ones in docs/
+  At‿List‿Type ← •file
+  SubDirs ← { 𝕩 <⊸∾ ∾ 𝕊¨ ('d'=Type¨)⊸/ 𝕩⊸At¨ List 𝕩 }
+  ∾ (<At¨·(".md"≡¯3⊸↑)¨⊸/List)¨ (≠↓¨SubDirs) At "docs/"
+}
+files •Import "md.bqn"