+: ${DEST:=$(realpath "$HOME")}
+: ${SRC:=$(dirname "$(realpath "$0")")}
+
+# test
+devnull=/dev/null
+if [ "$1" = "test" ]; then
+ echo "Running test -- no changes will be applied"
+ devnull=/dev/stdout
+ _cd() {
+ cd $*;
+ echo " cd $*";
+ echo "\$PWD=$PWD";
+ }
+ alias cd="_cd"
+ alias mkdir="echo -- mkdir"
+ alias ln="echo -- ln"
+ alias rm="echo -- rm"
+ alias sh="echo -- sh"
+fi
+
+# create preferred folder structure
+cd $DEST
+mkdir -p bin etc share/fonts share/themes share/icons >$devnull 2>&1
+which vim >$devnull 2>&1 && mkdir -pm 700 var/tmp/vim >$devnull 2>&1
+cd $SRC >$devnull
+
+# ensure ostype
+if [ -z "$OSTYPE" ]; then
+ OSTYPE=$(uname -s | tr '[:upper:]' '[:lower:]')
+fi
+
+# accomodate multiple userlands
+lnargs=-sfnv
+case "$OSTYPE" in
+ freebsd*) lnargs=-sFhv;;
+ netbsd|openbsd*) lnargs=-sfhv;;
+esac
+
+l() {
+ # TODO: use install?
+ [ -L "$1" -o \! -e "$1" ] && ln $lnargs "$SRC/${2:-$x}" "$DEST/${1:-$x}" ||
+ echo "!!! File exists and is not a link: $1"
+}
+
+# generic links
+find base -mindepth 1 -maxdepth 1 | while read -r x; do l "${x#base/}"; done
+find bin etc share -mindepth 1 -maxdepth 1 | while read -r x; do l; done
+
+# xorg/wayland resources
+find gui -mindepth 1 -maxdepth 1 | while read -r x; do
+ if [ "$x" = gui/fonts ]; then
+ find $x -mindepth 1 -maxdepth 2 -type d | while read -r x; do
+ which mkfontscale >$devnull 2>&1 && mkfontscale "$x"
+ which mkfontdir >$devnull 2>&1 && mkfontdir "$x"
+ [ "$(head -1 "$x/fonts.scale" >$devnull 2>&1)" = 0 ] &&
+ rm "$x/fonts.scale"
+ [ "$(head -1 "$x/fonts.dir" >$devnull 2>&1)" = 0 ] &&
+ rm "$x/fonts.dir"
+ done
+ elif [ "$x" = gui/icons ]; then
+ find $x -mindepth 1 -maxdepth 2 -type d | while read -r x; do
+ [ ! -e "$x/index.theme" ] && continue
+ which gtk-update-icon-cache >$devnull 2>&1 &&
+ gtk-update-icon-cache "$x"
+ done
+ fi
+ find "$x" -mindepth 1 -maxdepth 1 | while read -r x; do
+ l "share${x#gui}"
+ done