Ajout : rangement.

[tool/hledger.git] / timelog

diff --git a/timelog b/timelog
deleted file mode 100755 (executable)
index 58e519b..0000000
--- a/timelog
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/bin/sh -eu
-
-# ACTION: initialize from ./
-       test -L "$0" && tool="$(readlink -e "$0")" || tool=$0
-       tool=$(readlink -e "${tool%/*}"/.)
-       root=$(readlink -e "${root:-"${0%/*}"/.}")
-
-TIMELOG=${TIMELOG:-"$root"/time.log}
-
-rule_edit () {
-       touch "$TIMELOG"
-       ${EDITOR:-vim} "$@" "$TIMELOG"
- }
-rule_in () {
-       date=$(date '+%Y-%m-%d %H:%M:%S')
-       touch "$TIMELOG"
-       {
-               last=$(tail -n 1 "$TIMELOG")
-               if test ! "$last" = "${last#i}"
-                then printf 'o %s %s\n' "$date"
-                fi
-               printf 'i %s %s\n' "$date" "$*"
-       } | tee /dev/stderr >>"$TIMELOG"
- }
-rule_help () {
-       cat >&2 <<-EOF
-               Syntax:
-                 ${0##*/} [e|edit]
-                 ${0##*/} [i|in] Path:To:Task Comment
-                 ${0##*/} [s|server]
-                 ${0##*/} [o|out]
-                 ${0##*/} \$hledger_command
-               EOF
- }
-rule_hledger () {
-       set -x
-       hledger ${HLEDGER_FLAGS-} -f "$TIMELOG" "$@"
- }
-rule_server () {
-       cd "$root"
-       set -x
-       hledger-web --server ${HLEDGER_WEB_FLAGS-} -f "$TIMELOG" "$@"
- }
-rule_out () {
-       last=$(tail -n 1 "$TIMELOG")
-       if test "$last" = "${last#o}"
-        then
-               date=$(date '+%Y-%m-%d %H:%M:%S')
-               {
-                       printf 'o %s %s\n' "$date" "$*"
-               } | tee /dev/stderr >>"$TIMELOG"
-        fi
- }
-
-rule=${1:-help}
-test $# = 0 || shift
-case $rule in
- (i|'in') rule_in "$@";;
- (o|out) rule_out "$@";;
- (e|edit) rule_edit "$@";;
- (s|server) rule_server "$@";;
- (h|help|-h|--help|'') rule_help $rule "$@";;
- (*) rule_hledger $rule "$@";;
- esac