feat(scripts): mail-reply, much-current-query

.bin/mail-current-query

@@ -1,3 +0,0 @@
-#! /bin/sh
-set -efu
-exec curl -fSs --unix-socket /tmp/much.api.sock http://localhost/current/query

.bin/mail-reply

@@ -1,47 +0,0 @@
-#! /bin/sh
-set -efu
-
-reply_to=$(mail-current-query)
-
-if ! test "$(notmuch search --output=messages "$reply_to" | wc -l)" = 1; then
-  echo "current query doesn't point to exactly one message. abort." >&2
-  exit 1
-fi
-
-# TODO update headers
-
-notmuch reply "$reply_to" |
-sed '
-  /^Non-text part: /d
-  /^Attachment: /d
-' |
-jq -Rrs '
-  # TODO dedup with mail-send
-  split("\n") |
-  index("") as $i |
-  .[:$i] as $head |
-  .[$i:] as $body |
-
-  {
-    "MIME-Version": "1.0",
-    "Content-Type": "text/plain; charset=UTF-8; format=flowed",
-    "Content-Transfer-Encoding": "8bit"
-  } as $extra_head |
-
-  ($extra_head | keys | join("|")) as $extra_head_regex |
-  ($extra_head | to_entries | map("\(.key): \(.value)")) as $extra_head_lines |
-
-  # TODO each of these could be followed by multiple lines starting with spaces
-  ($head | map(select(test("^(\($extra_head_regex)):";"i") | not))) as $head |
-
-  ($head + $extra_head_lines) as $head |
-
-  ($head + $body) | join("\n")
-'
-
-
-# TODO fix From:
-# TODO tune quote
-
-# TODO write draft
-# TODO send mail