Squashed 'cgilite/' changes from 970afda..9e5394e

author Paul Hänsch <paul@plutz.net>

Wed, 11 Oct 2023 21:06:04 +0000 (23:06 +0200)

committer Paul Hänsch <paul@plutz.net>

Wed, 11 Oct 2023 21:06:04 +0000 (23:06 +0200)
author Paul Hänsch <paul@plutz.net>
Wed, 11 Oct 2023 21:06:04 +0000 (23:06 +0200)
committer Paul Hänsch <paul@plutz.net>
Wed, 11 Oct 2023 21:06:04 +0000 (23:06 +0200)
diff --git a/cgilite.sh b/cgilite.sh

index b51ee8ec9e4c938413817bd8dff00ffdb3ab1d82..b2467c335ed55a298651e485ff84143b7dfb23ea 100755 (executable)
--- a/cgilite.sh
+++ b/cgilite.sh
@@ -1,22 +1,21 @@
  #!/bin/sh
  
  #!/bin/sh
  
-# Copyright 2017 - 2021 Paul Hänsch
-#
  # This is CGIlite.
  # A collection of posix shell functions for writing CGI scripts.
  # This is CGIlite.
  # A collection of posix shell functions for writing CGI scripts.
+
+# Copyright 2017 - 2023 Paul Hänsch
  # 
  # 
-# CGIlite is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-# 
-# CGIlite is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
  # 
  # 
-# You should have received a copy of the GNU Affero General Public License
-# along with CGIlite.  If not, see <http://www.gnu.org/licenses/>. 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  
  [ -n "$include_cgilite" ] && return 0
  # guard set after webserver part
  
  [ -n "$include_cgilite" ] && return 0
  # guard set after webserver part
@@ -85,8 +84,14 @@ HEX_DECODE(){
    # will be copied to the output literally
  
    while [ "$in" ]; do
    # will be copied to the output literally
  
    while [ "$in" ]; do
+    [ "$pfx" ] || case $in in
+      [0-9a-fA-F][0-9a-fA-F]*):;;
+      ?*) out="${out}${in%%"${in#?}"}"
+          in="${in#?}"; continue;;
+    esac
+
      case $in in
      case $in in
-      "$pfx"[0-9a-fA-F][0-9a-fA-F]*) in="${in#${pfx}}";;
+      "$pfx"[0-9a-fA-F][0-9a-fA-F]*) in="${in#"${pfx}"}";;
        \\*) in="${in#?}"; out="${out}\\\\"; continue;;
         %*) in="${in#?}"; out="${out}%%";  continue;;
          *) att="${in%%"${pfx}"*}"; att="${att%%%*}"; att="${att%%\\*}"
        \\*) in="${in#?}"; out="${out}\\\\"; continue;;
         %*) in="${in#?}"; out="${out}%%";  continue;;
          *) att="${in%%"${pfx}"*}"; att="${att%%%*}"; att="${att%%\\*}"
