X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=infra%2Fmakelinks;h=20faafc592912d757c74acf5b4de56e381d45e2e;hb=d0c1c94d3fe906d51f7fcb563e60b369f3481ab4;hp=f3b051053bd73b2a643e2c09bee83e9695082b07;hpb=0d8c83fa3dd434bf8392fd4fca9acdc8296f020f;p=ian-dotfiles.git

diff --git a/infra/makelinks b/infra/makelinks
index f3b0510..20faafc 100755
--- a/infra/makelinks
+++ b/infra/makelinks
@@ -44,13 +44,13 @@ show () {
 
 good () {
     if [ $mode = list ]; then
-	show "good: $dot: $1"
+	show "good: $prhome: $1"
     fi
 }
 
 bad () {
     estatus=16
-    show "bad: $dot: $1" >&2
+    show "bad: $prhome: $1" >&2
 }
 
 needs () {
@@ -85,7 +85,7 @@ process_object () {
 	$act ln -s "$linktarget" "$inhome"
     elif [ -f "$inhome" ] && [ -f "$ours" ]; then
 	if cmp -s "$ours" "$inhome"; then
-	    needs setup "identical here but not yet symlinked"
+	    needs setup "identical in this ~ but not yet symlinked"
 	    $act rm -f "$inhome"~
 	    $act ln -s "$linktarget" "$inhome"~
 	    $act mv -f "$inhome"~ "$inhome"
@@ -96,7 +96,7 @@ process_object () {
 	    $act mv -f "$ours"~ "$ours"
 	fi
     elif [ -d "$inhome" ] && [ -d "$ours" ]; then
-	needs dirimport "directory here not yet symlinked"
+	needs dirimport "directory in this ~, not yet symlinked"
 	$act mv "$ours" "$ours~"
 	$act ln -s "$linktarget" "$inhome"~
 	$act mv "$inhome" "$ours"
@@ -109,15 +109,22 @@ process_object () {
 
 dots=$( find dot -mindepth 1 -maxdepth 1 -name '[0-9a-zA-Z]*[0-9a-zA-Z]' )
 
-for dot in $dots; do
-    ours="$dot"
-    underhome=".${dot#dot/}"
+for ours in $dots; do
+    underhome=".${ours#dot/}"
+    process_object
+done
+
+nondots=$( find home -mindepth 1 -maxdepth 1 -name '[0-9a-zA-Z]*[0-9a-zA-Z]' )
+
+for ours in $nondots; do
+    underhome="${ours#home/}"
     process_object
 done
 
 brokens=$(
     cd $HOME
-    find -L .[0-9a-zA-Z]* -maxdepth 0 -xdev -type l -lname "$basepath/dot/*"
+    find -L .[0-9a-zA-Z]* -maxdepth 0 -xdev -type l \
+	 \( -lname "$basepath/dot/*" -o -lname "$basepath/home/*" \)
 )
 for underhome in $brokens; do
     inhome="$HOME/$underhome"