]> git.treefish.org Git - fex.git/blob - bin/ezz
523dc8c014759266c77b356cd8767aee1aa3d3e7
[fex.git] / bin / ezz
1 #!/bin/sh
2
3 ZZ=${ZZ:-$HOME/.zz}
4
5 usage() {
6   exec cat<<EOD
7 ezz is the edit helper program for the generic zz clip board program.
8 The clip board is \$ZZ (default: \$HOME/.zz). Options and modes are:
9
10 "ezz"                  edit \$ZZ
11 "... | ezz"            write STDIN from pipe to \$ZZ and call editor
12 "... | ezz +"          add STDIN from pipe to \$ZZ and call editor
13 "ezz 'perl-script'"    run perl-script on \$ZZ
14 "ezz - 'perl-script'"  run perl-script on \$ZZ and write result to STDOUT
15 "ezz filter [args]"    run filter [with args] on \$ZZ
16 "ezz - filter [args]"  run filter [with args] on \$ZZ and write result to STDOUT
17 "ezz -r"               restore \$ZZ from last ezz operation (\$ZZ~)
18
19 Examples:
20
21   ls -l | ezz
22   ezz "s/ /_/g"
23   ezz head -3
24   ezz - head -3
25
26 Limitation: zz does not work across different accounts!
27 EOD
28 }
29
30 JEDINIT="SAVE_STATE=0"; export JEDINIT
31
32 if [ ! -t 0 ]; then
33   if [ x"$1"x = x+x ]; then
34     shift
35     cat >>$ZZ
36   else
37     cat >$ZZ
38   fi
39 fi
40
41 test -z "$1" && exec ${EDITOR:-vi} $ZZ
42
43 case "X$*" in
44   X-h) usage;;
45   X-r) exec mv $ZZ~ $ZZ;;
46 esac
47
48 OUT="$1"
49 test "X$OUT" = X- && shift
50 test -z "$1" && exec cat $ZZ
51 mv $ZZ $ZZ~
52 case `type "$1" 2>&1` in
53   *not\ found) perl -pe "$@" <$ZZ~>$ZZ || mv $ZZ~ $ZZ;;
54             *) "$@"          <$ZZ~>$ZZ || mv $ZZ~ $ZZ;;
55 esac
56 test "X$OUT" = X- && exec cat $ZZ