From 10ba047854f4480c77b0b766e10d5b663ff122d9 Mon Sep 17 00:00:00 2001
From: Felix Van der Jeugt <felix.vanderjeugt@gmail.com>
Date: Thu, 18 Apr 2019 17:11:30 +0200
Subject: [PATCH] script to copy a previous transaction to today

---
 local/bin/ladd | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 local/bin/ladd

diff --git a/local/bin/ladd b/local/bin/ladd
new file mode 100755
index 0000000..b73e0d7
--- /dev/null
+++ b/local/bin/ladd
@@ -0,0 +1,30 @@
+#!/bin/sh
+
+ledger="${1:-$LEDGER_FILE}"
+
+selection="$(sed -n 's/....-..-..\( [*!]\)\? //p' "$ledger" | sort | uniq | fzf)"
+[ -z "$selection" ] && clear && exit 0 # quit if escaped
+
+cat <<HERE | ed --silent "$ledger"
+# append a newline for easier searching
+\$a
+
+.
+# yank matching transaction (closed by empty line)
+?^....-..-..\( [*!]\)\? ${selection}\$?;/^\$/y
+# select line below last none-empty line
+$
+?^..*?
++
+# put transaction
+x
+# replace date with today
+?^\$?
++s/....-..-../$(date +'%Y-%m-%d')/
+# delete empty lines at end and quit
+/^\$/,\$d
+wq
+HERE
+
+vis +\$ "$ledger"
+clear