refactor showOptions

it was quite a pain to manipulate strings just with `builtins`

doc/manual/generate-manpage.nix

@@ -41,33 +41,26 @@ let
 
         ${showOptions def.flags}
       '';
-      showOptions = flags:
+      showOptions = options:
         let
-          categories = sort builtins.lessThan (unique (map (cmd: cmd.category) (attrValues flags)));
+          showCategory = cat: ''
-        in
+            ${if cat != "" then "**${cat}:**" else ""}
-          concatStrings (map
+
-            (cat:
+            ${listOptions (filterAttrs (n: v: v.category == cat) options)}
-              (if cat != ""
+            '';
-               then "**${cat}:**\n\n"
+          listOptions = opts: concatStringsSep "\n" (attrValues (mapAttrs showOption opts));
-               else "")
+          showOption = name: option:
-              + concatStrings
+            let
-                (map (longName:
+              shortName = if option ? shortName then "/ `-${option.shortName}`" else "";
-                  let
+              labels = if option ? labels then (concatStringsSep " " (map (s: "*${s}*") option.labels)) else "";
-                    flag = flags.${longName};
+            in trim ''
-                  in
+              - `--${name}` ${shortName} ${labels}
-                    "  - `--${longName}`"
+
-                    + (if flag ? shortName then " / `-${flag.shortName}`" else "")
+                ${option.description}
-                    + (if flag ? labels then " " + (concatStringsSep " " (map (s: "*${s}*") flag.labels)) else "")
+            '';
-                    + "  \n"
+          categories = sort builtins.lessThan (unique (map (cmd: cmd.category) (attrValues options)));
-                    + "    " + flag.description + "\n\n"
+        in concatStrings (map showCategory categories);
-                ) (attrNames (filterAttrs (n: v: v.category == cat) flags))))
+    in squash  ''
-            categories);
-      squash = string: # squash more than two repeated newlines
-        let
-          replaced = replaceStrings [ "\n\n\n" ] [ "\n\n" ] string;
-        in
-          if replaced == string then string else squash replaced;
-    in squash ''
       > **Warning** \
       > This program is **experimental** and its interface is subject to change.
 

doc/manual/utils.nix

@@ -5,6 +5,32 @@ rec {
 
   concatStrings = concatStringsSep "";
 
+  replaceStringsRec = from: to: string:
+    # recursively replace occurrences of `from` with `to` within `string`
+    # example:
+    #     replaceStringRec "--" "-" "hello-----world"
+    #     => "hello-world"
+    let
+      replaced = replaceStrings [ from ] [ to ] string;
+    in
+      if replaced == string then string else replaceStringsRec from to replaced;
+
+  squash = replaceStringsRec "\n\n\n" "\n\n";
+
+  trim = string:
+    # trim trailing spaces and squash non-leading spaces
+    let
+      trimLine = line:
+        let
+          # separate leading spaces from the rest
+          parts = split "(^ *)" line;
+          spaces = head (elemAt parts 1);
+          rest = elemAt parts 2;
+          # drop trailing spaces
+          body = head (split " *$" rest);
+        in spaces + replaceStringsRec "  " " " body;
+    in concatStringsSep "\n" (map trimLine (splitLines string));
+
   # FIXME: O(n^2)
   unique = foldl' (acc: e: if elem e acc then acc else acc ++ [ e ]) [];