X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=themes%2Fdefault.sh;h=5979f207895e2f9586abd29947902f160a93d0b9;hb=81d216bea30f87c783d9ed427a1bd3150b41708f;hp=09e12f2e34f146c3274afc0bce34b1c811a0c7a9;hpb=a5a07a5b687cfe88408e346fd6960dfe52bca7b7;p=shellwiki diff --git a/themes/default.sh b/themes/default.sh index 09e12f2..5979f20 100755 --- a/themes/default.sh +++ b/themes/default.sh @@ -1,13 +1,27 @@ #!/bin/sh +# Copyright 2022 - 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. + . "$_EXEC/tools.sh" theme_head(){ local IFS="$BR" printf ' - + ' - for css in "$_BASE/[.]/cgilite/common.css" "$_BASE/[.]/themes/default.css" $PAGE_CSS; do + for css in "$_BASE/%5B.%5D/cgilite/common.css" "$_BASE/%5B.%5D/themes/default.css" $PAGE_CSS; do printf '' \ "$(HTML "${css##*//}")" done @@ -25,29 +39,30 @@ theme_pagemenu(){ local page="$1" if acl_write "$page"; then - printf ' - ' + cat <<-EOF + + EOF fi } theme_page(){ local page="$1" title="$2" - title="$(HTML "${title:-"${page}"}")" + title="$(HTML "${title:-"${PAGE_TITLE:-"${page}"}"}")" # Important! Web Server response including newline printf "%s\r\n" "Content-Type: text/html; charset=utf-8" "" cat <<-EOF - + $(theme_head) ${title} @@ -68,28 +83,75 @@ theme_page(){ } theme_editor(){ - local page="$1" template="$2" title - title="${page%/}"; title="${title##*/}" + local page="$1" template="$2" title file att + title="$(HTML "${PAGE_TITLE:-"${page}"}")" [ "$template" ] && acl_read "$template" || template="$page" theme_page - "Editor: $title" <<-EOF -
+ + + + $([ "$LANGUAGE_DEFAULT" -a "$LANGUAGE_DEFAULT" != "$LANGUAGE" ] && printf ' + + ' "$LANGUAGE_DEFAULT" + ) + - - + +
+
$(wiki "/[wiki]/editorhelp/")
+
+ $(for file in "$_EXEC/pages/${page%/:$LANGUAGE/}/#attachments"/* "$_DATA/pages/${page%/:$LANGUAGE/}/#attachments"/*; do + [ "$file" = "$_EXEC/pages/${page%/:$LANGUAGE/}/#attachments/${file##*/}" \ + -a -f "$_DATA/pages/${page%/:$LANGUAGE/}/#attachments/${file##*/}" ] && continue + att="$(HTML "${file##*/}")" + url="$(printf %s\\n "${file##*/}" |sed 's;[\\<>];\\&;g' |HTML)" + name="$(printf %s\\n "${file##*/}" |sed 's;[]\\[];\\&;g' |HTML)" + case ${file##*/} in + \*) continue;; + *.[pP][nN][gG]|*.[jJ][pP][gG]|*.[jJ][pP][eE][gG]|*.[gG][iI][fF]) + [ "$page" != "${page%/:$LANGUAGE/}" ] && p=../ || p='' + printf '

![](<%s>)

' \ + "$p" "$att" "$url" "$name" "$url" "$name" "$url" "$url" + ;; + *) + printf '

[%s](<%s>)

' "$name" "$url" + ;; + esac + done) +
+ $(if [ "$LANGUAGE_DEFAULT" -a "$LANGUAGE_DEFAULT" != "$LANGUAGE" ]; then + printf '
%s
' "$(LANGUAGE='' wiki_text "${page%/:$LANGUAGE/}" |HTML)" + fi) EOF } -theme_revisions(){ - local page="$1" title - title="${page%/}"; title="${title##*/}" - - "$_EXEC/macros/revisions" "$page" \ - | theme_page - "Revisions: $title" +theme_revisions(){ theme_page "$@"; } + +theme_search(){ + local words="$*" + # STDIN: read result pages line by line + + theme_page - <<-EOF +
+

$([ "$words" ] && _ "Search results" || _ "Search" )

+
+ +
+
    + $( while read p; do + printf '
  1. %s
    2. ' "$(URL "$p")" "$(HTML "$p")" + done) +
+
+ EOF } theme_attachments(){ @@ -97,15 +159,23 @@ theme_attachments(){ title="${page%/}"; title="${title##*/}" if acl_write "$page"; then - theme_page - "Attachments: $title" <<-EOF + theme_page - "$(_ Attachments): $title" <<-EOF
+

$(_ Upload)

- +
-
+ + + + + + + EOF else - theme_page - "Attachments: $title" <<-EOF + theme_page - "$(_ Attachments): $title" <<-EOF