X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/fde3353fbc08069652329af2bd3d4755da385451..eb221c17dce1d6e29ac98a834c9bcf40ddbbf50b:/dot/shell-rc

diff --git a/dot/shell-rc b/dot/shell-rc
index 9857a82..ea4f575 100644
--- a/dot/shell-rc
+++ b/dot/shell-rc
@@ -67,12 +67,26 @@ __mdw_hqual=$__mdw_hqual${SCHROOT_CHROOT_NAME+/$SCHROOT_CHROOT_NAME}
 __mdw_hqual=$__mdw_hqual${CROSS_BUILDENV+/$CROSS_BUILDENV}
 __mdw_set_prompt_hacks () { host=$__mdw_host; dir=""; }
 
+__mdw_system=$(uname -s)
 : ${USER-${LOGNAME-$(id -un)}}
 __mdw_user=$USER
 
 case $(id -u) in
-  0) __mdw_rootp=t ;;
-  *) __mdw_rootp=nil ;;
+  0)
+    __mdw_rootp=t
+    ;;
+  *)
+    case $__mdw_system in
+      CYGWIN_*)
+	case " $(id -G) " in
+	  *" 544 "*) __mdw_rootp=t __mdw_user="$__mdw_user%admin" ;;
+	  *) __mdw_rootp=nil ;;
+	esac
+	;;
+      *)
+	__mdw_rootp=nil
+	;;
+    esac
 esac
 
 __mdw_set_prompt_pieces () {
@@ -207,6 +221,12 @@ alias make="nice make"
 alias cross-run="nice cross-run"
 alias gdb="gdb -q"
 
+## Shut up Lisp interpreters.
+alias clisp="clisp -q -q"
+alias cmucl="rlwrap cmucl -quiet"
+alias ecl="rlwrap ecl"
+alias sbcl="rlwrap sbcl --noinform"
+
 ###--------------------------------------------------------------------------
 ### Colour output.