From a0a502c443ab0a8933ed0da159dfd59af59ea65b Mon Sep 17 00:00:00 2001
From: paul <paul@plutz.net>
Date: Sun, 14 Jun 2015 22:39:19 +0000
Subject: [PATCH] hint on svn externals in subversion browser

svn path=/trunk/; revision=66
---
 pages/Subversion.sh       | 42 +++++++++++++++++++++++++++++++++++++++
 templates/Subversion.page | 27 ++++++-------------------
 2 files changed, 48 insertions(+), 21 deletions(-)

diff --git a/pages/Subversion.sh b/pages/Subversion.sh
index fa86d8b..5692d56 100755
--- a/pages/Subversion.sh
+++ b/pages/Subversion.sh
@@ -24,6 +24,48 @@ baseuri=$(sed -rn 's:^svnRepo=(.*)$:\1:p' project.meta)
 lastrev=$(svn info "$baseuri" |sed -rn 's;^Revision: *([0-9]+);\1;p')
 [ -z "$rev" ] && rev="$lastrev"
 
+svn_path(){
+  tmp="$url" 
+  until [ -z "$tmp" -o "$tmp" = '//' -o "$tmp" = './' ]; do
+    echo "<a href='?p=Subversion&amp;i=$tmp&amp;r=$rev'>/$(basename "$tmp")</a> "
+    tmp="$(dirname "$tmp")/"
+  done \
+  | tac
+}
+
+svn_revisions(){
+  for i in {1.."$lastrev"}; do
+    echo "<a href='?p=Subversion&amp;i=$url&amp;r=$i'>$i</a>"
+  done
+}
+
+svn_changelog(){
+  svn log "${baseuri}/${url}" \
+  | sed -rn '2,${s:^-+$:</div>:g;
+                 s:^r([0-9]+) \| ([a-zA-Z0-9]+) \| ([0-9: -]+) .+$:<div class="changelog"><h2>Revision \1 by \2<br>at \3</h2>:g;p}'
+}
+
+svn_showurl(){
+  if (egrep -q '^(.*/|)$' <<<"$url"); then
+    # we are showing a directory
+    svn propget svn:externals -r "$rev" "${baseuri}/${url}" \
+    | sed -rn "s;^([^ ]+) (.+)$;<span class='extern'>\2/</span> [external include from <a href='\1'>\1</a>]<br>;p"
+
+    svn ls -r "$rev" "${baseuri}/${url}" \
+    | sed -r "s:^.*$:<a href='?p=Subversion\&amp;i=$url/&\&amp;r=$rev'>&</a><br>:g"
+  else
+    # we are showing a file
+    echo -E "$url" |egrep -vq '\.' && \
+       lang=txt \
+    || lang=$(
+         source-highlight --lang-list \
+         |  grep -o "^${url##*.} " || echo sh
+       )
+    svn cat -r "$rev" "${baseuri}/${url}" \
+    | source-highlight -s "$lang"
+  fi
+}
+
 case "$1" in
   title)
     echo "Code"
diff --git a/templates/Subversion.page b/templates/Subversion.page
index 72f8189..73cb146 100755
--- a/templates/Subversion.page
+++ b/templates/Subversion.page
@@ -4,34 +4,19 @@ cat <<SVNEND
   <div id="LEFT">
     <h1>Path:</h1>
     <a href='?p=Subversion&amp;i=/&amp;r=$rev'>[root]</a> 
-    $(tmp="$url"
-    until [ -z "$tmp" -o "$tmp" = '//' -o "$tmp" = './' ]; do
-      echo "<a href='?p=Subversion&amp;i=$tmp&amp;r=$rev'>/$(basename "$tmp")</a> "
-      tmp="$(dirname "$tmp")/"
-    done |tac)
+    $(svn_path)
     <hr>
     <h1>Revisions:</h1>
-    $(for i in {1.."$lastrev"}; do
-      echo "<a href='?p=Subversion&amp;i=$url&amp;r=$i'>$i</a>"
-    done)
+    $(svn_revisions)
   </div>
 
   <div id="RIGHT">
     <h1>Changelog:</h1><hr>
-    $(svn log $(egrep -q '^(.*/|)$' <<<"$url" && echo '') "${baseuri}/${url}" |\
-      sed -rn '2,${s:^-+$:</div>:g;
-      s:^r([0-9]+) \| ([a-zA-Z0-9]+) \| ([0-9: -]+) .+$:<div class="changelog"><h2>Revision \1 by \2<br>at \3</h2>:g;p}')
+    $(svn_changelog)
   </div>
 
-  <div id="MAIN">
-  <div class='wikitext'><h1>$(basename "$url"), Revision "$rev":</h1>
-  $(if (egrep -q '^(.*/|)$' <<<"$url"); then #are we showing a directory
-    svn ls -r "$rev" "${baseuri}/${url}" |sed -r "s:^.*$:<a href='?p=Subversion\&amp;i=$url/&\&amp;r=$rev'>&</a><br>:g"
-    echo '</div>'
-  else #or are we showing a file
-    lang=$(source-highlight --lang-list |cut -d\  -f1 |grep -x "$(sed 's:.*\.::g' <<<"$url")" || echo sh)
-    grep -q '\.' <<<"$url" || lang=txt
-    svn cat -r "$rev" "${baseuri}/${url}" |source-highlight -s "$lang"
-  fi)
+  <div id="MAIN"><div class='wikitext'>
+    <h1>$(basename "$url"), Revision "$rev":</h1>
+    $(svn_showurl)
   </div></div>
 SVNEND
-- 
2.39.2