docker-finance | modern accounting for the power-user

Dedicated to Michael Morgan: a beautiful, beautiful soul.

---

Internal signing keys:

  Aaron Fiore (sole author)

    - 518A22F85BEFD32BCC99C48603F90C4F35E0213E
    - 31ECA5C347A0CC0815EDE730A3EACCFCDA7E685E
    - C8187C585CB07A4DA81CC0F37318B50EBE9C0DA8

Internal repositories (rebased from):

  Staging:

    $ git log -n1 --pretty=format:"%H"
    c8e0cd66f6c89fa7b3c62f72fb524a4cc454b7b6

    $ git rev-list --max-parents=0 HEAD
    ac3863b8c234755855f1aea3a07a853122decdf2

  Private:

    $ git log -n1 --pretty=format:"%H"
    69bb3591eaa2990a9637832bb484690e00c4f926

    $ git rev-list --max-parents=0 HEAD
    a5c1cc9fb593c4cf09bc0adfef6cb6d2964511ae

container/src/hledger-flow/accounts/electrum/electrum-shared.bash

@@ -0,0 +1,81 @@
+#!/usr/bin/env bash
+
+# docker-finance | modern accounting for the power-user
+#
+# Copyright (C) 2021-2024 Aaron Fiore (Founder, Evergreen Crypto LLC)
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+#
+# "Libraries"
+#
+
+[ -z "$DOCKER_FINANCE_CONTAINER_REPO" ] && exit 1
+source "${DOCKER_FINANCE_CONTAINER_REPO}/src/hledger-flow/lib/lib_preprocess.bash" "$1" "$2"
+
+#
+# Implementation
+#
+
+[ -z "$global_year" ] && exit 1
+[ -z "$global_subaccount" ] && exit 1
+
+[ -z "$global_in_path" ] && exit 1
+[ -z "$global_out_path" ] && exit 1
+
+function parse()
+{
+  lib_preprocess::assert_header "transaction_hash,label,confirmations,value,fiat_value,fee,fiat_fee,timestamp"
+
+  gawk -v global_year="$global_year" -v global_subaccount="$global_subaccount" \
+    '{
+       if (NR<2 || $8 !~ global_year)
+         next
+
+       printf $1 OFS                   # transaction_hash
+       printf $2 OFS                   # label
+       printf $3 OFS                   # confirmations
+
+       # value (without fee)
+       direction=($4 ~ /^-/ ? "OUT" : "IN"); sub(/^-/, "", $4)
+       value=$4-$6  # Remove fee
+       printf("%.8f", value); printf OFS
+
+       sub(/^-/, "", $5)
+       printf("%.8f", $5); printf OFS  # fiat_value
+
+       printf("%.8f", $6); printf OFS  # fee
+       printf("%.8f", $7); printf OFS  # fiat_fee
+
+       # timestamp
+       sub(/ /, "T", $8)  # HACK: makes arg-friendly by removing space
+       cmd = "date \"+%F %T %z\" --date="$8 | getline date
+       printf date OFS
+
+       printf direction OFS
+       printf global_subaccount
+
+       printf "\n"
+
+    }' FS=, OFS=, "$global_in_path" >"$global_out_path"
+}
+
+function main()
+{
+  parse
+}
+
+main "$@"
+
+# vim: sw=2 sts=2 si ai et