X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=macros%2Fpagelist;h=cdc74856369131732c8c4e607026f404518b0286;hb=47fc66bf1d57a7c43f572514c87b650671fd64e0;hp=f4be1772bf4d28b718df704e0716eb6e8ec941fb;hpb=359ef8d6a4d58d52ae3347d6390e4d4d535fb2d4;p=shellwiki

diff --git a/macros/pagelist b/macros/pagelist
index f4be177..cdc7485 100755
--- a/macros/pagelist
+++ b/macros/pagelist
@@ -1,6 +1,6 @@
 #!/bin/sh
 
-# Copyright 2022 - 2023 Paul Hänsch
+# Copyright 2022 - 2024 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
@@ -17,31 +17,91 @@
 . "$_EXEC/cgilite/cgilite.sh"
 . "$_EXEC/acl.sh"
 . "$_EXEC/tools.sh"
+. "$_EXEC/db23.sh"
 
+tags='' ntags='' dir='' depth='' glob_system_pages=false
+label='' labeltype='' altlabel='' titles='' db3_data=''
+DB3 new  # Use DB3 for in-memory cache
+
+set -- "$@" --
 while [ $# -gt 0 ]; do case $1 in
   --system) glob_system_pages=true; shift 1;;
-  --depth)  depth="$2" shift 2;;
+  --depth)  depth="$2"; shift 2;;
+  --title|--titles) titles=true; shift 1;;
+  \#*) tags="${tags}${tags:+ }${1###}"; shift 1;;
+  \!*) ntags="${ntags}${ntags:+ }${1##!}"; shift 1;;
+  --h1|--h2|--h3|--h4|--h5|--h6|--label)
+    labeltype="${1#--}" label="$2"; shift 2;;
+  --alt-label|--altlabel)
+    altlabel="$2"; shift 2;;
+  --) shift 1; break;;
   *) if [ ! "$dir" ]; then
       dir="$1"
+      set -- "$@" "$1"; shift 1;
     elif [ ! "$depth" ]; then
-      depth="$1"
-    fi
-    shift 1;;
+      depth="$1"; shift 1;
+    else
+      set -- "$@" "$1"; shift 1;
+    fi;;
 esac; done
 
-[ "$dir" ] || dir=*
+[ "$*" ] || set -- "*"
 [ "$depth" -ge 0 -o "$depth" -le 0 ] 2>&- || depth=0
 
-printf '<ul class="macro pagelist">\n'
-  page_glob "$dir" "$depth" \
-  | while read -r glob; do
-    printf %s\\n "$glob"
+print_page() {
+  # print page URL and resolve page title (for use with --title flag)
+  # avoid calling this function via a subshell (i.e. $(print_page *))
+  # because it should be able to write its cache variable
+  local page="${1%/}/" title='' pfrag=''
+  pfrag="${page}"
+
+  # resolve name of each path element
+  while [ "${pfrag%/*}" -a "${pfrag%/*}" != "${pfrag}" ]; do
+    pfrag="${pfrag%/*}"
+    debug "$page - $pfrag"
+    title="$(DB3 get "${pfrag}" || ! page_title "$(page_abs "${pfrag}")")/${title}" && break
+  done
+  # keep resolved names in cache
+  DB3 set "${page%/*}" "${title%/}"
+
+  [ "${page#/}" != "${page}" ] && title="/$title"
+  printf '%s	%s\n' "$(URL "$page")" "$(HTML "${title}")"
+}
+
+pagelist="$(
+  for dir in "$@"; do
+    page_glob "$dir" "$depth"
   done \
+  | sort -u \
   | while read -r page; do
     pagedir="$(page_abs "$page")"
-    [ -f "$_DATA/pages/${pagedir}/#page.md" -o \
-      -f "$_EXEC/pages/${pagedir}/#page.md" ] \
-    && acl_read "$pagedir" \
-    && printf '<li><a href="%s">%s</a></li>' "$(HTML "$page")" "$(HTML "$page")"
+    if [ -f "$_DATA/pages/${pagedir}/#page.md" -o \
+         -f "$_EXEC/pages/${pagedir}/#page.md" ] \
+       && acl_read "$pagedir" \
+       && has_tags "$pagedir" $tags \
+       && ! has_tag "$pagedir" $ntags
+    then
+      # Be careful, not to fork the print_page function into a subshell
+      # as it must be able to write its cache to the current context
+      [ "$titles" ] \
+      && print_page "$page" \
+      || printf '%s	%s\n' "$(URL "$page")" "$(HTML "$page")"
+    fi
   done
-printf '</ul>\n'
+)"
+
+if [ "$pagelist" ]; then
+  [ "$label" ] \
+  && printf '<%s class="macro pagelist label">%s</%s>' "$labeltype" "$(HTML "$label")" "$labeltype"
+
+  printf '<ul class="macro pagelist">\n'
+  printf %s\\n "$pagelist" \
+  | sort -k2 \
+  | while read -r url title; do
+    printf '<li><a href="%s">%s</a></li>\n' "${url}" "${title}"
+  done
+  printf '</ul>\n'
+
+elif [ "$altlabel" ]; then
+  printf '<label class="macro pagelist altlabel">%s</label>' "$(HTML "$altlabel")"
+fi