]> git.plutz.net Git - shellwiki/blob - macros/pagelist
drop page_children() function and join it into page_glob(), hide [system] pages from...
[shellwiki] / macros / pagelist
1 #!/bin/sh
2
3 . "$_EXEC/cgilite/cgilite.sh"
4 . "$_EXEC/acl.sh"
5 . "$_EXEC/tools.sh"
6
7 while [ $# -gt 0 ]; do case $1 in
8   --system) glob_system_pages=true; shift 1;;
9   --depth)  depth="$2" shift 2;;
10   *) if [ ! "$dir" ]; then
11       dir="$1"
12     elif [ ! "$depth" ]; then
13       depth="$1"
14     fi
15     shift 1;;
16 esac; done
17
18 [ "$dir" ] || dir=./
19 [ "$depth" -ge 0 -o "$depth" -le 0 ] 2>&0 || depth=0
20
21
22 printf '<ul class="pagelist">\n'
23   page_glob "$dir" "$depth" \
24   | while read -r glob; do
25     printf %s\\n "$glob"
26   done \
27   | while read -r page; do
28     pagedir="$(page_abs "$page")"
29     [ -f "$_DATA/pages/${pagedir}/#page.md" -o \
30       -f "$_EXEC/pages/${pagedir}/#page.md" ] \
31     && acl_read "$pagedir" \
32     && printf '<li><a href="%s">%s</a></li>' "$(HTML "$page")" "$(HTML "$page")"
33   done
34 printf '</ul>\n'