#!/usr/bin/env fq -rnf def code: "`\(.)`"; def nbsp: gsub(" "; " "); def has_section($f; $fhelp): $fhelp.notes or $fhelp.examples or $f.decode_in_arg or ((_registry.files[][] | select(.name=="\($f.name).md").data) // false); def formats_list: [ formats[] as $f | ({} | _help_format_enrich("fq"; $f; false)) as $fhelp | if has_section($f; $fhelp) then "[\($f.name)](doc/formats.md#\($f.name))" else $f.name end ] | join(",\n"); def formats_table: ( [ { name: "Name", desc: "Description", uses: "Dependencies" }, { name: "-", desc: "-", uses: "-" }, ( formats | to_entries[] | (_format_func(.key; "_help")? // {}) as $fhelp | { name: ( ( .key as $format | if has_section(.value; $fhelp) then "[\($format | code)](#\($format))" else $format | code end ) + " " ), desc: (.value.description | nbsp), uses: "\((((.value.dependencies | flatten | map(code)) | join(" "))? // ""))" } ), ( [ formats | to_entries[] | . as $e | select(.value.groups) | .value.groups[] | {key: ., value: $e.key} ] | reduce .[] as $e ({}; .[$e.key] += [$e.value]) | to_entries[] | { name: ((.key | code) + " "), desc: "Group", uses: "\(((.value | map(code)) | join(" ")))" } ) ] | table( [ .name , .desc , .uses ]; [ "" , (.[0] | . as $rc | $rc.string | rpad(" "; $rc.maxwidth)) , (.[1] | . as $rc | $rc.string | rpad(" "; $rc.maxwidth)) , .[2].string , "" ] | join("|") ) ); def formats_sections: ( formats[] as $f | ((_registry.files[][] | select(.name=="\($f.name).md").data) // false) as $doc | ({} | _help_format_enrich("fq"; $f; false)) as $fhelp | select(has_section($f; $fhelp)) | "## \($f.name)" , "" , ($fhelp.notes | if . then ., "" else empty end) , if $f.decode_in_arg then ( "### Options" , "" , ( [ { name: "Name" , default: "Default" , desc: "Description" } , { name: "-" , default: "-" , desc: "-" } , ( $f.decode_in_arg | to_entries[] as {$key,$value} | { name: ($key | code) , default: ($value | tostring) , desc: $f.decode_in_arg_doc[$key] } ) ] | table( [ .name , .default , .desc ]; [ "" , (.[0] | . as $rc | $rc.string | rpad(" "; $rc.maxwidth)) , (.[1] | . as $rc | $rc.string | rpad(" "; $rc.maxwidth)) , .[2].string , "" ] | join("|") ) ) , "" ) else empty end , if $fhelp.examples then ( "### Examples" , "" , ( $fhelp.examples[] | "\(.comment)" , if .shell then ( "```" , "$ \(.shell)" , "```" ) elif .expr then ( "```" , "... | \(.expr)" , "```" ) else empty end , "" ) ) else empty end , ($doc // empty) );