git.plutz.net Git - shellwiki/blob - macros/pagelist

   1 #!/bin/sh
   2
   3 # Copyright 2022 - 2023 Paul Hänsch
   4 #
   5 # Permission to use, copy, modify, and/or distribute this software for any
   6 # purpose with or without fee is hereby granted, provided that the above
   7 # copyright notice and this permission notice appear in all copies.
   8 #
   9 # THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  10 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  11 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
  12 # SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  13 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  14 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
  15 # IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  16
  17 . "$_EXEC/cgilite/cgilite.sh"
  18 . "$_EXEC/acl.sh"
  19 . "$_EXEC/tools.sh"
  20
  21 tags='' dir='' depth='' glob_system_pages=false
  22
  23 set -- "$@" --
  24 while [ $# -gt 0 ]; do case $1 in
  25   --system) glob_system_pages=true; shift 1;;
  26   --depth)  depth="$2" shift 2;;
  27   \#*) tags="${tags}${tags:+ }${1###}"; shift 1;;
  28   --) shift 1; break;;
  29   *) if [ ! "$dir" ]; then
  30       dir="$1"
  31       set -- "$@" "$1"; shift 1;
  32     elif [ ! "$depth" ]; then
  33       depth="$1"; shift 1;
  34     else
  35       set -- "$@" "$1"; shift 1;
  36     fi;;
  37 esac; done
  38
  39 [ "$*" ] || set -- "*"
  40 [ "$depth" -ge 0 -o "$depth" -le 0 ] 2>&- || depth=0
  41
  42 printf '<ul class="macro pagelist">\n'
  43   for dir in "$@"; do
  44     page_glob "$dir" "$depth"
  45   done \
  46   | sort -u \
  47   | while read -r page; do
  48     pagedir="$(page_abs "$page")"
  49     [ -f "$_DATA/pages/${pagedir}/#page.md" -o \
  50       -f "$_EXEC/pages/${pagedir}/#page.md" ] \
  51     && acl_read "$pagedir" \
  52     && has_tags "$pagedir" $tags \
  53     && printf '<li><a href="%s">%s</a></li>' "$(HTML "$page")" "$(HTML "$page")"
  54   done
  55 printf '</ul>\n'