From 1a1f4a5a54494f91a91c6cc85558d5f1e62e5ca9 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 29 Jan 2022 18:01:40 -0500
Subject: Order help index table like keymap

---
 help/genhelp.bqn | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'help/genhelp.bqn')

diff --git a/help/genhelp.bqn b/help/genhelp.bqn
index 4bf27e09..71251d01 100755
--- a/help/genhelp.bqn
+++ b/help/genhelp.bqn
@@ -1,15 +1,17 @@
 #!/usr/bin/env bqn
 
 files ← "README.md"⊸≢¨⊸/ (⍋(¬∊⟜"_.")⊸/¨)⊸⊏ ".md"⊸(-∘≠⊸↑≡⊣)¨⊸/ •file.List ""
+gl ← "+-×÷⋆√⌊⌈∧∨¬|≤<>≥=≠≡≢⊣⊢⥊∾≍⋈↑↓↕«»⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!˙˜∘○⊸⟜⌾⊘◶⎊⎉˘⚇¨⌜⍟⁼´˝`←⇐↩⋄,.(){};:?⟨⟩‿·•𝕨𝕎𝕩𝕏𝕗𝔽𝕘𝔾𝕤𝕊𝕣¯π∞@#"
 
-thing ← {
+rows ← (⍋gl⊸⊐)⊸⊏˝⍉> {
     data ← •FLines 𝕩
     names ← (⊣∾", "∾⊢)´{(¬·∧`' '⊸=)⊸/⌾⌽(»·∧`⌾⌽':'⊸≠)⊸/𝕩}¨("## "≡3⊸↑)¨⊸/data
     t‿d ←  ∾/¨(⊏data)=¨"()"
     sym ← (+`·»⊸-˝(¬»∧«)∘=⟜'`'∧⎉1"()"=⌜⊢)⊸/ 2⊑data
+    g ← 1⊑sym
     sym (1+'|'⊸=)⊸(/+(-´"\|")×{«⊒/𝕨})↩
     sym "`,` or `⋄`"⍟("`,``⋄`"⊸≡)↩
-    "| " ∾ sym ∾ " | [" ∾ names ∾ "]("∾𝕩∾ ") |"
+    ⟨g, ∾"| "‿sym‿" | ["‿names‿"]("‿𝕩‿") |"⟩
 }¨ files
 
 head ← ⟨
@@ -17,9 +19,7 @@ head ← ⟨
 ⟨⟩
 "# REPL Help"
 ⟨⟩
-"Symbols are listed in alphabetical order of page name, ignoring syntactical roles."
-⟨⟩
 "| Symbol | Link |"
 "|--------|------|"
 ⟩
-"README.md" •FLines head ∾ thing #rename once you have a proper file.
+"README.md" •FLines head ∾ rows
-- 
cgit v1.2.3