@@ -307,6 +312,7 @@ URL(){
      \&*) out="${out}%26"; str="${str#?}";;
      \"*) out="${out}%22"; str="${str#?}";;
      \'*) out="${out}%27"; str="${str#?}";;
      \&*) out="${out}%26"; str="${str#?}";;
      \"*) out="${out}%22"; str="${str#?}";;
      \'*) out="${out}%27"; str="${str#?}";;
+    \`*) out="${out}%60"; str="${str#?}";;
      \?*) out="${out}%3F"; str="${str#?}";;
      \#*) out="${out}%23"; str="${str#?}";;
      \[*) out="${out}%5B"; str="${str#?}";;
      \?*) out="${out}%3F"; str="${str#?}";;
      \#*) out="${out}%23"; str="${str#?}";;
      \[*) out="${out}%5B"; str="${str#?}";;
diff --git a/common.css b/common.css

index 65c28f3ad459283c2fd026e072fdb6b430b8fc44..dbaafd1f49b6c3fcdb6208bb1b7ed633f161d288 100644 (file)
--- a/common.css
+++ b/common.css
@@ -47,8 +47,19 @@ b, strong { font-weight: bolder; }
  tt, code, var, samp, kbd { font-family: monospace; }
  kbd { font-style: italic; }
  
  tt, code, var, samp, kbd { font-family: monospace; }
  kbd { font-style: italic; }
  
-ul, ol { margin-left: 1.125em; }
+blockquote {
+  background-color: #EEE;
+  margin: .5em 0;
+  padding: 1em 2em;
+  white-space: pre-line;
+}
+
+ul, ol { padding-left: 1.5em; }
  dl dt { font-weight: bolder; }
  dl dt { font-weight: bolder; }
+dl dd {
+  margin: 0 2em;
+  background-color: #EEE;
+}
  table th { font-weight: bold; }
  
  li p + ul, li p + ol {
  table th { font-weight: bold; }
  
  li p + ul, li p + ol {
@@ -68,7 +79,10 @@ h4, h5, h6, form legend {
    margin-bottom: .25em;
  }
  
    margin-bottom: .25em;
  }
  
-h1 { font-size: 1.5em; }
+h1 {
+  text-align: center;
+  font-size: 1.5em;
+}
  h2 { font-size: 1.125em; }
  
  select, input, button, textarea, a.button {
  h2 { font-size: 1.125em; }
  
  select, input, button, textarea, a.button {
@@ -101,6 +115,7 @@ input + label {
    margin-left: .375em;
  }
  
    margin-left: .375em;
  }
  
+input[type="search"] + button.search,
  input.search + button.search {
    width: 2.5em;
    color: transparent;
  input.search + button.search {
    width: 2.5em;
    color: transparent;
@@ -109,7 +124,9 @@ input.search + button.search {
    border-left: none;
    border-radius: 0 2pt 2pt 0;
    white-space: nowrap;
    border-left: none;
    border-radius: 0 2pt 2pt 0;
    white-space: nowrap;
+  overflow: hidden;
  }
  }
+input[type="search"] + button.search:before,
  input.search + button.search:before {
    content: '\1f50d';
    color: #000;
  input.search + button.search:before {
    content: '\1f50d';
    color: #000;
@@ -119,8 +136,6 @@ input.search + button.search:before {
  @media print {
    @page { margin: 20mm; }
  
  @media print {
    @page { margin: 20mm; }
  
-  h1 { text-align: center; }
-
    h1, h2, h3, h4, h5, h6, form legend {
      page-break-inside: avoid;
      page-break-after: avoid;
    h1, h2, h3, h4, h5, h6, form legend {
      page-break-inside: avoid;
      page-break-after: avoid;
@@ -168,4 +183,8 @@ input[type=radio].tab ~ *.tab {
    box-shadow: .125em .125em .125em #888;
  }
  
    box-shadow: .125em .125em .125em #888;
  }
  
+/* Markdown line-block */
+.line-block { white-space: pre-wrap; }
+.line-block br { display: none; }
+
  /* ======= End Common Styles ======= */
  /* ======= End Common Styles ======= */
diff --git a/file.sh b/file.sh

index 0d1f4eabb0b7e80541c9f0271892d25ba888472f..20990d36474492f700dd5fc60bafc5dbf12f548b 100755 (executable)
--- a/file.sh
+++ b/file.sh
@@ -1,21 +1,18 @@
  #!/bin/sh
  
  #!/bin/sh
  
-# Copyright 2016 - 2019 Paul Hänsch
-#
-# This file is part of cgilite.
+# Copyright 2016 - 2023 Paul Hänsch
  # 
  # 
-# cgilite is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
  # 
  # 
-# cgilite is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
-# 
-# You should have received a copy of the GNU Affero General Public License
-# along with cgilite.  If not, see <http://www.gnu.org/licenses/>. 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  
  [ -n "$include_fileserve" ] && return 0
  include_fileserve="$0"
  
  [ -n "$include_fileserve" ] && return 0
  include_fileserve="$0"
@@ -48,24 +45,32 @@ file_type(){
  }
  
  FILE(){
  }
  
  FILE(){
-  local file file_size file_date http_date cachedate range mime
-  file="$1" mime="$2"
+  local file="$1" mime="$2"
+  local file_size file_date http_date cachedate range
  
    if ! [ -f "$file" ]; then
      printf 'Content-Length: 0\r\nStatus: 404 Not Found\r\n\r\n'
  
    if ! [ -f "$file" ]; then
      printf 'Content-Length: 0\r\nStatus: 404 Not Found\r\n\r\n'
-    exit 0
+    return 0
    elif ! [ -r "$file" ]; then
      printf 'Content-Length: 0\r\nStatus: 403 Forbidden\r\n\r\n'
    elif ! [ -r "$file" ]; then
      printf 'Content-Length: 0\r\nStatus: 403 Forbidden\r\n\r\n'
-    exit 0
+    return 0
    fi
  
    fi
  
-  file_size="$(stat -Lc %s "$file")"
-  file_date="$(stat -Lc %Y "$file")"
+  read file_size file_date <<-EOF
+       $(stat -Lc "%s  %Y" "$file")
+       EOF
    http_date="$(date -ud "@$file_date" +"%a, %d %b %Y %T GMT")"
    http_date="$(date -ud "@$file_date" +"%a, %d %b %Y %T GMT")"
+
+  [ ! "$HTTP_IF_MODIFIED_SINCE" -a "$cgilite_headers" ] \
+  &&    HTTP_IF_MODIFIED_SINCE="$(HEADER If-Modified-Since)"
+  [ ! "$HTTP_RANGE"             -a "$cgilite_headers" ] \
+  &&    HTTP_RANGE="$(HEADER Range)"
+
    cachedate="$(
      # Parse the allowable date formats from Section 3.3.1 of
      # https://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html
    cachedate="$(
      # Parse the allowable date formats from Section 3.3.1 of
      # https://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html
-    HEADER If-Modified-Since \
+    # HEADER If-Modified-Since \
+    printf %s "$HTTP_IF_MODIFIED_SINCE" \
      | sed -E 's;^[^ ]+, ([0-9]{2}) (...) ([0-9]{4}) (..:..:..) GMT$;\3-\2-\1 \4;;
                s;^[^ ]+, ([0-9]{2})-(...)-([789][0-9]) (..:..:..) GMT$;19\3-\2-\1 \4;;
                s;^[^ ]+, ([0-9]{2})-(...)-([0-6][0-9]) (..:..:..) GMT$;20\3-\2-\1 \4;;
      | sed -E 's;^[^ ]+, ([0-9]{2}) (...) ([0-9]{4}) (..:..:..) GMT$;\3-\2-\1 \4;;
                s;^[^ ]+, ([0-9]{2})-(...)-([789][0-9]) (..:..:..) GMT$;19\3-\2-\1 \4;;
                s;^[^ ]+, ([0-9]{2})-(...)-([0-6][0-9]) (..:..:..) GMT$;20\3-\2-\1 \4;;
@@ -76,14 +81,25 @@ FILE(){
      | xargs -r0 date +%s -ud 2>&-
    )"
  
      | xargs -r0 date +%s -ud 2>&-
    )"
  
-  range="$(HEADER Range |sed -nE 's;^bytes=([0-9]+-[0-9]*|-[0-9]+)$;\1;p;q;')"
+  range="${HTTP_RANGE#bytes=}"
    case "$range" in
    case "$range" in
-    *-) range="${range}$((file_size - 1))";;
-    -*) [ ${range#-} -le $file_size ] \
-        && range="$((file_size - ${range#-}))-$((file_size - 1))" \
-        || range="0-$((file_size - 1))";;
-    *-*) [ ${range#*-} -ge $file_size ] \
-         && range="${range%-*}-$((file_size - 1))";;
+    *[^0-9]*-*|*-*[^0-9]*)
+      range=""
+      ;;
+    *-)
+      range="${range}$((file_size - 1))"
+      ;;
+    -*)
+      [ ${range#-} -le $file_size ] \
+      && range="$((file_size - ${range#-}))-$((file_size - 1))" \
+      || range="0-$((file_size - 1))"
+      ;;
+    *-*)
+      [ ${range#*-} -ge $file_size ] \
+      && range="${range%-*}-$((file_size - 1))"
+      ;;
+    *) range=""
+      ;;
    esac
  
    if [ "$file_date" -lt "$cachedate" ] 2>&-; then
    esac
  
    if [ "$file_date" -lt "$cachedate" ] 2>&-; then
diff --git a/html-sh.sed b/html-sh.sed

index 8d7b61c076b93d3de8b59683e67d9b161ffc8075..1a0f2b459525a2af7becfc02a1b09c776d00a45b 100755 (executable)
--- a/html-sh.sed
+++ b/html-sh.sed
@@ -1,5 +1,19 @@
  #!/bin/sed -nEf
  
  #!/bin/sed -nEf
  
+# Copyright 2018 - 2019 Paul Hänsch
+# 
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+# 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
  :Escapes
  s,\\\\,\&#92;,g; s,\\&,\&amp;,g;
  s,\\<,\&lt;,g; s,\\>,\&gt;,g;
  :Escapes
  s,\\\\,\&#92;,g; s,\\&,\&amp;,g;
  s,\\<,\&lt;,g; s,\\>,\&gt;,g;
diff --git a/markdown.awk b/markdown.awk

index 44d4e0d7d16aa8aaab7638da20debc775f9770c3..7e29c572213e553df07563099cf52683ed11b960 100755 (executable)
--- a/markdown.awk
+++ b/markdown.awk
@@ -5,6 +5,20 @@
  # Meant to support all features of John Grubers basic Markdown
  # + a number of common extensions, mostly inspired by Pandoc Markdown
  
  # Meant to support all features of John Grubers basic Markdown
  # + a number of common extensions, mostly inspired by Pandoc Markdown
  
+# Copyright 2021 - 2023 Paul Hänsch
+# 
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+# 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
  # Supported Features / TODO:
  # ==========================
  # [x] done    [ ] todo    [-] not planned    ? unsure
  # Supported Features / TODO:
  # ==========================
  # [x] done    [ ] todo    [-] not planned    ? unsure
@@ -38,18 +52,24 @@
  #
  # Extensions - Block elements:
  # ----------------------------
  #
  # Extensions - Block elements:
  # ----------------------------
+# - [x] Automatic <section>-wrapping (custom)
  # -  ?  Heading identifiers (php md, pandoc)
  # -  ?  Heading identifiers (php md, pandoc)
+#   - [x] Heading attributes (custom)
+#   - [ ] <hr> terminates section
  # - [x] Automatic heading identifiers (custom)
  # - [x] Fenced code blocks (php md, pandoc)
  #   - [x] Fenced code attributes
  # - [x] Automatic heading identifiers (custom)
  # - [x] Fenced code blocks (php md, pandoc)
  #   - [x] Fenced code attributes
+# - [x] Images (as block elements, <figure>-wrapped) (custom)
+#   - [x] reference style block images
  # - [/] Tables
  #   -  ?  Simple table (pandoc)
  #   -  ?  Multiline table (pandoc)
  #   - [x] Grid table (pandoc)
  # - [/] Tables
  #   -  ?  Simple table (pandoc)
  #   -  ?  Multiline table (pandoc)
  #   - [x] Grid table (pandoc)
-#   - [x] Pipe table (php md pandoc)
+#     - [x] Headerless
+#   - [x] Pipe table (php md, pandoc)
  # - [x] Line blocks (pandoc)
  # - [x] Task lists (pandoc, custom)
  # - [x] Line blocks (pandoc)
  # - [x] Task lists (pandoc, custom)
-# - [ ] Definition lists (php md, pandoc)
+# - [x] Definition lists (php md, pandoc)
  # - [-] Numbered example lists (pandoc)
  # - [-] Metadata blocks (pandoc)
  # - [x] Metadata blocks (custom)
  # - [-] Numbered example lists (pandoc)
  # - [-] Metadata blocks (pandoc)
  # - [x] Metadata blocks (custom)
@@ -62,7 +82,7 @@
  # - [x] ^Superscript^ ~Subscript~ (pandoc)
  # - [-] Bracketed spans (pandoc)
  #   - [-] Inline attributes (pandoc)
  # - [x] ^Superscript^ ~Subscript~ (pandoc)
  # - [-] Bracketed spans (pandoc)
  #   - [-] Inline attributes (pandoc)
-# - [x] Image attributes (custom, pandoc inspired, inline only)
+# - [x] Image attributes (custom, pandoc inspired, not for reference style)
  # - [x] Wiki style links [[PageName]] / [[PageName|Link Text]]
  # - [-] TEX-Math (pandoc)
  # -  ?  Footnotes (php md)
  # - [x] Wiki style links [[PageName]] / [[PageName|Link Text]]
  # - [-] TEX-Math (pandoc)
  # -  ?  Footnotes (php md)
@@ -72,7 +92,7 @@
  # -  ?  ... three-dot ellipsis (smartypants)
  # - [-] en-dash (smartypants)
  # - [ ] Automatic em-dash / en-dash
  # -  ?  ... three-dot ellipsis (smartypants)
  # - [-] en-dash (smartypants)
  # - [ ] Automatic em-dash / en-dash
-# - [ ] Automatic -> Arrows <-
+# - [x] Automatic -> Arrows <- (custom)
  
  function debug(text) { printf "\n---\n%s\n---\n", text > "/dev/stderr"; }
  
  
  function debug(text) { printf "\n---\n%s\n---\n", text > "/dev/stderr"; }
  
@@ -86,24 +106,32 @@ function HTML ( text ) {
    return text;
  }
  
    return text;
  }
  
-function inline( line, LOCAL, len, code, href, guard ) {
-  nu = "(\\\\\\\\|\\\\[^\\\\]|[^\\\\_]|_[[:alnum:]])*"    # not underline (except when escaped)
-  na = "(\\\\\\\\|\\\\[^\\\\]|[^\\\\\\*])*"  # not asterisk (except when escaped)
-  ieu =  "_([^_[:space:]]|[^_[:space:]]" nu "[^_[:space:]])_"                 # inner <em> (underline)
-  isu = "__([^_[:space:]]|[^_[:space:]]" nu "[^_[:space:]])__"                # inner <strong> (underline)
-  iea =    "\\*([^\\*[:space:]]|[^\\*[:space:]]" na "[^\\*[:space:]])\\*"     # inner <em> (asterisk)
-  isa = "\\*\\*([^\\*[:space:]]|[^\\*[:space:]]" na "[^\\*[:space:]])\\*\\*"  # inner <strong> (asterisk)
+function URL ( text, sharp ) {
+  gsub( /&/,  "%26",  text );
+  gsub( /"/,  "%22", text );
+  gsub( /'/,  "%27", text );
+  gsub( /`/,  "%60", text );
+  gsub( /\?/,  "%3F", text );
+  if (sharp) gsub( /#/,  "%23", text );
+  gsub( /\[/,  "%5B", text );
+  gsub( /\]/,  "%5D", text );
+  gsub( / /,  "%20", text );
+  gsub( /      /,  "%09", text );
+  gsub( /\\/, "%5C", text );
+  return text;
+}
  
  
+function inline( line, LOCAL, len, text, code, href, guard ) {
    if ( line ~ /^$/ ) {  # Recursion End
      return "";
  
    if ( line ~ /^$/ ) {  # Recursion End
      return "";
  
-  #  omit processing of escaped characters
-  } else if ( line ~ /^\\[]\\`\*_\{\}\(\)#\+-\.![]/) {
-    return substr(line, 2, 1) inline( substr(line, 3) );
+  # omit processing of escaped characters
+  } else if ( line ~ /^\\./) {
+    return HTML(substr(line, 2, 1)) inline( substr(line, 3) );
  
    # hard brakes
    } else if ( match(line, /^  \n/) ) {
  
    # hard brakes
    } else if ( match(line, /^  \n/) ) {
-    return "<br />\n" inline( substr(line, RLENGTH + 1) );
+    return "<br>\n" inline( substr(line, RLENGTH + 1) );
  
    #  ``code spans``
    } else if ( match( line, /^`+/) ) {
  
    #  ``code spans``
    } else if ( match( line, /^`+/) ) {
@@ -113,43 +141,59 @@ function inline( line, LOCAL, len, code, href, guard ) {
        code = substr( line, len + 1, match( substr(line, len + 1), guard ) - 1)
        len = 2 * length(guard) + length(code)
        #  strip single surrounding white spaces
        code = substr( line, len + 1, match( substr(line, len + 1), guard ) - 1)
        len = 2 * length(guard) + length(code)
        #  strip single surrounding white spaces
-      code = gensub( / (.*) /, "\\1", "1" , code)
+      gsub( /^ | $/, "", code)
        #  escape HTML within code span
        gsub( /&/, "\\&amp;", code ); gsub( /</, "\\&lt;", code ); gsub( />/, "\\&gt;", code );
        return "<code>" code "</code>" inline( substr( line, len + 1 ) )
      }
  
        #  escape HTML within code span
        gsub( /&/, "\\&amp;", code ); gsub( /</, "\\&lt;", code ); gsub( />/, "\\&gt;", code );
        return "<code>" code "</code>" inline( substr( line, len + 1 ) )
      }
  
+  # Macros
+  } else if ( match( line, /^<<([^>]|>[^>])+>>/ ) ) {
+    len = RLENGTH;
+    return "<code class=\"macro\">" HTML( substr( line, 3, len - 4 ) ) "</code>" inline(substr(line, len + 1));
+
    # Wiki style links
    # Wiki style links
-  } else if ( match( line, /^\[\[([^\]\|]+)(\|([^\]]+))?\]\]/) ) {
+  } else if ( match( line, /^\[\[([^]|]+)(\|[^]]+)?\]\]/) ) {
      len = RLENGTH;
      len = RLENGTH;
-    href = gensub(/^\[\[([^\]\|]+)(\|([^\]]+))?\]\]/, "\\1", 1, substr(line, 1, len) );
-    text = gensub(/^\[\[([^\]\|]+)(\|([^\]]+))?\]\]/, "\\3", 1, substr(line, 1, len) );
+    href = gensub(/^\[\[([^]|]+)(\|([^]]+))?\]\]/, "\\1", 1, substr(line, 1, len) );
+    text = gensub(/^\[\[([^]|]+)(\|([^]]+))?\]\]/, "\\3", 1, substr(line, 1, len) );
      if ( ! text ) text = href;
      if ( ! text ) text = href;
-    return "<a href=\"" HTML(href) "\">" HTML(text) "</a>" inline( substr( line, len + 1) );
+    return "<a href=\"" URL(href) "\">" HTML(text) "</a>" inline( substr( line, len + 1) );
  
    #  quick links ("automatic links" in md doc)
    } else if ( match( line, /^<[a-zA-Z]+:\/\/([-\.[:alnum:]]+)(:[0-9]*)?(\/[^>]*)?>/ ) ) {
      len = RLENGTH;
  
    #  quick links ("automatic links" in md doc)
    } else if ( match( line, /^<[a-zA-Z]+:\/\/([-\.[:alnum:]]+)(:[0-9]*)?(\/[^>]*)?>/ ) ) {
      len = RLENGTH;
-    href = HTML( substr( line, 2, len - 2) );
+    href = URL( substr( line, 2, len - 2) );
      return "<a href=\"" href "\">" href "</a>" inline( substr( line, len + 1) );
  
    # quick link email
    } else if ( match( line, /^<[a-zA-Z0-9.!#$%&'\''*+\/=?^_`{|}~-]+@[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*>/ ) ) {
      len = RLENGTH;
      return "<a href=\"" href "\">" href "</a>" inline( substr( line, len + 1) );
  
    # quick link email
    } else if ( match( line, /^<[a-zA-Z0-9.!#$%&'\''*+\/=?^_`{|}~-]+@[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*>/ ) ) {
      len = RLENGTH;
-    href = HTML( substr( line, 2, len - 2) );
+    href = URL( substr( line, 2, len - 2) );
      return "<a href=\"mailto:" href "\">" href "</a>" inline( substr( line, len + 1) );
  
      return "<a href=\"mailto:" href "\">" href "</a>" inline( substr( line, len + 1) );
  
+  # Verbatim inline HTML
+  } else if ( AllowHTML && match( line, /^(<!--([^-]|-[^-]|--[^>])*-->|<\?([^\?]|\?[^>])*\?>|<![A-Z][^>]*>|<!\[CDATA\[([^\]]|\][^\]]|\]\][^>])*\]\]>|<\/[A-Za-z][A-Za-z0-9-]*[[:space:]]*>|<[A-Za-z][A-Za-z0-9-]*([[:space:]]+[A-Za-z_:][A-Za-z0-9_\.:-]*([[:space:]]*=[[:space:]]*([[:space:]"'=<>`]+|"[^"]*"|'[^']*'))?)*[[:space:]]*\/?>)/) ) {
+    len = RLENGTH;
+    return substr( line, 1, len) inline(substr(line, len + 1));
+
    # inline links
    # inline links
-  } else if ( match(line, /^\[([^]]+)\]\(([^"\)]+)([[:space:]]+"([^"]+)")?\)/) ) {
+  } else if ( match(line, "^" lii "\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)") ) {
      len = RLENGTH;
      len = RLENGTH;
-    text  = gensub(/^\[([^]]+)\]\(([^"\)]+)([[:space:]]+"([^"]+)")?\)/, "\\1", 1, substr(line, 1, len) );
-    href  = gensub(/^\[([^]]+)\]\(([^"\)]+)([[:space:]]+"([^"]+)")?\)/, "\\2", 1, substr(line, 1, len) );
-    title = gensub(/^\[([^]]+)\]\(([^"\)]+)([[:space:]]+"([^"]+)")?\)/, "\\4", 1, substr(line, 1, len) );
-    if ( title ) {
-      return "<a href=\"" HTML(href) "\" title=\"" HTML(title) "\">" inline( text ) "</a>" inline( substr( line, len + 1) );
-    } else {
-      return "<a href=\"" HTML(href) "\">" inline( text ) "</a>" inline( substr( line, len + 1) );
-    }
+    text = href = title = substr( line, 1, len);
+    sub("^\\[", "", text); sub("\\]\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)$", "", text);
+    sub("^" lii "\\([\n\t ]*", "", href); sub("([\n\t ]+" lit ")?[\n\t ]*\\)$", "", href);
+    sub("^" lii "\\([\n\t ]*" lid, "", title); sub("[\n\t ]*\\)$", "", title); sub("^[\n\t ]+", "", title);
+
+    if ( match(href, /^<.*>$/) ) { sub(/^</, "", href); sub(/>$/, "", href); }
+         if ( match(title, /^".*"$/) ) { sub(/^"/, "", title); sub(/"$/, "", title); }
+    else if ( match(title, /^'.*'$/) ) { sub(/^'/, "", title); sub(/'$/, "", title); }
+    else if ( match(title, /^\(.*\)$/) ) { sub(/^\(/, "", title); sub(/\)$/, "", title); }
+
+    gsub(/\\/, "", href); gsub(/\\/, "", title); gsub(/[\n\t]+/, " ", title);
+
+    return "<a href=\"" URL(href) "\"" (title?" title=\"" HTML(title) "\"":"") ">" \
+           inline( text ) "</a>" inline( substr( line, len + 1) );
  
    # reference style links
    } else if ( match(line, /^\[([^]]+)\] ?\[([^]]*)\]/ ) ) {
  
    # reference style links
    } else if ( match(line, /^\[([^]]+)\] ?\[([^]]*)\]/ ) ) {
@@ -158,40 +202,54 @@ function inline( line, LOCAL, len, code, href, guard ) {
        id = gensub(/^\[([^\n]+)\] ?\[([^\n]*)\].*/, "\\2", 1, substr(line, 1, len) );
      if ( ! id ) id = text;
      if ( rl_href[id] && rl_title[id] ) {
        id = gensub(/^\[([^\n]+)\] ?\[([^\n]*)\].*/, "\\2", 1, substr(line, 1, len) );
      if ( ! id ) id = text;
      if ( rl_href[id] && rl_title[id] ) {
-      return "<a href=\"" HTML(rl_href[id]) "\" title=\"" HTML(rl_title[id]) "\">" inline(text) "</a>" inline( substr( line, len + 1) );
+      return "<a href=\"" URL(rl_href[id]) "\" title=\"" HTML(rl_title[id]) "\">" inline(text) "</a>" inline( substr( line, len + 1) );
      } else if ( rl_href[id] ) {
      } else if ( rl_href[id] ) {
-      return "<a href=\"" HTML(rl_href[id]) "\">" inline(text) "</a>" inline( substr( line, len + 1) );
+      return "<a href=\"" URL(rl_href[id]) "\">" inline(text) "</a>" inline( substr( line, len + 1) );
      } else {
        return "" HTML(substr(line, 1, len)) inline( substr(line, len + 1) );
      }
  
    # inline images
      } else {
        return "" HTML(substr(line, 1, len)) inline( substr(line, len + 1) );
      }
  
    # inline images
-  } else if ( match(line, /^!\[([^]]+)\]\(([^"\)]+)([ \t]+"([^"]+)")?\)(\{([a-zA-Z \t-]*)\})?/) ) {
-    len = RLENGTH;
-    text   = gensub(/^!\[([^]]+)\]\(([^"\)]+)([ \t]+"([^"]+)")?\)(\{([a-zA-Z \t-]*)\})?/, "\\1", "g", substr(line, 1, len) );
-    href   = gensub(/^!\[([^]]+)\]\(([^"\)]+)([ \t]+"([^"]+)")?\)(\{([a-zA-Z \t-]*)\})?/, "\\2", "g", substr(line, 1, len) );
-    title  = gensub(/^!\[([^]]+)\]\(([^"\)]+)([ \t]+"([^"]+)")?\)(\{([a-zA-Z \t-]*)\})?/, "\\4", "g", substr(line, 1, len) );
-    attrib = gensub(/^!\[([^]]+)\]\(([^"\)]+)([ \t]+"([^"]+)")?\)(\{([a-zA-Z \t-]*)\})?/, "\\6", "g", substr(line, 1, len) );
-    if ( title && attrib ) {
-      return "<img src=\"" HTML(href) "\" alt=\"" HTML(text) "\" title=\"" HTML(title) "\" class=\"" HTML(attrib) "\"/>" inline( substr( line, len + 1) );
-    } else if ( title ) {
-      return "<img src=\"" HTML(href) "\" alt=\"" HTML(text) "\" title=\"" HTML(title) "\" />" inline( substr( line, len + 1) );
-    } else if ( attrib ) {
-      return "<img src=\"" HTML(href) "\" alt=\"" HTML(text) "\" class=\"" HTML(attrib) "\" />" inline( substr( line, len + 1) );
-    } else {
-      return "<img src=\"" HTML(href) "\" alt=\"" HTML(text) "\" />" inline( substr( line, len + 1) );
-    }
+  } else if ( match(line, "^!" lix "\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?") ) {
+    len = RLENGTH; text = href = title = attrib = substr( line, 1, len);
+
+    sub("^!\\[", "", text);
+    sub("\\]\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?$", "", text);
+
+    sub("^!" lix "\\([\n\t ]*", "", href);
+    sub("([\n\t ]+" lit ")?[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?$", "", href);
+
+    sub("^!" lix "\\([\n\t ]*" lid, "", title);
+    sub("[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?$", "", title);
+    sub("^[\n\t ]+", "", title);
+
+    sub("^!" lix "\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)", "", attrib);
+    sub(/^\{[ \t]*/, "", attrib); sub(/[ \t]*\}$/, "", attrib); gsub(/[ \t]+/, " ", attrib);
+
+    if ( match(href, /^<.*>$/) ) { sub(/^</, "", href); sub(/>$/, "", href); }
+         if ( match(title, /^".*"$/) ) { sub(/^"/, "", title); sub(/"$/, "", title); }
+    else if ( match(title, /^'.*'$/) ) { sub(/^'/, "", title); sub(/'$/, "", title); }
+    else if ( match(title, /^\(.*\)$/) ) { sub(/^\(/, "", title); sub(/\)$/, "", title); }
+
+    gsub(/^[\t ]+$/, "", text); gsub(/\\/, "", href);
+    gsub(/\\/, "", title); gsub(/[\n\t]+/, " ", title);
+
+    return "<img src=\"" URL(href, 1) "\" alt=\"" HTML(text?text:title?title:href) "\"" \
+           (title?" title=\"" HTML(title) "\"":"") (attrib?" class=\"" HTML(attrib) "\"":"") \
+           ">" inline( substr( line, len + 1) );
  
    # reference style images
  
    # reference style images
-  } else if ( match(line, /^!\[([^]]+)\] ?\[([^]]*)\]/ ) ) {
+  } else if ( match(line, /^!\[([^]]*)\] ?\[([^]]*)\]/ ) ) {
      len = RLENGTH;
      len = RLENGTH;
-    text = gensub(/^!\[([^\n]+)\] ?\[([^\n]*)\].*/, "\\1", 1, substr(line, 1, len) );
-      id = gensub(/^!\[([^\n]+)\] ?\[([^\n]*)\].*/, "\\2", 1, substr(line, 1, len) );
+    text = gensub(/^!\[([^\n]*)\] ?\[([^\n]*)\].*/, "\\1", 1, substr(line, 1, len) );
+      id = gensub(/^!\[([^\n]*)\] ?\[([^\n]*)\].*/, "\\2", 1, substr(line, 1, len) );
      if ( ! id ) id = text;
      if ( rl_href[id] && rl_title[id] ) {
      if ( ! id ) id = text;
      if ( rl_href[id] && rl_title[id] ) {
-      return "<img src=\"" HTML(rl_href[id]) "\" alt=\"" HTML(text) "\" title=\"" HTML(rl_title[id]) "\" />" inline( substr( line, len + 1) );
+      return "<img src=\"" URL(rl_href[id], 1) "\" alt=\"" HTML(text) "\" title=\"" HTML(rl_title[id]) "\">" \
+             inline( substr( line, len + 1) );
      } else if ( rl_href[id] ) {
      } else if ( rl_href[id] ) {
-      return "<img src=\"" HTML(rl_href[id]) "\" alt=\"" HTML(text) "\" />" inline( substr( line, len + 1) );
+      return "<img src=\"" URL(rl_href[id], 1) "\" alt=\"" HTML(text) "\">" \
+             inline( substr( line, len + 1) );
      } else {
        return "" HTML(substr(line, 1, len)) inline( substr(line, len + 1) );
      }
      } else {
        return "" HTML(substr(line, 1, len)) inline( substr(line, len + 1) );
      }
@@ -245,21 +303,19 @@ function inline( line, LOCAL, len, code, href, guard ) {
      len = RLENGTH;
      return "<em>" inline( substr( line, 2, len - 2 ) ) "</em>" inline( substr( line, len + 1 ) );
  
      len = RLENGTH;
      return "<em>" inline( substr( line, 2, len - 2 ) ) "</em>" inline( substr( line, len + 1 ) );
  
-  # Macros
-  } else if ( AllowMacros && match( line, /^<<([^>]|>[^>])+>>/) ) {
-    len = RLENGTH;
-    return macro( substr( line, 3, len - 4 ) ) inline(substr(line, len + 1));
-
-  # Verbatim inline HTML
-  } else if ( AllowHTML && match( line, /^(<!--([^-]|-[^-]|--[^>])*-->|<\?([^\?]|\?[^>])*\?>|<![A-Z][^>]*>|<!\[CDATA\[([^\]]|\][^\]]|\]\][^>])*\]\]>|<\/[A-Za-z][A-Za-z0-9-]*[[:space:]]*>|<[A-Za-z][A-Za-z0-9-]*([[:space:]]+[A-Za-z_:][A-Za-z0-9_\.:-]*([[:space:]]*=[[:space:]]*([[:space:]"'=<>`]+|"[^"]*"|'[^']*'))?)*[[:space:]]*\/?>)/) ) {
-    len = RLENGTH;
-    return substr( line, 1, len) inline(substr(line, len + 1));
-
    # Literal HTML entities
    } else if ( match( line, /^&([a-zA-Z]{2,32}|#[0-9]{1,7}|#[xX][0-9a-fA-F]{1,6});/) ) {
      len = RLENGTH;
      return substr( line, 1, len ) inline(substr(line, len + 1));
  
    # Literal HTML entities
    } else if ( match( line, /^&([a-zA-Z]{2,32}|#[0-9]{1,7}|#[xX][0-9a-fA-F]{1,6});/) ) {
      len = RLENGTH;
      return substr( line, 1, len ) inline(substr(line, len + 1));
  
+  # Arrows
+  } else if ( line ~ /^-->( |$)/) {  # ignore multidash-arrow
+    return "--&gt;" inline( substr(line, 4) );
+  } else if ( line ~ /^<-( |$)/) {
+    return "&larr;" inline( substr(line, 3) );
+  } else if ( line ~ /^->( |$)/) {
+    return "&rarr;" inline( substr(line, 3) );
+
    # Escape lone HTML character
    } else if ( match( line, /^[&<>"']/) ) {
      return HTML(substr(line, 1, 1)) inline(substr(line, 2));
    # Escape lone HTML character
    } else if ( match( line, /^[&<>"']/) ) {
      return HTML(substr(line, 1, 1)) inline(substr(line, 2));
@@ -270,8 +326,43 @@ function inline( line, LOCAL, len, code, href, guard ) {
    }
  }
  
    }
  }
  
-function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib ) {
-  gsub( /^\n+|\n+$/, "", block );
+function headline( hlvl, htxt, attrib, LOCAL, sec, n, HL) {
+  match(hstack, /([0-9]+( [0-9]+){5})$/); split( substr(hstack, RSTART),  HL);
+
+  for ( n = hlvl; n <= 6; n++ ) { sec = sec (HL[n]?"</section>":""); }
+  HL[hlvl]++; for ( n = hlvl + 1; n <= 6; n++) { HL[n] = 0;}
+
+  hid = ""; for ( n = 2; n <= blvl; n++) { hid = hid BL[n] "/"; }
+  hid = hid HL[1]; for ( n = 2; n <= hlvl; n++) { hid = hid "." HL[n] ; }
+  hid = hid ":" URL(htxt, 1);
+
+  sub(/([0-9]+( [0-9]+){5})$/, "", hstack);
+  hstack = hstack HL[1] " " HL[2] " " HL[3] " " HL[4] " " HL[5] " " HL[6];
+
+  return sec "<section class=\"" (attrib ? "h" hlvl " " attrib : "h" hlvl)  "\" id=\"" hid "\">" \
+         "<h" hlvl (attrib ? " class=\"" attrib "\"" : "") ">" inline( htxt ) \
+         "<a class=\"anchor\" href=\"#" hid "\"></a>" \
+         "</h" hlvl ">\n";
+}
+
+# Nested Block, resets heading counters
+function _nblock( block, LOCAL, sec, n ) {
+  hstack = hstack " 0 0 0 0 0 0";
+
+  # Block Level
+  blvl++; BL[blvl]++;
+  for ( n = blvl + 1; n in BL; n++) { delete BL[n]; }
+
+  block = _block( block );
+  match(hstack, /([0-9]+( [0-9]+){5})$/); split( substr(hstack, RSTART),  HL);
+  sec = ""; for ( n = 1; n <= 6; n++ ) { sec = sec (HL[n]?"</section>":""); }
+
+  sub("( +[0-9]+){6} *$", "", hstack); blvl--;
+  return block sec;
+}
+
+function _block( block, LOCAL, st, len, text, title, attrib, href, guard, code, indent, list ) {
+  gsub( "(^\n+|\n+$)", "", block );
  
    if ( block == "" ) {
      return "";
  
    if ( block == "" ) {
      return "";
@@ -308,12 +399,13 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
    } else if ( match( block, /^> /) ) {
      match( block, /(^|\n)[[:space:]]*(\n|$)/ ) || match(block, /$/);
      len = RLENGTH; st = RSTART;
    } else if ( match( block, /^> /) ) {
      match( block, /(^|\n)[[:space:]]*(\n|$)/ ) || match(block, /$/);
      len = RLENGTH; st = RSTART;
-    return "<blockquote>\n" _block( gensub( /(^|\n)> /, "\n", "g", substr(block, 1, st - 1) ) ) "</blockquote>\n\n" \
-           _block( substr(block, st + len) );
+    text = substr(block, 1, st - 1); gsub( /(^|\n)> /, "\n", text );
+    text = _nblock( text ); gsub( /^\n|\n$/, "", text )
+    return "<blockquote>" text "</blockquote>\n\n" _block( substr(block, st + len) );
  
    # Pipe Tables (pandoc / php md / gfm )
    } else if ( match(block, "^((\\|)?([^\n]+\\|)+[^\n]+(\\|)?)\n" \
  
    # Pipe Tables (pandoc / php md / gfm )
    } else if ( match(block, "^((\\|)?([^\n]+\\|)+[^\n]+(\\|)?)\n" \
-                           "((\\|)?:?(-+:?[\\|+])+:?-+:?(\\|)?)\n" \
+                           "((\\|)?(:?-+:?[\\|+])+:?-+:?(\\|)?)\n" \
                             "((\\|)?([^\n]+\\|)+[^\n]+(\\|)?(\n|$))+" ) ) {
      len = RLENGTH; st = RSTART;
      #initialize empty arrays
                             "((\\|)?([^\n]+\\|)+[^\n]+(\\|)?(\n|$))+" ) ) {
      len = RLENGTH; st = RSTART;
      #initialize empty arrays
@@ -359,46 +451,65 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
      return "<table>" ttext "</tbody></table>\n" _block(block);
  
    # Grid Tables (pandoc)
      return "<table>" ttext "</tbody></table>\n" _block(block);
  
    # Grid Tables (pandoc)
-  } else if ( match(block, "^\\+(-+\\+)+\n" \
-                       "(\\|([^\n]+\\|)+\n)+" \
-                        "\\+(:?=+:?\\+)+\n" \
-                      "((\\|([^\n]+\\|)+\n)+" \
-                            "\\+(-+\\+)+(\n|$))+" \
-            ) ) {
+  # (with, and without header)
+  } else if ( match( block, "^\\+(-+\\+)+\n" \
+                            "(\\|([^\n]+\\|)+\n)+" \
+                            "(\\+(:?=+:?\\+)+)\n" \
+                           "((\\|([^\n]+\\|)+\n)+" \
+                             "\\+(-+\\+)+(\n|$))+" \
+                   ) || \
+              match( block, "^()()()" \
+                            "(\\+(:?-+:?\\+)+)\n" \
+                           "((\\|([^\n]+\\|)+\n)+" \
+                             "\\+(-+\\+)+(\n|$))+" \
+  ) ) {
      len = RLENGTH; st = RSTART;
      #initialize empty arrays
      split("", talign); split("", tarray); split("", tread);
      cols = 0; cnt=0; ttext = "";
  
      len = RLENGTH; st = RSTART;
      #initialize empty arrays
      split("", talign); split("", tarray); split("", tread);
      cols = 0; cnt=0; ttext = "";
  
-    # table header and alignment
-    block = substr(block, match(block, /(\n|$)/) + 1 );
-    while ( match(block, "^\\|([^\n]+\\|)+\n") ) {
-      cols = split( gensub( /(^\||\|$)/, "", "g", \
-             gensub( /(^|[^\\])\\\|/, "\\1\\&#x7C;", "g", \
-             substr(block, 1, match(block, /(\n|$)/)) \
-      )), tread, /\|/);
-      block = substr(block, match(block, /(\n|$)/) + 1 );
-      for (cnt = 1; cnt < cols; cnt++)
-        tarray[cnt] = tarray[cnt] "\n" tread[cnt];
-    }
+    # Column Count
+    cols = split(   gensub( "^(\\+(:?-+:?\\+)+)(\n.*)*$", "\\1", 1, block), tread, /\+/) - 2;
+    # debug(" Cols: " gensub( "^(\\+(:?-+:?\\+)+)(\n.*)*$", "\\1", 1, block ));
  
  
-    cols = split( \
-           gensub( /(^\+|\+$)/, "", "g", \
-           substr(block, 1, match(block, /(\n|$)/)) \
-    ), talign, /\+/);
-    block = substr(block, match(block, /(\n|$)/) + 1 );
+    # table alignment
+    split( gensub( "^(.*\n)?\\+((:?=+:?\\+|(:-+|-+:|:-+:)\\+)+)(\n.*)$", "\\2", "g", block ), talign, /\+/ );
+    # debug("Align: " gensub( "^(.*\n)?\\+((:?=+:?\\+|(:-+|-+:|:-+:)\\+)+)(\n.*)$", "\\2", "g", block ));
  
  
-    for (cnt = 1; cnt < cols; cnt++) {
-           if (match(talign[cnt], /:=+:/)) talign[cnt]="center";
-      else if (match(talign[cnt],  /=+:/)) talign[cnt]="right";
-      else if (match(talign[cnt], /:=+/ )) talign[cnt]="left";
+    for (cnt = 1; cnt <= cols; cnt++) {
+           if (match(talign[cnt], /:(-+|=+):/)) talign[cnt]="center";
+      else if (match(talign[cnt],  /(-+|=+):/)) talign[cnt]="right";
+      else if (match(talign[cnt], /:(-+|=+)/ )) talign[cnt]="left";
        else talign[cnt]="";
      }
  
        else talign[cnt]="";
      }
  
-    ttext = "<thead>\n<tr>"
-    for (cnt = 1; cnt < cols; cnt++)
-      ttext = ttext "<th align=\"" talign[cnt] "\">" _block(tarray[cnt]) "</th>"
-    ttext = ttext "</tr>\n</thead><tbody>\n"
+    if ( match(block, "^\\+(-+\\+)+\n" \
+                      "(\\|([^\n]+\\|)+\n)+" \
+                       "\\+(:?=+:?\\+)+\n" \
+                     "((\\|([^\n]+\\|)+\n)+" \
+                       "\\+(-+\\+)+(\n|$))+" \
+    ) ) {
+      # table header
+      block = substr(block, match(block, /(\n|$)/) + 1 );
+      while ( match(block, "^\\|([^\n]+\\|)+\n") ) {
+        split( gensub( /(^\||\|$)/, "", "g", \
+                 gensub( /(^|[^\\])\\\|/, "\\1\\&#x7C;", "g", \
+                   substr(block, 1, match(block, /(\n|$)/)) \
+        )), tread, /\|/);
+        block = substr(block, match(block, /(\n|$)/) + 1 );
+        for (cnt = 1; cnt <= cols; cnt++)
+          tarray[cnt] = tarray[cnt] "\n" tread[cnt];
+      }
+
+      ttext = "<thead>\n<tr>"
+      for (cnt = 1; cnt <= cols; cnt++)
+        ttext = ttext "<th align=\"" talign[cnt] "\">" _nblock(tarray[cnt]) "</th>"
+      ttext = ttext "</tr>\n</thead>"
+    }
+
+    # table body
+    block = substr(block, match(block, /(\n|$)/) + 1 );
+    ttext = ttext "<tbody>\n"
  
      while ( match(block, /^((\|([^\n]+\|)+\n)+\+(-+\+)+(\n|$))+/ ) ){
        split("", tarray);
  
      while ( match(block, /^((\|([^\n]+\|)+\n)+\+(-+\+)+(\n|$))+/ ) ){
        split("", tarray);
@@ -408,27 +519,27 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
                 substr(block, 1, match(block, /(\n|$)/)) \
          )), tread, /\|/);
          block = substr(block, match(block, /(\n|$)/) + 1 );
                 substr(block, 1, match(block, /(\n|$)/)) \
          )), tread, /\|/);
          block = substr(block, match(block, /(\n|$)/) + 1 );
-        for (cnt = 1; cnt < cols; cnt++)
+        for (cnt = 1; cnt <= cols; cnt++)
            tarray[cnt] = tarray[cnt] "\n" tread[cnt];
        }
        block = substr(block, match(block, /(\n|$)/) + 1 );
  
        ttext = ttext "<tr>"
            tarray[cnt] = tarray[cnt] "\n" tread[cnt];
        }
        block = substr(block, match(block, /(\n|$)/) + 1 );
  
        ttext = ttext "<tr>"
-      for (cnt = 1; cnt < cols; cnt++)
-        ttext = ttext "<td align=\"" talign[cnt] "\">" _block(tarray[cnt]) "</td>"
+      for (cnt = 1; cnt <= cols; cnt++)
+        ttext = ttext "<td align=\"" talign[cnt] "\">" _nblock(tarray[cnt]) "</td>"
        ttext = ttext "</tr>\n"
      }
        ttext = ttext "</tr>\n"
      }
-    return "<table>" ttext "</tbody></table>\n" _block(block);
+    return "<table>" ttext "</tbody></table>\n" _nblock(block);
  
    # Line Blocks (pandoc)
    } else if ( match(block, /^\| [^\n]*(\n|$)(\| [^\n]*(\n|$)|[ \t]+[^\n[:space:]][^\n]*(\n|$))*/) ) {
      len = RLENGTH; st = RSTART;
  
    # Line Blocks (pandoc)
    } else if ( match(block, /^\| [^\n]*(\n|$)(\| [^\n]*(\n|$)|[ \t]+[^\n[:space:]][^\n]*(\n|$))*/) ) {
      len = RLENGTH; st = RSTART;
-    code = substr(block, 1, len);
-    gsub(/\n[[:space:]]+/, " ", code);
-    gsub(/\n\| /, "\n", code);
-    gsub(/^\| |\n$/, "", code);
-    return "<div class=\"line-block\">" gensub(/\n/, "<br />\n", "g", inline( code )) "</div>\n" \
-           _block( substr( block, len + 1) );
+
+    text = substr(block, 1, len); gsub(/\n[[:space:]]+/, " ", text);
+    gsub(/\n\| /, "\n", text); gsub(/^\| |\n$/, "", text);
+    text = inline(text); gsub(/\n/, "<br>\n", text);
+
+    return "<div class=\"line-block\">" text "</div>\n" _block( substr( block, len + 1) );
  
    # Indented Code Block
    } else if ( match(block, /^(    |\t)( *\t*[^ \t\n]+ *\t*)+(\n|$)((    |\t)[^\n]+(\n|$)|[ \t]*(\n|$))*/) ) {
  
    # Indented Code Block
    } else if ( match(block, /^(    |\t)( *\t*[^ \t\n]+ *\t*)+(\n|$)((    |\t)[^\n]+(\n|$)|[ \t]*(\n|$))*/) ) {
@@ -442,13 +553,13 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
    # Fenced Divs (pandoc, custom)
    } else if ( match( block, /^(:::+)/ ) ) {
      guard = substr( block, 1, RLENGTH );
    # Fenced Divs (pandoc, custom)
    } else if ( match( block, /^(:::+)/ ) ) {
      guard = substr( block, 1, RLENGTH );
-    code = gensub(/^[^\n]+\n/, "", 1, block);
+    code = block; sub(/^[^\n]+\n/, "", code);
      attrib = gensub(/^:::+[ \t]*\{?[ \t]*([^\}\n]*)\}?[ \t]*\n.*$/, "\\1", 1, block);
      gsub(/[^a-zA-Z0-9_-]+/, " ", attrib);
      gsub(/(^ | $)/, "", attrib);
      if ( match(code, "(^|\n)" guard "+(\n|$)" ) ) {
        len = RLENGTH; st = RSTART;
      attrib = gensub(/^:::+[ \t]*\{?[ \t]*([^\}\n]*)\}?[ \t]*\n.*$/, "\\1", 1, block);
      gsub(/[^a-zA-Z0-9_-]+/, " ", attrib);
      gsub(/(^ | $)/, "", attrib);
      if ( match(code, "(^|\n)" guard "+(\n|$)" ) ) {
        len = RLENGTH; st = RSTART;
-      return "<div class=\"" attrib "\">" _block( substr(code, 1, st - 1) ) "</div>\n" \
+      return "<div class=\"" attrib "\">" _nblock( substr(code, 1, st - 1) ) "</div>\n" \
               _block( substr( code, st + len ) );
      } else {
        match( block, /(^|\n)[[:space:]]*(\n|$)/ ) || match( block, /$/ );
               _block( substr( code, st + len ) );
      } else {
        match( block, /(^|\n)[[:space:]]*(\n|$)/ ) || match( block, /$/ );
@@ -475,60 +586,147 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
               _block( substr(block, st + len) );
      }
  
               _block( substr(block, st + len) );
      }
  
-  # Unordered list
-  } else if ( match( block, "^ ? ? ?[-+*][ \t]+[^\n]+(\n|$)" \
-                            "(([ \t]*\n)* ? ? ?[-+*][ \t]+[^\n]+(\n|$)" \
-                            "|([ \t]*\n)*( ? ? ?\t|  +)[^\n]+(\n|$)" \
-                            "|[^\n]+(\n|$))*" ) ) {
-  list = substr( block, 1, RLENGTH);
-  block = substr( block, RLENGTH + 1);
-  indent = length( gensub(/[-+*][ \t]+[^\n]+.*$/, "", 1, list) );
-
-  gsub("(^|\n) {0," indent "}", "\n", list);
-  return "\n<ul>\n" _list( substr(list, 2) ) "</ul>\n" _block( block );
-
-  # Ordered list
-  } else if ( match( block, "^ ? ? ?([0-9]+|#)\\.[ \t]+[^\n]+(\n|$)" \
-                            "(([ \t]*\n)* ? ? ?([0-9]+|#)\\.[ \t]+[^\n]+(\n|$)" \
-                            "|([ \t]*\n)*( ? ? ?\t|  +)[^\n]+(\n|$)" \
-                            "|[^\n]+(\n|$))*" ) ) {
-  list = substr( block, 1, RLENGTH);
-  block = substr( block, RLENGTH + 1);
-  indent = length( gensub(/([0-9]+|#)\.[ \t]+[^\n]+.*$/, "", 1, list) );
-
-  gsub("(^|\n) {0," indent "}", "\n", list);
-  return "\n<ol>\n" _list( substr(list, 2) ) "</ol>\n" _block( block );
-
-  # First Order Heading
-  } else if ( match( block, /^[^\n]+\n===+(\n|$)/ ) ) {
-    len = RLENGTH;
-    HL[1]++; HL[2] = 0; HL[3] = 0; HL[4] = 0; HL[5] = 0; HL[6] = 0;
-    return "<h1 id=\"" HL[1] " - " HTML(gensub( /\n.*$/, "", "g", block )) "\">" \
-           inline( gensub( /\n.*$/, "", "g", block ) ) \
-           "<a class=\"anchor\" href=\"#" HL[1] " - " \
-           HTML(gensub( /\n.*$/, "", "g", block )) "\"></a></h1>\n\n" \
-           _block( substr( block, len + 1 ) );
+  # First Order Heading H1 + Attrib
+  } else if ( match( block, /^([^\n]+)([ \t]*\{([^\}\n]+)\})\n===+(\n|$)/ ) ) {
+    len = RLENGTH; text = attrib = block;
+    sub(/([ \t]*\{([^\}\n]+)\})\n===+(\n.*)?$/, "", text);
+    sub(/\}\n===+(\n.*)?$/, "", attrib); sub(/^([^\n]+)[ \t]*\{/, "", attrib);
+    gsub(/[^a-zA-Z0-9_-]+/, " ", attrib); gsub(/(^ | $)/, "", attrib);
  
  
-  # Second Order Heading
-  } else if ( match( block, /^[^\n]+\n---+(\n|$)/ ) ) {
-    len = RLENGTH;
-    HL[2]++; HL[3] = 0; HL[4] = 0; HL[5] = 0; HL[6] = 0;
-    return "<h2 id=\"" HL[1] "." HL[2] " - " HTML(gensub( /\n.*$/, "", "g", block )) "\">" \
-           inline( gensub( /\n.*$/, "", "g", block ) ) \
-           "<a class=\"anchor\" href=\"#" HL[1] "." HL[2] " - " \
-           HTML(gensub( /\n.*$/, "", "g", block )) "\"></a></h2>\n\n" \
+    return headline(1, text, attrib) _block( substr( block, len + 1 ) );
+
+  # First Order Heading H1
+  } else if ( match( block, /^([^\n]+)\n===+(\n|$)/ ) ) {
+    len = RLENGTH; text = substr(block, 1, len);
+    sub(/\n===+(\n.*)?$/, "", text);
+
+    return headline(1, text, 0) _block( substr( block, len + 1 ) );
+
+  # Second Order Heading H2 + Attrib
+  } else if ( match( block, /^([^\n]+)([ \t]*\{([^\}\n]+)\})\n---+(\n|$)/ ) ) {
+    len = RLENGTH; text = attrib = block;
+    sub(/([ \t]*\{([^\}\n]+)\})\n---+(\n.*)?$/, "", text);
+    sub(/\}\n---+(\n.*)?$/, "", attrib); sub(/^([^\n]+)[ \t]*\{/, "", attrib);
+    gsub(/[^a-zA-Z0-9_-]+/, " ", attrib); gsub(/(^ | $)/, "", attrib);
+
+    return headline(2, text, attrib) _block( substr( block, len + 1) );
+
+  # Second Order Heading H2
+  } else if ( match( block, /^([^\n]+)\n---+(\n|$)/ ) ) {
+    len = RLENGTH; text = substr(block, 1, len);
+    sub(/\n---+(\n.*)?$/, "", text);
+
+    return headline(2, text, 0) _block( substr( block, len + 1) );
+
+  # Nth Order Heading H1 H2 H3 H4 H5 H6 + Attrib
+  } else if ( match( block, /^(#{1,6})[ \t]*(([^ \t\n]+|[ \t]+[^ \t\n#]|[ \t]+#+[ \t]*[^ \t\n#])+)[ \t]*#*([ \t]*\{([a-zA-Z \t-]*)\})(\n|$)/ ) ) {
+    len = RLENGTH; text = attrib = substr(block, 1, len);
+    match(block, /^#{1,6}/); n = RLENGTH;
+
+    sub(/^(#{1,6})[ \t]*/, "", text);   sub(/[ \t]*#*([ \t]*\{([a-zA-Z \t-]*)\})(\n.*)?$/, "", text);
+    sub(/^(#{1,6})[ \t]*(([^ \t\n]+|[ \t]+[^ \t\n#]|[ \t]+#+[ \t]*[^ \t\n#])+)[ \t]*#*[ \t]*\{/, "", attrib);
+    sub(/\})(\n.*)?$/, "", attrib);
+    gsub(/[^a-zA-Z0-9_-]+/, " ", attrib); gsub(/(^ | $)/, "", attrib);
+
+    return headline( n, text, attrib ) _block( substr( block, len + 1) );
+
+  # Nth Order Heading H1 H2 H3 H4 H5 H6
+  } else if ( match( block, /^(#{1,6})[ \t]*(([^ \t\n]+|[ \t]+[^ \t\n#]|[ \t]+#+[ \t]*[^ \t\n#])+)[ \t]*#*(\n|$)/ ) ) {
+    len = RLENGTH; text = substr(block, 1, len);
+    match(block, /^#{1,6}/); n = RLENGTH;
+    sub(/^(#{1,6})[ \t]*/, "", text); sub(/[ \t]*#*(\n.*)?$/, "", text);
+
+    return headline( n, text, 0 ) _block( substr( block, len + 1) );
+
+  # block images (wrapped in <figure>)
+  } else if ( match(block, "^!" lix "\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?(\n|$)") ) {
+    len = RLENGTH; text = href = title = attrib = substr( block, 1, len);
+
+    sub("^!\\[", "", text);
+    sub("\\]\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?(\n.*)?$", "", text);
+
+    sub("^!" lix "\\([\n\t ]*", "", href);
+    sub("([\n\t ]+" lit ")?[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?(\n.*)?$", "", href);
+
+    sub("^!" lix "\\([\n\t ]*" lid, "", title);
+    sub("[\n\t ]*\\)(\\{[a-zA-Z \t-]*\\})?(\n.*)?$", "", title);
+    sub("^[\n\t ]+", "", title);
+
+    sub("^!" lix "\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\)", "", attrib);
+    sub("(\n.*)?$", "", attrib);
+    sub(/^\{[ \t]*/, "", attrib); sub(/[ \t]*\}$/, "", attrib); gsub(/[ \t]+/, " ", attrib);
+
+    if ( match(href, /^<.*>$/) ) { sub(/^</, "", href); sub(/>$/, "", href); }
+         if ( match(title, /^".*"$/) ) { sub(/^"/, "", title); sub(/"$/, "", title); }
+    else if ( match(title, /^'.*'$/) ) { sub(/^'/, "", title); sub(/'$/, "", title); }
+    else if ( match(title, /^\(.*\)$/) ) { sub(/^\(/, "", title); sub(/\)$/, "", title); }
+
+    gsub(/^[\t ]+$/, "", text); gsub(/\\/, "", href);
+
+    return "<figure data-src=\"" URL(href, 1) "\"" (attrib?" class=\"" HTML(attrib) "\"":"") ">" \
+           "<img src=\"" URL(href, 1) "\" alt=\"" HTML(text?text:title?title:href) "\"" \
+           (attrib?" class=\"" HTML(attrib) "\"":"") ">" \
+           (title?"<figcaption>" inline(title) "</figcaption>":"") \
+           "</figure>\n\n" \
             _block( substr( block, len + 1) );
  
             _block( substr( block, len + 1) );
  
-  # Nth Order Heading
-  } else if ( match( block, /^#{1,6}[ \t]*[^\n]+([ \t]*#*)(\n|$)/ ) ) {
+  # reference style images (block)
+  } else if ( match(line, /^!\[([^]]*)\] ?\[([^]]*)\](\n|$)/ ) ) {
      len = RLENGTH;
      len = RLENGTH;
-    hlvl = length( gensub( /^(#{1,6}).*$/, "\\1", "g", block ) );
-    htxt = gensub(/^#{1,6}[ \t]*(([^ \t\n]+|[ \t]+[^ \t\n#]|[ \t]+#+[^\n#])+)([ \t]*#*)(\n.*)?$/, "\\1", 1, block);
-    HL[hlvl]++; for ( n = hlvl + 1; n < 7; n++) { HL[n] = 0;}
-    hid = HL[1]; for ( n = 2; n <= hlvl; n++) { hid = hid "." HL[n] ; }
-    return "<h" hlvl " id=\"" hid " - " HTML(htxt) "\">" inline( htxt ) \
-           "<a class=\"anchor\" href=\"#" hid "\"></a></h" hlvl ">\n\n" \
-           _block( substr( block, len + 1) );
+    text = gensub(/^!\[([^\n]*)\] ?\[([^\n]*)\](\n.*)?$/, "\\1", 1, block);
+      id = gensub(/^!\[([^\n]*)\] ?\[([^\n]*)\](\n.*)?$/, "\\2", 1, block);
+    if ( ! id ) id = text;
+    if ( rl_href[id] && rl_title[id] ) {
+      return "<figure data-src=\"" URL(rl_href[id], 1) "\">" \
+               "<img src=\"" URL(rl_href[id], 1) "\" alt=\"" HTML(text) "\">" \
+               "<figcaption>" inline(rl_title[id]) "</figcaption>" \
+             "</figure>\n\n" \
+             _block( substr( block, len + 1) );
+    } else if ( rl_href[id] ) {
+      return "<figure data-src=\"" URL(rl_href[id], 1) "\">" \
+               "<img src=\"" URL(rl_href[id], 1) "\" alt=\"" HTML(text) "\">" \
+             "</figure>\n\n" \
+             _block( substr( block, len + 1) );
+    } else {
+      return "<p>" HTML(substr(block, 1, len)) "</p>\n" _block( substr(block, len + 1) );
+    }
+
+  # Macros (standalone <<macro>> calls handled as block, so they are not wrapped in paragraph)
+  } else if ( match( block, /^<<(([^>]|>[^>])+)>>(\n|$)/ ) ) {
+    len = RLENGTH;
+    text = gensub(/^<<(([^>]|>[^>])+)>>(\n.*)?$/, "\\1", 1, block);
+    return "<code class=\"macro\">" HTML(text) "</code>" _block(substr(block, len + 1) );
+
+  # Definition list
+  } else if (match( block, "^(([ \t]*\n)*[^:\n \t][^\n]+\n" \
+                           "([ \t]*\n)* ? ? ?:[ \t][^\n]+(\n|$)" \
+                          "(([ \t]*\n)* ? ? ?:[ \t][^\n]+(\n|$)" \
+                           "|[^:\n \t][^\n]+(\n|$)" \
+                           "|( ? ? ?\t|  +)[^\n]+(\n|$)" \
+                           "|([ \t]*\n)+( ? ? ?\t|  +)[^\n]+(\n|$))*)+" \
+  )) {
+    list = substr( block, 1, RLENGTH); block = substr( block, RLENGTH + 1);
+    return "\n<dl>\n" _dlist( list ) "</dl>\n" _block( block );
+
+  # Unordered list types
+  } else if ( text = _startlist( block, "ul", "-",   "([+*•]|[0-9]+\\.|#\\.|[0-9]+\\)|#\\))") ) {
+    return text;
+  } else if ( text = _startlist( block, "ul", "\\+", "([-*•]|[0-9]+\\.|#\\.|[0-9]+\\)|#\\))") ) {
+    return text;
+  } else if ( text = _startlist( block, "ul", "\\*", "([-+•]|[0-9]+\\.|#\\.|[0-9]+\\)|#\\))") ) {
+    return text;
+  } else if ( text = _startlist( block, "ul", "•", "([-+*]|[0-9]+\\.|#\\.|[0-9]+\\)|#\\))") ) {
+    return text;
+
+  # Ordered list types
+  } else if ( text = _startlist( block, "ol", "[0-9]+\\.", "([-+*•]|#\\.|[0-9]+\\)|#\\))") ) {
+    return text;
+  } else if ( text = _startlist( block, "ol", "[0-9]+\\)", "([-+*•]|[0-9]+\\.|#\\.|#\\))") ) {
+    return text;
+  } else if ( text = _startlist( block, "ol", "#\\.", "([-+*•]|[0-9]+\\.|[0-9]+\\)|#\\))") ) {
+    return text;
+  } else if ( text = _startlist( block, "ol", "#\\)", "([-+*•]|[0-9]+\\.|#\\.|[0-9]+\\))") ) {
+    return text;
  
    # Split paragraphs
    } else if ( match( block, /(^|\n)[[:space:]]*(\n|$)/) ) {
  
    # Split paragraphs
    } else if ( match( block, /(^|\n)[[:space:]]*(\n|$)/) ) {
@@ -539,7 +737,7 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
    # Horizontal rule
    } else if ( match( block, /(^|\n) ? ? ?((\* *){3,}|(- *){3,}|(_ *){3,})($|\n)/) ) {
      len = RLENGTH; st = RSTART;
    # Horizontal rule
    } else if ( match( block, /(^|\n) ? ? ?((\* *){3,}|(- *){3,}|(_ *){3,})($|\n)/) ) {
      len = RLENGTH; st = RSTART;
-    return _block(substr(block, 1, st - 1)) "<hr />\n" _block(substr(block, st + len));
+    return _block(substr(block, 1, st - 1)) "<hr>\n" _block(substr(block, st + len));
  
    # Plain paragraph
    } else {
  
    # Plain paragraph
    } else {
@@ -547,52 +745,78 @@ function _block( block, LOCAL, st, len, hlvl, htxt, guard, code, indent, attrib
    }
  }
  
    }
  }
  
-function _list( block, last, LOCAL, p) {
-  if ( ! length(block) ) return "";
-  gsub(/^([-+*]|[0-9]+\.|#\.)(  ? ? ?|\t)/, "", block)
+function _startlist(block, type, mark, exclude, LOCAL, st, len, list, indent, text) {
+  if (match( block, "(^|\n) ? ? ?" mark "[ \t][^\n]+(\n|$)" \
+                                   "(([ \t]*\n)* ? ? ?" mark "[ \t][^\n]+(\n|$)" \
+                                   "|([ \t]*\n)*( ? ? ?\t|  +)[^\n]+(\n|$)" \
+                                   "|[^\n \t][^\n]+(\n|$))*" ) ) {
+    st = RSTART; len = RLENGTH; list = substr( block, st, len);
+
+    sub("^\n", "", list); match(list, "^ ? ? ?"); indent = RLENGTH;
+    gsub( "(^|\n) {0," indent "}", "\n", list); sub("^\n", "", list);
+
+    text = substr(block, 1, st - 1); block = substr(block, st + len);
+    if (match(text, /\n[[:space:]]*\n/)) return 0;
+    if (match(text, "(^|\n) ? ? ?" exclude "[ \t][^\n]+")) return 0;
+    if (match( list, "\n" exclude "[ \t]" )) {
+      block = substr(list, RSTART + 1) block;
+      list = substr(list, 1, RSTART);
+    }
  
  
-  # slice next list item from input
-  if ( match( block, /\n([-+*]|[0-9]+\.|#\.)[ \t]+[^\n]+/) ) {
-    p = substr( block, 1, RSTART);
-    block = substr( block, RSTART + 1);
-  } else {
-    p = block; block = "";
-  }
-  sub( /\n +([-+*]|[0-9]+\.|#\.)/, "\n&", p );
+    return _block( text ) "<" type ">\n" _list( list, mark ) "</" type ">\n" _block( block );
+  } else return 0;
+}
  
  
-  # if this should be a paragraph item
-  # either previous item (last) or current item (p) contains blank lines
-  if (match(last, /\n[[:space:]]*\n/) || match(p, /\n[[:space:]]*\n/) ) {
-    last = p; p = _block(p);
-  } else {
-    last = p; p = _block(p);
-    sub( /^<p>/, "", p );
-    sub( /<\/p>\n/, "", p );
+function _list (block, mark, p, LOCAL, len, st, text, indent, task) {
+  if ( match(block, "^([ \t]*\n)*$")) return;
+
+  match(block, "^" mark "[ \t]"); indent = RLENGTH;
+  sub("^" mark "[ \t]", "", block);
+
+  if (match(block, /\n[ \t]*\n/)) p = 1;
+
+  match( block, "\n" mark "[ \t][^\n]+(\n|$)" );
+  st = (RLENGTH == -1) ? length(block) + 1 : RSTART;
+  text = substr(block, 1, st); block = substr(block, st + 1);
+
+  gsub("\n {0," indent "}", "\n", text);
+
+  task = match( text, /^\[ \]/   ) ? "<li class=\"task pending\"><input type=checkbox disabled>"      : \
+         match( text, /^\[-\]/   ) ? "<li class=\"task negative\"><input type=checkbox disabled>"     : \
+         match( text, /^\[\/\]/  ) ? "<li class=\"task partial\"><input type=checkbox disabled>"      : \
+         match( text, /^\[\?\]/  ) ? "<li class=\"task unsure\"><input type=checkbox disabled>"       : \
+         match( text, /^\[[xX]\]/) ? "<li class=\"task done\"><input type=checkbox disabled checked>" : "<li>";
+  sub(/^\[[-? \/xX]\]/, "", text);
+
+  text = _nblock( text );
+  if ( ! p && match( text, "^<p>(</p[^>]|</[^p]|<[^/]|[^<])*</p>\n$" ))
+     gsub( "(^<p>|</p>\n$)", "", text);
+
+  return task text "</li>\n" _list(block, mark, p);
+}
+
+function _dlist (block, LOCAL, len, st, text, indent, p) {
+  if (match( block, "^([ \t]*\n)*[^:\n \t][^\n]+\n" )) {
+    len = RLENGTH; text = substr(block, 1, len);
+    gsub( "(^\n*|\n*$)", "", text );
+    return "<dt>" inline( text ) "</dt>\n" _dlist( substr(block, len + 1) );
+  } else if (match( block, "^([ \t]*\n)* ? ? ?:[ \t][^\n]+(\n|$)" \
+                         "([^:\n \t][^\n]+(\n|$)" \
+                         "|( ? ? ?\t|  +)[^\n]+(\n|$)" \
+                         "|([ \t]*\n)+( ? ? ?\t|  +)[^\n]+(\n|$))*" \
+  )) {
+    len = RLENGTH; text = substr(block, 1, len);
+    sub( "^([ \t]*\n)*", "", text);
+    match(text, "^ ? ? ?:(\t| +)"); indent = RLENGTH;
+    sub( "^ ? ? ?:(\t| +)", "", text);
+    gsub( "(^|\n) {0," indent "}", "\n", text );
+
+    text = _nblock(text);
+    if (match( text, "^<p>(</p[^>]|</[^p]|<[^/]|[^<])*</p>\n$" ))
+       gsub( "(^<p>|</p>\n$)", "", text);
+
+    return "<dd>" text "</dd>\n" _dlist( substr(block, len + 1) );
    }
    }
-  sub( /\n$/, "", p );
-
-  # Task List (pandoc, custom)
-         if ( p ~ /^\[ \].*/ )       { return "<li class=\"task pending\"><input type=checkbox disabled />" \
-                                              substr(p, 4) "</li>\n" _list( block, last );
-  } else if ( p ~ /^\[-\].*/ )       { return "<li class=\"task negative\"><input type=checkbox disabled />" \
-                                              substr(p, 4) "</li>\n" _list( block, last );
-  } else if ( p ~ /^\[\?\].*/ )      { return "<li class=\"task unsure\"><input type=checkbox disabled />" \
-                                              substr(p, 4) "</li>\n" _list( block, last );
-  } else if ( p ~ /^\[\/\].*/ )      { return "<li class=\"task partial\"><input type=checkbox disabled />" \
-                                              substr(p, 4) "</li>\n" _list( block, last );
-  } else if ( p ~ /^\[[xX]\].*/ )    { return "<li class=\"task done\"><input type=checkbox disabled checked />" \
-                                            substr(p, 4) "</li>\n" _list( block, last );
-  } else if ( p ~ /^<p>\[ \].*/ )    { return "<li class=\"task pending\"><p><input type=checkbox disabled />" \
-                                              substr(p, 7) "</li>\n" _list( block, last );
-  } else if ( p ~ /^<p>\[-\].*/ )    { return "<li class=\"task negative\"><p><input type=checkbox disabled />" \
-                                              substr(p, 7) "</li>\n" _list( block, last );
-  } else if ( p ~ /^<p>\[\?\].*/ )   { return "<li class=\"task unsure\"><p><input type=checkbox disabled />" \
-                                              substr(p, 7) "</li>\n" _list( block, last );
-  } else if ( p ~ /^<p>\[\/\].*/ )   { return "<li class=\"task partial\"><p><input type=checkbox disabled />" \
-                                              substr(p, 7) "</li>\n" _list( block, last );
-  } else if ( p ~ /^<p>\[[xX]\].*/ ) { return "<li class=\"task done\"><p><input type=checkbox disabled checked />" \
-                                              substr(p, 7) "</li>\n" _list( block, last );
-  } else { return "<li>" p "</li>\n" _list( block, last ); }
  }
  
  BEGIN {
  }
  
  BEGIN {
@@ -600,6 +824,21 @@ BEGIN {
    file = ""; rl_href[""] = ""; rl_title[""] = "";
    if (ENVIRON["MD_HTML"] == "true") { AllowHTML = "true"; }
    HL[1] = 0; HL[2] = 0; HL[3] = 0; HL[4] = 0; HL[5] = 0; HL[6] = 0;
    file = ""; rl_href[""] = ""; rl_title[""] = "";
    if (ENVIRON["MD_HTML"] == "true") { AllowHTML = "true"; }
    HL[1] = 0; HL[2] = 0; HL[3] = 0; HL[4] = 0; HL[5] = 0; HL[6] = 0;
+  # hls = "0 0 0 0 0 0";
+
+  # Universal Patterns
+  nu = "(\\\\\\\\|\\\\[^\\\\]|[^\\\\_]|_[[:alnum:]])*"    # not underline (except when escaped)
+  na = "(\\\\\\\\|\\\\[^\\\\]|[^\\\\\\*])*"  # not asterisk (except when escaped)
+  ieu =  "_([^_[:space:]]|[^_[:space:]]" nu "[^_[:space:]])_"                 # inner <em> (underline)
+  isu = "__([^_[:space:]]|[^_[:space:]]" nu "[^_[:space:]])__"                # inner <strong> (underline)
+  iea =    "\\*([^\\*[:space:]]|[^\\*[:space:]]" na "[^\\*[:space:]])\\*"     # inner <em> (asterisk)
+  isa = "\\*\\*([^\\*[:space:]]|[^\\*[:space:]]" na "[^\\*[:space:]])\\*\\*"  # inner <strong> (asterisk)
+
+  lix="\\[(\\\\[^\n]|[^]\n\\\\[])*\\]"  # link text
+  lid="(<(\\\\[^\n]|[^\n<>\\\\])*>|(\\\\.|[^()\"'\\\\])+|([^<\n\t ()\\\\]|\\\\[^\n])(\\\\[\n]|[^\n\t \\(\\)\\\\])*)"  # link dest
+  lit="(\"(\\\\.|[^\"\\\\])*\"|'(\\\\.|[^'\\\\])*'|\\((\\\\.|[^\\(\\)\\\\])*\\))"  # link text
+  # link text with image def
+  lii="\\[(\\\\[^\n]|[^]\n\\\\[])*(!" lix "\\([\n\t ]*" lid "([\n\t ]+" lit ")?[\n\t ]*\\))?(\\\\[^\n]|[^]\n\\\\[])*\\]"
  
    # Buffering of full file ist necessary, e.g. to find reference links
    while (getline) { file = file $0 "\n"; }
  
    # Buffering of full file ist necessary, e.g. to find reference links
    while (getline) { file = file $0 "\n"; }
@@ -623,5 +862,5 @@ BEGIN {
    # for (n in rl_href) { debug(n " | " rl_href[n] " | " rl_title[n] ); }
  
    # Run Block Processing -> The Actual Markdown!
    # for (n in rl_href) { debug(n " | " rl_href[n] " | " rl_title[n] ); }
  
    # Run Block Processing -> The Actual Markdown!
-  printf "%s", _block( file );
+  printf "%s", _nblock( file );
  }
  }
diff --git a/session.sh b/session.sh

index 1f4699e441357303b4dd4b6e4daeff3af1bb47c8..c3a44e80b335cc21ef36f23b7761065b883724b2 100755 (executable)
--- a/session.sh
+++ b/session.sh
@@ -1,9 +1,23 @@
  #!/bin/sh
  
  #!/bin/sh
  
+# Copyright 2018 - 2022 Paul Hänsch
+# 
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+# 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
  [ -n "$include_session" ] && return 0
  include_session="$0"
  
  [ -n "$include_session" ] && return 0
  include_session="$0"
  
-_DATE="$(date +%s)"
+export _DATE="$(date +%s)"
  SESSION_TIMEOUT="${SESSION_TIMEOUT:-7200}"
  
  if ! which uuencode >/dev/null; then
  SESSION_TIMEOUT="${SESSION_TIMEOUT:-7200}"
  
  if ! which uuencode >/dev/null; then
diff --git a/storage.sh b/storage.sh

index 22e6accbcba7cddd75bbaec0235a174b4aa53bd3..17ea0d051eaf27233f8b5cd96f7396974c7a87f1 100755 (executable)
--- a/storage.sh
+++ b/storage.sh
@@ -1,21 +1,18 @@
  #!/bin/sh
  
  #!/bin/sh
  
-# Copyright 2018, 2019, 2021 Paul Hänsch
-#
-# This is a file format helper, part of CGIlite.
+# Copyright 2018 - 2021 Paul Hänsch
  # 
  # 
-# CGIlite is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
  # 
  # 
-# CGIlite is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
-# 
-# You should have received a copy of the GNU Affero General Public License
-# along with CGIlite.  If not, see <http://www.gnu.org/licenses/>. 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  
  [ -n "$include_storage" ] && return 0
  include_storage="$0"
  
  [ -n "$include_storage" ] && return 0
  include_storage="$0"
diff --git a/users.sh b/users.sh

index 6a6833e96c592043669006bbeec91b628a70667e..d738ee94ec70a9ac6a55a5cc2321b0628063be4a 100755 (executable)
--- a/users.sh
+++ b/users.sh
@@ -1,5 +1,19 @@
  #!/bin/sh
  
  #!/bin/sh
  
+# Copyright 2021 - 2023 Paul Hänsch
+# 
+# Permission to use, copy, modify, and/or distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+# 
+# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
+# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
  [ -n "$include_users" ] && return 0
  include_users="$0"
  
  [ -n "$include_users" ] && return 0
  include_users="$0"
  
@@ -36,6 +50,10 @@ LOCAL_USER='local \
    USER_EXPIRE USER_DEVICES USER_FUTUREUSE
  '
  
    USER_EXPIRE USER_DEVICES USER_FUTUREUSE
  '
  
+# == TRANSLATIONS ==
+# override all functions marked with "TRANSLATION"
+# sed -n '/TRANSLATION$/,/^}/p;' <cgilite/users.sh
+
  unset USER_IDMAP
  eval "$UNSET_USER"
  
  unset USER_IDMAP
  eval "$UNSET_USER"
  
@@ -218,6 +236,30 @@ user_pwhash(){
    printf '%s\n' "${hash%% *}"
  }
  
    printf '%s\n' "${hash%% *}"
  }
  
+user_register_email() {  # TRANSLATION
+  "$SENDMAIL" -t -f "$MAILFROM" <<-EOF
+       From: ${MAILFROM}
+       To: ${email}
+       Subject: Your account registration at ${HTTP_HOST%:*}
+
+       Someone tried to sign up for a user account using this email address.
+
+       You can activate your account using this link:
+
+           ${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")
+
+       This registration link will expire after $((USER_CONFIRMEXPIRE / 3600)) hours.
+
+       If you did not request an account at ${HTTP_HOST%:*}, then someone else
+       probably entered your email address by accident. In this case you shoud
+       simply ignore this message and we will remove your email address from
+       our database within the next day.
+
+       This is an automatic email. Any direct reply will not be received.
+       Your Account Registration Robot.
+       EOF
+}
+
  user_register(){
    # reserve account, send registration mail
    # preliminary uid, expiration, signature
  user_register(){
    # reserve account, send registration mail
    # preliminary uid, expiration, signature
@@ -239,27 +281,7 @@ user_register(){
      elif new_user "$uid" status=pending email="$email" expire="$((_DATE + USER_CONFIRMEXPIRE))"; then
        debug "Sending Activation Link:" \
              "${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
      elif new_user "$uid" status=pending email="$email" expire="$((_DATE + USER_CONFIRMEXPIRE))"; then
        debug "Sending Activation Link:" \
              "${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
-      "$SENDMAIL" -t -f "$MAILFROM" <<-EOF
-       From: ${MAILFROM}
-       To: ${email}
-       Subject: Your account registration at ${HTTP_HOST%:*}
-
-       Someone tried to sign up for a user account using this email address.
-
-       You can activate your account using this link:
-
-           ${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")
-
-       This registration link will expire after $((USER_CONFIRMEXPIRE / 3600)) hours.
-
-       If you did not request an account at ${HTTP_HOST%:*}, then someone else
-       probably entered your email address by accident. In this case you shoud
-       simply ignore this message and we will remove your email address from
-       our database within the next day.
-
-       This is an automatic email. Any direct reply will not be received.
-       Your Account Registration Robot.
-       EOF
+      user_register_email
        REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
      else
        REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
        REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
      else
        REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
@@ -289,19 +311,8 @@ user_register(){
    fi
  }
  
    fi
  }
  
-user_invite(){
-  local uid="$(timeid)"
-  local email="$(POST email |user_checkemail)"
-  local message="$(POST message)"
-
-  if [ ! "email" ]; then
-    REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_INVALID"
-  elif user_emailexist "$email"; then
-    REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_EXISTS"
-  elif new_user "$uid" status=pending email="$email" expire="$((_DATE + USER_CONFIRMEXPIRE))"; then
-    debug "Sending Invitation Link:" \
-          "${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
-    "$SENDMAIL" -t -f "$MAILFROM" <<-EOF
+user_invite_email(){  # TRANSLATION
+  "$SENDMAIL" -t -f "$MAILFROM" <<-EOF
         From: ${MAILFROM}
         To: ${email}
         Subject: You have been invited to ${HTTP_HOST%:*}
         From: ${MAILFROM}
         To: ${email}
         Subject: You have been invited to ${HTTP_HOST%:*}
@@ -324,6 +335,21 @@ user_invite(){
         This is an automatic email. Any direct reply will not be received.
         Your Account Registration Robot.
         EOF
         This is an automatic email. Any direct reply will not be received.
         Your Account Registration Robot.
         EOF
+}
+
+user_invite(){
+  local uid="$(timeid)"
+  local email="$(POST email |user_checkemail)"
+  local message="$(POST message)"
+
+  if [ ! "email" ]; then
+    REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_INVALID"
+  elif user_emailexist "$email"; then
+    REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_EXISTS"
+  elif new_user "$uid" status=pending email="$email" expire="$((_DATE + USER_CONFIRMEXPIRE))"; then
+    debug "Sending Invitation Link:" \
+          "${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
+    user_invite_email
      REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
    else
      REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
      REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
    else
      REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
@@ -474,17 +500,15 @@ w_user_update(){
    fi
  }
  
    fi
  }
  
-w_user_register(){
-  if [ "$(GET user_confirm)" ]; then
-    w_user_confirm
-  elif [ "$USER_REGISTRATION" != true -a -s "$user_db" ]; then
-    cat <<-EOF
+w_user_register_disabled(){  # TRANSLATION
+  cat <<-EOF
         [div #user_register .disabled
         User Registration is disabled.
         ]
         EOF
         [div #user_register .disabled
         User Registration is disabled.
         ]
         EOF
-  elif [ "$USER_REQUIREEMAIL" = true ]; then
-    cat <<-EOF
+}
+w_user_register_sendmail(){  # TRANSLATION
+  cat <<-EOF
         [form #user_register .registeremail method=POST
           [p We will send an activation mail to your email address.
             You can continue the signup process when you click on the
         [form #user_register .registeremail method=POST
           [p We will send an activation mail to your email address.
             You can continue the signup process when you click on the
@@ -493,8 +517,9 @@ w_user_register(){
           [submit "action" "user_register" Sign Up]
         ]
         EOF
           [submit "action" "user_register" Sign Up]
         ]
         EOF
-  elif [ "$USER_REQUIREEMAIL" != true ]; then
-    cat <<-EOF
+}
+w_user_register_direct(){  # TRANSLATION
+  cat <<-EOF
         [form #user_register .registername method=POST
            [input name=uname placeholder="Choose Username" tooltip="Your username may contain any character but the @ sign. It must be at least 3 characters long, and it must start with a letter." pattern="^\[\\\\p{L}\]\[\\\\p{L}0-9 -~\]{2,127}$" autocomplete=off]
           [input type=password name=pw placeholder="Choose Passphrase" pattern=".{6,}"]
         [form #user_register .registername method=POST
            [input name=uname placeholder="Choose Username" tooltip="Your username may contain any character but the @ sign. It must be at least 3 characters long, and it must start with a letter." pattern="^\[\\\\p{L}\]\[\\\\p{L}0-9 -~\]{2,127}$" autocomplete=off]
           [input type=password name=pw placeholder="Choose Passphrase" pattern=".{6,}"]
@@ -502,20 +527,22 @@ w_user_register(){
           [submit "action" "user_register" Sign Up]
         ]
         EOF
           [submit "action" "user_register" Sign Up]
         ]
         EOF
-  fi
  }
  
  }
  
-w_user_confirm(){
-  local UID_   UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
-  local user_confirm="$(GET user_confirm)"
-  local uid="${user_confirm% *}" signature="${user_confirm#* }"
+w_user_register(){
+  if [ "$(GET user_confirm)" ]; then
+    w_user_confirm
+  elif [ "$USER_REGISTRATION" != true -a -s "$user_db" ]; then
+    w_user_register_disabled
+  elif [ "$USER_REQUIREEMAIL" = true ]; then
+    w_user_register_sendmail
+  elif [ "$USER_REQUIREEMAIL" != true ]; then
+    w_user_register_direct
+  fi
+}
  
  
-  if [ "$signature" = "$(session_mac "$uid")" ]; then
-    read -r UID_       UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE <<-EOF
-       $(grep "^${uid} " "$user_db")
-       EOF
-    if [ "$STATUS" = pending -a "$EXPIRE" -gt "$_DATE" ]; then
-      cat <<-EOF
+w_user_confirm_proceed(){  # TRANSLATION
+  cat <<-EOF
         [form #user_confirm method=POST
           [input type=hidden name=uid value="${uid}"]
           [input type=hidden name=signature value="${signature}"]
         [form #user_confirm method=POST
           [input type=hidden name=uid value="${uid}"]
           [input type=hidden name=signature value="${signature}"]
@@ -528,41 +555,52 @@ w_user_confirm(){
           [submit "action" "user_confirm" Finish Registration]
         ]
         EOF
           [submit "action" "user_confirm" Finish Registration]
         ]
         EOF
-    else
-      cat <<-EOF
+}
+w_user_confirm_expired(){  # TRANSLATION
+  cat <<-EOF
         [div #user_confirm .expired
           [p This activation link is not valid anymore.]
         ]
         EOF
         [div #user_confirm .expired
           [p This activation link is not valid anymore.]
         ]
         EOF
-    fi
-  else
-    cat <<-EOF
+}
+w_user_confirm_invalid(){  # TRANSLATION
+  cat <<-EOF
         [div #user_confirm .invalid
           [p This activation link is invalid. Make sure you copied the whole activation link from your email and be careful not to include any line breaks.]
         ]
         EOF
         [div #user_confirm .invalid
           [p This activation link is invalid. Make sure you copied the whole activation link from your email and be careful not to include any line breaks.]
         ]
         EOF
-  fi
  }
  
  }
  
-w_user_invite(){
-  local uid invlink
+w_user_confirm(){
+  local UID_   UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
+  local user_confirm="$(GET user_confirm)"
+  local uid="${user_confirm% *}" signature="${user_confirm#* }"
  
  
-  if [ "$(GET user_confirm)" ]; then
-    w_user_confirm
-  elif [ "$USER_ID" -a "$SENDMAIL" ]; then
-    cat <<-EOF
+  if [ "$signature" = "$(session_mac "$uid")" ]; then
+    read -r UID_       UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE <<-EOF
+       $(grep "^${uid} " "$user_db")
+       EOF
+    if [ "$STATUS" = pending -a "$EXPIRE" -gt "$_DATE" ]; then
+      w_user_confirm_proceed
+    else
+      w_user_confirm_expired
+    fi
+  else
+    w_user_confirm_invalid
+  fi
+}
+
+w_user_invite_email(){  # TRANSLATION
+  cat <<-EOF
         [form #user_invite method=POST
           [input placeholder="Email Recipient" name=email autocomplete=off]
           [textarea name="message" placeholder="Message to recipient" . ]
           [submit "action" "user_invite" Send Invitation]
         ]
         EOF
         [form #user_invite method=POST
           [input placeholder="Email Recipient" name=email autocomplete=off]
           [textarea name="message" placeholder="Message to recipient" . ]
           [submit "action" "user_invite" Send Invitation]
         ]
         EOF
-  elif [ "$USER_ID" ]; then
-    uid="$(timeid)"
-    new_user "$uid" status=pending expire="$((_DATE + USER_CONFIRMEXPIRE))"
-    invlink="${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
-    debug "New Invitation Link: $invlink"
-    cat <<-EOF
+}
+w_user_invite_link(){  # TRANSLATION
+  cat <<-EOF
         [div #user_invite .link
            [p An anonymous user account has been set up. Send the following link to the intended user, so they may claim their account. The link will remain valid for $((USER_CONFIRMEXPIRE / 3600)) hours.]
            [a href="$(HTML "$invlink")" . $(HTML "$invlink")]
         [div #user_invite .link
            [p An anonymous user account has been set up. Send the following link to the intended user, so they may claim their account. The link will remain valid for $((USER_CONFIRMEXPIRE / 3600)) hours.]
            [a href="$(HTML "$invlink")" . $(HTML "$invlink")]
@@ -570,30 +608,55 @@ w_user_invite(){
            [p [a href="#" . Set up another account]]
         ]
         EOF
            [p [a href="#" . Set up another account]]
         ]
         EOF
-  else
-    cat <<-EOF
+}
+w_user_invite_deny(){  # TRANSLATION
+  cat <<-EOF
         [div #user_invite .notallowed
           Only registered users may send an invitation to another user.
         ]
         EOF
         [div #user_invite .notallowed
           Only registered users may send an invitation to another user.
         ]
         EOF
+}
+
+w_user_invite(){
+  local uid invlink
+
+  if [ "$(GET user_confirm)" ]; then
+    w_user_confirm
+  elif [ "$USER_ID" -a "$SENDMAIL" ]; then
+    w_user_invite_email
+  elif [ "$USER_ID" ]; then
+    uid="$(timeid)"
+    new_user "$uid" status=pending expire="$((_DATE + USER_CONFIRMEXPIRE))"
+    invlink="${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
+    debug "New Invitation Link: $invlink"
+    w_user_invite_link
+  else
+    w_user_invite_deny
    fi
  }
  
    fi
  }
  
-w_user_login(){
-  if [ ! "$USER_ID" ]; then
-    cat <<-EOF
+w_user_login_logon(){  # TRANSLATION
+  cat <<-EOF
         [form #user_login .login method=POST
           [input name=uname placeholder="Username or Email" autocomplete=off]
           [input type=password name=pw placeholder="Passphrase"]
           [submit "action" "user_login" Login]
         ]
         EOF
         [form #user_login .login method=POST
           [input name=uname placeholder="Username or Email" autocomplete=off]
           [input type=password name=pw placeholder="Passphrase"]
           [submit "action" "user_login" Login]
         ]
         EOF
-  elif [ "$USER_ID" ]; then
-    cat <<-EOF
+}
+w_user_login_logoff(){  # TRANSLATION
+  cat <<-EOF
         [form #user_login .logout method=POST
           [p Logged in as [span . $(HTML ${USER_NAME})]]
           [submit "action" "user_logout" Logout]
         ]
         EOF
         [form #user_login .logout method=POST
           [p Logged in as [span . $(HTML ${USER_NAME})]]
           [submit "action" "user_logout" Logout]
         ]
         EOF
+}
+
+w_user_login(){
+  if [ ! "$USER_ID" ]; then
+    w_user_login_logon
+  elif [ "$USER_ID" ]; then
+    w_user_login_logoff
    fi
  }
    fi
  }
author	Paul Hänsch <paul@plutz.net>
	Wed, 11 Oct 2023 21:06:04 +0000 (23:06 +0200)
committer	Paul Hänsch <paul@plutz.net>
	Wed, 11 Oct 2023 21:06:04 +0000 (23:06 +0200)
cgilite.sh		patch \| blob \| history
common.css		patch \| blob \| history
file.sh		patch \| blob \| history
html-sh.sed		patch \| blob \| history
markdown.awk		patch \| blob \| history
session.sh		patch \| blob \| history
storage.sh		patch \| blob \| history
users.sh		patch \| blob \| history