.mutt/edit-header

   1 #!/bin/sh
   2 #
   3 # edit-header - helper script to append/replace/remove headers with mutt
   4 #
   5 # Based on an idea by David Champion <dgc at uchicago.edu>
   6 #
   7 # Copyright © 2008 martin f. krafft <madduck@madduck.net>
   8 # Released under the terms of the Artistic Licence 2.0
   9 #
  10 set -euvx
  11
  12 if [ ! -x "$(command -v formail)" ]; then
  13   echo E: formail not installed. >&2
  14   exit 1
  15 fi
  16
  17 header="${1:-}"
  18 if [ -z "$header" ]; then
  19   echo "E: no header specified" >&2
  20   exit 1
  21 fi
  22
  23 get_header_contents()
  24 {
  25   local contents
  26   printf "Enter ${1:-header} contents: " >/dev/tty
  27   read contents </dev/tty
  28   echo "$contents"
  29 }
  30
  31 script="${0%/*}/${2:-}"
  32 if [ -f "$script" ] && [ -x "$script" ]; then
  33   contents_source="$script"
  34   shift
  35 else
  36   contents_source=get_header_contents
  37 fi
  38
  39 editor=
  40 case "$0" in
  41   *append-header|*supersede-header|*replace-header)
  42     contents="${2:-}"
  43     [ -n "$contents" ] || contents="$(eval $contents_source $header)"
  44     case "$0" in
  45       *append-header) flag=-A;;
  46       *supersede-header) flag=-i;;
  47       *replace-header) flag=-I;;
  48     esac
  49     editor="${0%/*}/filter-proxy formail $flag \'$header: $contents\'"
  50     ;;
  51
  52   *remove-header)
  53     editor="${0%/*}/filter-proxy formail -I \'$header:\'"
  54     ;;
  55
  56   *)
  57     echo "E: unknown invocation: ${0##*/}" >&2
  58     exit 1
  59     ;;
  60
  61 esac
  62
  63 echo "set my_editor=\"\$editor\'"
  64 echo "set editor=\"$editor\""
  65 echo "push <tag-prefix><edit>"
  66 # we need to push this so it happens after the editing
  67 echo "push :set editor=\"\$my_editor\"<enter>"