X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/a7b61e882477fdf29727de049e1675c685596ce3..807c317e99426f8379fc55fc4d4bc98e67ec0f41:/dot/rcrc

diff --git a/dot/rcrc b/dot/rcrc
index 2723b2c..adc607e 100644
--- a/dot/rcrc
+++ b/dot/rcrc
@@ -1,41 +1,80 @@
+### -*-rc-*-
 ### rc profile
 
 ###--------------------------------------------------------------------------
 ### Prompt machinery.
 
-host = `hostname
+host = `{hostname}
 
 if (~ $TERM linux* screen* xterm* vt100* eterm*) {
-	bold = `{tput bold} unbold = `{tput sgr0}
-} else {
-	bold = '' unbold = ''
+  bold = `{tput bold} unbold = `{tput sgr0}
+}; if not {
+  bold = '' unbold = ''
 }
 
 if (~ `{id -u} 0) {
-	left = `{iconv -f utf8 -t //translit <<< «}
-	right = `{iconv -f utf8 -t //translit <<< »}
-} else {
-	u = `{id -un}
-	if (~ $u mdw mwooding) {
-		u = '' left = '[' right = ']'
-	} else {
-		u = $u^@ left = '{' right = '}'
-	}
-	if (~ $__mdw_tty `tty) {
-		left = '<' right = '>'
-	} else {
-		__mdw_tty = `tty
-	}
+  left = `{echo « | iconv -f utf8 -t //translit}
+  right = `{echo » | iconv -f utf8 -t //translit}
+}; if not {
+  u = `{id -un}
+  if (~ $u mdw mwooding) {
+    u = '' left = '[' right = ']'
+  }; if not {
+    u = $u^@ left = '{' right = '}'
+  }
+  if (~ $__mdw_tty `{tty}) {
+    left = '<' right = '>'
+  }; if not {
+    __mdw_tty = `{tty}
+  }
 }
 
 if (~ $#SSH_CLIENT 0 && ! ~ $__mdw_sechost $host) {
-	sec_l = '(' sec_r = ')'
+  sec_l = '(' sec_r = ')'
+}; if not {
+  sec_l = '' sec_r = ''
 }
 
 fn prompt {
-	cwd = `pwd
-	if (~ $cwd $home $home/*) {
-		cwd = `{sed 's:^' ^ $home ^':~:' <<< $cwd}
-	}
-	prompt = ($bold$left$sec_l$u$host$sec_r^' '^$cwd$right$unbold '')
+  cwd = `{pwd}
+  if (~ $cwd $home $home/*) {
+    cwd = `{echo $cwd | sed 's:^' ^ $home ^':~:'}
+  }
+  prompt = ($bold$left$sec_l$u$host$sec_r^' '^$cwd$right$unbold '')
 }
+prompt
+
+###--------------------------------------------------------------------------
+### Convenient aliases.
+
+fn rootly { ~ $#* 0 && * = $SHELL; $__MDW_ROOTLY $* }
+fn r { rootly $* }
+fn re { rootly $EDITOR $* }
+fn pstree { builtin pstree -hl }
+fn e { $EDITOR $* }
+fn @ { ssh $* }
+
+fn ls {
+  if (test -t 1) {
+    builtin ls $LS_OPTIONS '--color=auto' $*
+  }; if not {
+    builtin ls $*
+  }
+}
+
+fn greplike {
+  grep = $1; shift
+  if (test -t 1) {
+    builtin $grep '--color=always' $* | mdw-pager
+  }; if not {
+    builtin grep $*
+  }
+}
+fn grep { greplike grep $* }
+fn egrep { greplike egrep $* }
+fn fgrep { greplike fgrep $* }
+fn zgrep { greplike zgrep $* }
+
+if (~ $INSIDE_EMACS 22.*,comint) PAGER = cat
+
+###----- That's all, folks --------------------------------------------------