all repos — min @ ab455edbaff6ba083df1154078e2eaaef624fcfb

A small but practical concatenative programming language.

Fixes to help task
h3rald h3rald@h3rald.com
Fri, 22 Jan 2021 21:34:47 +0000
commit

ab455edbaff6ba083df1154078e2eaaef624fcfb

parent

6dc986dd5e3d6d76c8fcbd95dd7f99a17c9f2cb0

3 files changed, 11 insertions(+), 11 deletions(-)

jump to
M site/contents/reference-lang.mdsite/contents/reference-lang.md

@@ -57,7 +57,7 @@ {#sig||=||quote-define#}

{#alias||=||quote-define#} -{#op||apply||{{q}}|{{d}}||({{a0p}})|{{{a0p}}}|| +{#op||apply||{{q}}|{{d}}||({{a0p}})|{{a0p}}}|| Returns a new quotation obtained by evaluating each element of {{q}} in a separate stack. #} {#op||args||{{none}}||{{q}}||
M site/contents/reference-sys.mdsite/contents/reference-sys.md

@@ -35,7 +35,7 @@ > >

> > `/tmp/test.txt 755 chmod`#} {#op||cd||{{sl}}||{{none}}|| -Change the current directory to {{{sl}}. #} +Change the current directory to {{sl}}. #} {#op||cp||{{sl1}} {{sl2}}||{{none}}|| Copies the file or directory {{sl1}} to {{sl2}}. #}

@@ -116,4 +116,4 @@ {#op||which||{{sl}}||{{s}}||

Returns the full path to the directory containing executable {{sl}}, or an empty string if the executable is not found in **$PATH**. #} {#op||zip||{{sl}} {{q}}||{{none}}|| -Compresses files included in quotation {{q}} into zip file {{sl}}.#}+Compresses files included in quotation {{q}} into zip file {{sl}}.#}
M tasks/help.mintasks/help.min

@@ -1,8 +1,8 @@

"help/snippets.json" fread from-json :snippets "site/contents" ls ("reference-" match) filter =src-files -"/\\{\\#op\\|\\|([^|]+)\\|\\|([^|]+)\|\|([^|]+)\|\|([^#])+\\#\\}/g" :op-regex -"\\{\\{([^}]+)\\}\\}" :snippet-regex -"^>( >)*" :block-regex +"\{\#op\|\|([^|]+)\|\|([^|]+)\|\|([^|]+)\|\|([^#])+\#\}" :op-regex +"\{\\{([^}]+)\}\}" :snippet-regex +">( >)*" :block-regex "%([^%]+)%" :title-regex (

@@ -11,7 +11,7 @@ (string :s ==> string :result)

( s block-regex (pop "") replace-apply - title-regex (1 get titleize) replace-apply + title-regex (pop "") replace-apply @result ) ) ::

@@ -57,11 +57,11 @@ symbol default

(==>) ( src-files ( - fread op-regex search-all puts ( - puts process-op :op - op puts! + fread op-regex search-all ( + process-op :op + op ) foreach ) foreach ) ) :: -;; Builds the reference help JSON sources.+;; Builds the reference help JSON sources.