X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=themes%2Fdefault.sh;h=de357871bd49695f9a2b01efc81c1f12178b2628;hb=65676ea8331f60d882e3baec99c101382e9fad57;hp=001dd3caa85d1ca95825359afa8d69f47b0d3600;hpb=e2ad5bc6d56a970f4c4674f5c96ba7458370d8c9;p=shellwiki
diff --git a/themes/default.sh b/themes/default.sh
index 001dd3c..de35787 100755
--- a/themes/default.sh
+++ b/themes/default.sh
@@ -3,11 +3,14 @@
. "$_EXEC/tools.sh"
theme_head(){
+ local IFS="$BR"
printf '
-
-
-
- ' "$_BASE"
+
+ '
+ for css in "$_BASE/%5B.%5D/cgilite/common.css" "$_BASE/%5B.%5D/themes/default.css" $PAGE_CSS; do
+ printf '' \
+ "$(HTML "${css##*//}")"
+ done
}
theme_header(){
@@ -22,26 +25,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}
@@ -62,29 +69,53 @@ 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
-
+ $(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
+ case ${file##*/} in
+ \*) continue;;
+ *.[pP][nN][gG]|*.[jJ][pP][gG]|*.[jJ][pP][eE][gG]|*.[gG][iI][fF])
+ [ "$page" != "${page%/:$LANGUAGE/}" ] && p=../ || p=''
+ att="$(HTML "${file##*/}")"
+ printf '
![](%s)
- [%s]([attachment]/%s)
- [![%s](%s)]([attachment]/%s)
' \
+ "$p" "$att" "$att" "$att" "$att" "$att" "$att" "$att"
+ ;;
+ *)
+ att="$(HTML "${file##*/}")"
+ printf '
[%s](%s)
' "$att" "$att"
+ ;;
+ 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_attachments(){
local page="$1" title
@@ -93,13 +124,21 @@ theme_attachments(){
if acl_write "$page"; then
theme_page - "Attachments: $title" <<-EOF
-
EOF
else
theme_page - "Attachments: $title" <<-EOF
@@ -143,7 +196,7 @@ theme_error(){
500) printf "%s\r\n" "Status: 500 Internal Server Error";;
esac
- if [ "$(mdfile "/[wiki]/$errno/")" ]; then
+ if mdfile "/[wiki]/$errno/" >&-; then
theme_page "/[wiki]/$errno/"
else
printf "Content-Length: 0\r\n\r\n"