X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=macros%2Frevisions;fp=macros%2Frevisions;h=c6fb8fa2cb59b7d239b81f372515a5ed96ed3a55;hb=a6ae272ce0af6b93cabddf4aa4a3cebc7350f5a0;hp=0000000000000000000000000000000000000000;hpb=190657ed71861114213d0bd8128bd157a69f17ff;p=shellwiki

diff --git a/macros/revisions b/macros/revisions
new file mode 100755
index 0000000..c6fb8fa
--- /dev/null
+++ b/macros/revisions
@@ -0,0 +1,26 @@
+#!/bin/sh
+
+. "$_EXEC/cgilite/cgilite.sh"
+. "$_EXEC/tools.sh"
+. "$_EXEC/acl.sh"
+
+page="$1"
+page_abs="$(page_abs "$page")"
+
+if ! acl_read "$page_abs"; then
+  return 0
+elif [ ! "$(which git)" ]; then
+  printf '<div class="macro revisions error">GIT is not available to handle revisioning.</div>'
+fi
+
+printf '<ul class="macro revisions">'
+  IFS="	"
+  git -C "$_DATA" log --date=format:"%a, %x %H:%M" \
+                      --pretty=format:"%h	%cd	%s%n" \
+                      -- "pages${page_abs}#page.md" \
+  | while read hash date message; do
+    user="${message% @*}"; user="${user##*@ }"
+    printf '<a href="%s"><span class="hash">%s</span><span="date">%s</span><span class="user">%s</span></a>' \
+      "$(HTML "${page%/}/[revisions]/$hash")" "$(HTML "$hash")" "$(HTML "$date")" "$(HTML "$user")"
+  done
+printf '</ul>'