perlmodules.t: Remove Module::Starter and Module::Starter::Plugin::CGIApp
[sunny256-utils.git] / tws
blob2a8e75a21d801abbea04e7c04cd52d08b52b0fa3
1 #!/bin/sh
3 #==============================================================================
4 # tws
5 # File ID: e4d8ba70-1c8f-11e7-b2d3-db5caa6d21d3
7 # Shortcut to "tw start", use one description
9 # Author: Øyvind A. Holm <sunny@sunbase.org>
10 # License: GNU General Public License version 2 or later.
11 #==============================================================================
13 progname=tws
14 VERSION=0.2.0
16 opt_help=0
17 opt_quiet=0
18 opt_verbose=0
19 while test -n "$1"; do
20 case "$1" in
21 -h|--help) opt_help=1; shift ;;
22 -q|--quiet) opt_quiet=$(($opt_quiet + 1)); shift ;;
23 -v|--verbose) opt_verbose=$(($opt_verbose + 1)); shift ;;
24 --version) echo $progname $VERSION; exit 0 ;;
25 --) shift; break ;;
27 if printf '%s\n' "$1" | grep -q ^-; then
28 echo "$progname: $1: Unknown option" >&2
29 exit 1
30 else
31 break
33 break ;;
34 esac
35 done
36 opt_verbose=$(($opt_verbose - $opt_quiet))
38 if test "$opt_help" = "1"; then
39 test $opt_verbose -gt 0 && { echo; echo $progname $VERSION; }
40 cat <<END
42 Shortcut to "tw start", use one description
44 Usage: $progname [options]
46 Options:
48 -h, --help
49 Show this help.
50 -q, --quiet
51 Be more quiet. Can be repeated to increase silence.
52 -v, --verbose
53 Increase level of verbosity. Can be repeated.
54 --version
55 Print version information.
57 END
58 exit 0
61 t --is-active || exit 1
62 tw start "$*"
64 # vim: set ts=8 sw=8 sts=8 noet fo+=w tw=79 fenc=UTF-8 :