Mercurial > hg > Applications > mh

comparison miscellany/mtrenv/bin/wsh @ 0:bce86c4163a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author kono
date Mon, 18 Apr 2005 23:46:02 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:bce86c4163a3
1 : run this script through /bin/sh
2
3 M="`basename $0`"
4
5 case "$mhaltmsg" in
6 "") ;;
7
8 *) editalt="$mhaltmsg" ; export editalt ;;
9 esac
10
11 case "$mheditor" in
12 "") ;;
13
14 *) trap "" 1 2 3 15
15 if $mheditor $mhdraft
16 then
17 trap 1 2 3 15
18 else
19 case "$mhuse" in
20 0) echo $M: removing $mhdraft 1>&2; rm -f $mhdraft ;;
21 esac
22 exit 1
23 fi ;;
24 esac
25
26 PS1="`rprompt %U\("$M:"\`expr $mhdraft : '.*/\(.*/.*\)'\`\)%U%b`"
27
28 while :
29 do
30 echo -n "$PS1"; read C
31 case "$?$C" in 1) C="quit" ; esac
32 set x $C ; shift
33 case "$1" in
34 quit) case "$2" in
35 -d*|d*) rm $mhdraft ;;
36 "") echo $M: draft left on $mhdraft 1>&2 ;;
37 esac
38 exit 1 ;;
39
40 push|send|refile)
41 if eval "$@"; then exit 0; fi ;;
42
43 *) eval "$@" ;;
44 esac
45 done