git.plutz.net Git - shellwiki/blob - themes/default.sh

   1 #!/bin/sh
   2
   3 . "$_EXEC/tools.sh"
   4
   5 theme_head(){
   6   local IFS="$BR"
   7   printf '
   8   <meta name="viewport" content="width=device-width">
   9   '
  10   for css in "$_BASE/%5B.%5D/cgilite/common.css" "$_BASE/%5B.%5D/themes/default.css" $PAGE_CSS; do
  11     printf  '<link rel="stylesheet" type="text/css" href="%s">' \
  12             "$(HTML "${css##*//}")"
  13   done
  14 }
  15
  16 theme_header(){
  17   printf '<header>%s</header>' "$(wiki '[wiki]/header/')"
  18 }
  19
  20 theme_footer(){
  21   printf '<footer>%s</footer>' "$(wiki '[wiki]/footer/')"
  22 }
  23
  24 theme_pagemenu(){
  25   local page="$1"
  26
  27   if acl_write "$page"; then
  28     printf  '
  29     <ul class="pagemenu">
  30       <li><a href="./%%5Bview%%5D">View</a></li>
  31       <li><a href="./%%5Bedit%%5D">Edit</a></li>
  32       <li><a href="./%%5Battachment%%5D">Attachments</a></li>
  33       <li><a href="./%%5Brevision%%5D">Revisions</a></li>
  34       <li><a href="./%%5Brename%%5D">Rename</a></li>
  35       <li><a href="./%%5Bmove%%5D">Move</a></li>
  36       <li><a href="./%%5Bdelete%%5D">Delete</a></li>
  37     </ul>'
  38   fi
  39 }
  40
  41 theme_page(){
  42   local page="$1" title="$2"
  43   title="$(HTML "${title:-"${PAGE_TITLE:-"${page}"}"}")"
  44
  45   # Important! Web Server response including newline
  46   printf "%s\r\n" "Content-Type: text/html; charset=utf-8" ""
  47
  48   cat <<-EOF
  49         <!DOCTYPE HTML>
  50         <html${LANGUAGE:+ lang=\"${LANGUAGE}\"}><head>
  51           $(theme_head)
  52           <title>${title}</title>
  53         </head><body id="$(HTML "${PATH_INFO}")">
  54           $(theme_header)
  55           <main>
  56             $(theme_pagemenu)
  57             $(if [ "$page" = '-' ]; then
  58                 cat
  59               else
  60                 printf '<article>'
  61                 wiki "$page"
  62                 printf '</article>'
  63             fi)
  64           </main>
  65           $(theme_footer)
  66         </body></html>
  67         EOF
  68 }
  69
  70 theme_editor(){
  71   local page="$1" template="$2" title file att
  72   title="$(HTML "${PAGE_TITLE:-"${page}"}")"
  73
  74   [ "$template" ] && acl_read "$template" || template="$page"
  75
  76   theme_page - "Editor: $title" <<-EOF
  77         <input checked type=radio class=tab name=edithelp value=edtr id=edtr><label for=edtr>Editor</label>
  78         <input         type=radio class=tab name=edithelp value=help id=help><label for=help>Syntax</label>
  79         <input         type=radio class=tab name=edithelp value=himg id=himg><label for=himg>Images</label>
  80         <input         type=radio class=tab name=edithelp value=hdoc id=hdoc><label for=hdoc>Documents</label>
  81         <form class="tab editor" method=POST action="$(HTML "${_BASE}${page%/}/[edit]")">
  82           <input type=hidden name=session_key value="${SESSION_KEY}"/>
  83           <textarea name=pagetext>$({ wiki_text "$page" \
  84                                    || wiki_text "$template"; } |HTML)</textarea>
  85           <button type=submit name=action value=update>Update</button>
  86           <button type=submit name=action value=cancel>Cancel</button>
  87         </form>
  88         <div class="tab syntax">$(wiki "/[wiki]/editorhelp/")</div>
  89         <div class="tab help">
  90         $(for file in "$_EXEC/pages/${page%/:$LANGUAGE/}/#attachments"/* "$_DATA/pages/${page%/:$LANGUAGE/}/#attachments"/*; do
  91           [ "$file" = "$_EXEC/pages/${page%/:$LANGUAGE/}/#attachments/${file##*/}" \
  92                 -a -f "$_DATA/pages/${page%/:$LANGUAGE/}/#attachments/${file##*/}" ] && continue
  93           case ${file##*/} in
  94             \*) continue;;
  95             *.[pP][nN][gG]|*.[jJ][pP][gG]|*.[jJ][pP][eE][gG]|*.[gG][iI][fF])
  96               [ "$page" != "${page%/:$LANGUAGE/}" ] && p=../ || p=''
  97               att="$(HTML "${file##*/}")"
  98               printf '<p class=himg><img src="%s%s">![](%s)</p><ul class=himg><li>[%s]([attachment]/%s)</li><li>[![%s](%s)]([attachment]/%s)</li></ul>' \
  99                      "$p" "$att" "$att" "$att" "$att" "$att" "$att" "$att"
 100               ;;
 101             *)
 102               att="$(HTML "${file##*/}")"
 103               printf '<p class="hdoc">[%s](%s)</p>' "$att" "$att"
 104               ;;
 105           esac
 106         done)
 107         </div>
 108         EOF
 109 }
 110
 111 theme_revisions(){
 112   local page="$1" title
 113   title="${page%/}"; title="${title##*/}"
 114
 115  "$_EXEC/macros/revisions" "$page" \
 116   | theme_page - "Revisions: $title"
 117 }
 118
 119 theme_attachments(){
 120   local page="$1" title
 121   title="${page%/}"; title="${title##*/}"
 122
 123   if acl_write "$page"; then
 124     theme_page - "Attachments: $title" <<-EOF
 125         <form class=upload method=POST enctype="multipart/form-data">
 126           <h2>Upload</h2>
 127           <input type=hidden name=session_id value="$SESSION_ID">
 128           <input type=file name=file multiple>
 129           <button type=submit name=action value=upload>Upload</button>
 130         </form>
 131
 132         <form method=POST>
 133           <h2>Attachments</h2>
 134           <input type=hidden name=session_key value="$SESSION_KEY">
 135           <input checked type=radio class=tab name=attachaction value=view id=tview><label for=tview>View</label>
 136           <input         type=radio class=tab name=attachaction value=del  id=tdel ><label for=tdel >Delete</label>
 137           <input         type=radio class=tab name=attachaction value=move id=tmove><label for=tmove>Move</label>
 138           <input         type=radio class=tab name=attachaction value=ren  id=tren ><label for=tren >Rename</label>
 139           <div class="tab">
 140             <ul class="attachment list">
 141         $(for file in "$_EXEC/pages/$page/#attachments"/* "$_DATA/pages/$page/#attachments"/*; do
 142           [ "$file" = "$_EXEC/pages/$page/#attachments/${file##*/}" \
 143                 -a -f "$_DATA/pages/$page/#attachments/${file##*/}" ] && continue
 144           stat="$(stat -c '%s %Y' -- "$file" 2>&-)" || continue
 145           size="${stat% *}" date="${stat#* }"
 146           hfile="$(HTML "${file##*/}")"
 147
 148           printf '<li><input id="select_%s" type=checkbox name=select value="%s">
 149                     <label class=name for="select_%s">%s</label>
 150                     <input class=name name="rename_%s" value="" placeholder="%s" />
 151                     <a class=name href="[attachment]/%s">%s</a>
 152                     <span class=size>%s</span>
 153                     <span class=date>%s</span>
 154                   </li>' \
 155                  "$hfile" "$hfile" "$hfile" "$hfile" \
 156                  "$(slopecode "${file##*/}")" "$hfile" "$hfile" "$hfile" \
 157                  "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
 158         done)
 159             </ul>
 160             <button type=submit name=action value=delete>Delete</button>
 161             <label for=moveto>Move To:</label>
 162             <input id="moveto" name="moveto" value="$(HTML "$page")" placeholder="page name">
 163             <button type=submit name=action value=move  >Move</button>
 164             <button type=submit name=action value=rename>Rename</button>
 165           </div>
 166         </form>
 167         EOF
 168   else
 169     theme_page - "Attachments: $title" <<-EOF
 170         <ul class="attachment list">
 171         $(for file in "$_EXEC/pages/$page/#attachments"/* "$_DATA/pages/$page/#attachments"/*; do
 172           [ "$file" = "$_EXEC/pages/$page/#attachments/${file##*/}" \
 173                 -a -f "$_DATA/pages/$page/#attachments/${file##*/}" ] && continue
 174           stat="$(stat -c '%s %Y' -- "$file" 2>&-)" || continue
 175           size="${stat% *}" date="${stat#* }"
 176           hfile="$(HTML "${file##*/}")"
 177
 178           printf '<li><a class=name href="%s">%s</a>
 179                   <span class=size>%s</span><span class=date>%s</span></li>' \
 180                  "$hfile" "$hfile" "$(size_human "$size")" "$(date -d @"$date" +"%F %T")"
 181         done)
 182         </ul>
 183         EOF
 184   fi
 185 }
 186
 187 theme_error(){
 188   local errno="$1"
 189
 190   case $errno in
 191     400) printf "%s\r\n" "Status: 400 Bad Request";;
 192     403) printf "%s\r\n" "Status: 403 Forbidden";;
 193     404) printf "%s\r\n" "Status: 404 Not Found";;
 194     409) printf "%s\r\n" "Status: 409 Conflict";;
 195     500) printf "%s\r\n" "Status: 500 Internal Server Error";;
 196   esac
 197
 198   if mdfile "/[wiki]/$errno/" >&-; then
 199     theme_page "/[wiki]/$errno/"
 200   else
 201     printf "Content-Length: 0\r\n\r\n"
 202   fi
 203 }