#!/usr/bin/env bash
#!/usr/bin/env nix-shell
#!nix-shell --pure -i bash -p bash
# shellcheck shell=bash
set -Eeuo pipefail

MAILING_LIST_NAME="${1:-}"
GNU_MBOX_ARCHIVE_URL='ftp://lists.gnu.org'
OUT_MAILDIR="$HOME/mbsync/EuAndreh/mailing-lists/"
TMP_DIR="$HOME/tmp/mbox-import/"
usage() {
  cat <<EOF
Usage:
    $0 MAILING_LIST_NAME

      Arguments
        MAILING_LIST_NAME    The name of the mailing list.

Examples:
    Download and import into mbsync the MBOX archive from info-guix mailing-list:
        echo 1 | mailing-list-import-mbox.sh info-guix

    Download and import into mbsync the contents for lisp-br Google Groups:
        echo 2 | mailing-list-import-mbox.sh lisp-br
EOF
}

set -x
gnu_mailing_list_import() {
  mkdir -p "${TMP_DIR}"
  pushd "${TMP_DIR}"
  wget -c -r "${GNU_MBOX_ARCHIVE_URL}/${MAILING_LIST_NAME}/"
  cat "lists.gnu.org/${MAILING_LIST_NAME}/"* > "${MAILING_LIST_NAME}.all.mbox"
  mb2md -s "${TMP_DIR}/${MAILING_LIST_NAME}.all.mbox" -d "${OUT_MAILDIR}"
  popd
}

google_groups_import() {
  echo "google groups ${MAILING_LIST_NAME}"
}

main() {
  [[ -z "${MAILING_LIST_NAME}" ]] && {
    red "Missing input argument MAILING_LIST_NAME.\n"
    usage
    exit 2
  }

  echo "(1) - GNU mailing lists (lists.gnu.org)"
  echo "(2) - Google Groups"
  read -p "Which type of mailing list do you want to import? " -n 1 -r
  echo # Move to a new line
  case "$REPLY" in
    "1")
      gnu_mailing_list_import
      ;;
    "2")
      google_groups_import
      ;;
    *)
      red "Unsupported mailing list type."
      red "Exitting."
      usage
      exit 2
      ;;
  esac
}

main "$@"

# notmuch search --output=files tag:spam \
  #         and not folder:${PREFIX}junk \
  #         and not folder:${PREFIX}greyspam \
  #         and not folder:Koumbit/INBOX \
  #         and not path:Koumbit/** \
  #   | while read file; do
#   mv "$file" "$HOME/Maildir/${PREFIX}junk/cur"
# done

# notmuch search --output=files date:today AND folder:/INBOX/
#
# notmuch search --output=files tag:new AND date:yesterday AND from:"DigitalOcean" | xargs -I{} mv {} ~/mbsync/EuAndreh/mailing-lists/new/
# 1
# mv mailing-lists/new/1559416464.17621_33.velhinho-nixos\,U\=5955\:2\, mailing-lists/new/1559416464.17621_33.velhinho-nixos

# notmuch search --output=files --exclude=false tag:deleted | xargs -I{} rm "{}"



# https://julien.danjou.info/why-notmuch-is-not-much-good/
# https://www.reddit.com/r/emacs/comments/6z13yw/notmuch_vs_imap_and_sieve/
# https://anarc.at/blog/2016-05-12-email-setup/
# https://duckduckgo.com/?q=notmuch+sieve&t=ffab&atb=v166-1&ia=web