X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=ian-dotfiles.git;a=blobdiff_plain;f=infra%2Fmakelinks;h=92029442509bee8d631798e5a9a45c077a55e7e4;hp=e4fa88db3d3bf755f8d9d18d360220761f2785ec;hb=ca9c01af734be30d9d2043e766ec2baeddfed925;hpb=8d80d23fdac44173b01a61437c7b4ac7000f0df0

diff --git a/infra/makelinks b/infra/makelinks
index e4fa88d..9202944 100755
--- a/infra/makelinks
+++ b/infra/makelinks
@@ -123,10 +123,27 @@ done
 
 exec 3<correspondences
 while read <&3 ours underhome; do
-      case "$ours" in
-      ''|'#'*) ;;
-      *) process_object ;;
-      esac
+    case "$ours" in
+    ''|'#'*) ;;
+    *)
+	case "$underhome" in
+	*/*)
+	    parent=${underhome%/*}
+	    punderhome="$HOME/$parent"
+	    prhome="~/${underhome%/*}"
+	    if [ -d "$punderhome" ]; then
+		good "directory exists"
+	    elif ! [ -e "$punderhome" ]; then
+		needs install "directory does not exist"
+		$act mkdir -p "$punderhome"
+	    else
+		bad "ought to be director but isn't"
+	    fi
+	    ;;
+	esac
+	process_object
+	;;
+    esac
 done
 
 brokens=$(