From 6de14e08677f6cb0c10c9d34c3024918bf979d68 Mon Sep 17 00:00:00 2001
From: adamsrl <rladams@adamsinfoserv.com>
Date: Wed, 22 Aug 2012 18:27:23 -0500
Subject: Added raw copies of my custom ledger scripts and elisp additions.
 Next need to isolate features and make them more generic for reuse by other
 Ledger users.

---
 contrib/raw/ledger-shell-environment-functions | 90 ++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 contrib/raw/ledger-shell-environment-functions

(limited to 'contrib/raw/ledger-shell-environment-functions')

diff --git a/contrib/raw/ledger-shell-environment-functions b/contrib/raw/ledger-shell-environment-functions
new file mode 100644
index 00000000..7746dc41
--- /dev/null
+++ b/contrib/raw/ledger-shell-environment-functions
@@ -0,0 +1,90 @@
+# Environment for ledger expenses
+
+[ $(whoami) == "adamsrl" ] \
+    && export LEDGER_HOME="/home/adamsrl/AdamsInfoServ/BusinessDocuments/Ledger/AdamsRussell" \
+    || export LEDGER_HOME="/home/Heather/AdamsRussell"
+
+[ $(hostname) == "cardamom" ] \
+    && export LEDGER_BIN="${LEDGER_HOME}/ledger" \
+    || export LEDGER_BIN="${LEDGER_HOME}/ledger.exe"
+
+[ $(whoami) == "andersonll" ] \
+    && export LEDGER_HOME="/home/andersonll/AdamsInfoServ/Expenses" \
+	&& export LEDGER_BIN="${LEDGER_HOME}/ledger"
+
+# Common reports
+
+alias ledger='${LEDGER_BIN} -f "${LEDGER_HOME}/.ledger" -VE '
+alias ERSummary='ledger --pivot ER bal | egrep "AIS(ER|IN)[0-9]+|Unassigned"'
+
+function ERTxns() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    ledger reg "%ER=${1}"
+}
+
+function ERCategorySummary() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    ledger bal --pivot CATEGORY "%ER=${1}"
+}
+
+function ERMealSummary() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    ledger reg "%ER=${1}" and %CATEGORY=Meals -D
+}
+
+function ERMeals() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    ledger reg "%ER=${1}" and %CATEGORY=Meals
+}
+
+function ERUncleared() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    ledger reg "%ER=${1}" -U
+}
+
+function ERMissingReceipts() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    ledger reg "%ER=${1}" and not %RECEIPT
+}
+
+function ERVerify() {
+    [ -z "$1" ] && echo "Please specify an ER number (ie: AISER0042)." && return
+
+    echo "========== Uncleared txns below =========="
+    ERUncleared "$1"
+    echo "========== Missing receipts below (miles and stubs ok) =========="
+    ERMissingReceipts "$1"
+    echo "========== Category Summary (airline? mileage? car? hotel? =========="
+    ERCategorySummary "$1"
+    echo "========== Meal summary (<\$50 / day unless otherwise specified) =========="
+    ERMealSummary "$1"
+    echo "========== Account Verification (Internal vs Project ER should be ONE type) =========="
+    echo $1 | grep AISIN >/dev/null 2>&1 \
+         || { ledger reg "%ER=${1}" | grep Dest:Internal ; } \
+         && { ledger reg "%ER=${1}" | grep Dest:Projects ; }
+    echo "========== Project Verification (only one project code should be listed) =========="
+    ledger print "%ER=${1}" | grep PROJECT | sort -u
+    echo "========== Receipts missing =========="
+    ledger print "%ER=${1}" | grep -h '; RECEIPT: ' \
+	    | sed 's,\W*; RECEIPT: ,,g' \
+	    | tr , '\n' \
+	    | sort -u \
+	    | while read X ; do
+	    [ -f "${LEDGER_HOME}/${X}" ] \
+		    || echo XX $X
+    done
+}
+
+function ERListing() {
+    ledger reg Stub --register-format="%(tag('ER')) %(tag('NOTE'))\n" | sort -u
+}
+
+function ERQueue() {
+    ledger reg %ER=Unassigned --prepend-format="%(filename) "
+}
-- 
cgit v1.2.3