X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/c87ca5ccad142a07c63368e44b698992af17ad5c..fcaa3047b2a23fc0c36be518d1ca1ea0b0cb3b66:/docs/contrib/replaliases

diff --git a/docs/contrib/replaliases b/docs/contrib/replaliases
index 68e9443e..077965c1 100644
--- a/docs/contrib/replaliases
+++ b/docs/contrib/replaliases
@@ -1,23 +1,139 @@
 #### replaliases
 ####
 #### convenience functions for various repl(1) commands
+####
+#### They're functions instead of aliases for portability.  This file
+#### is intended to be sourced from a Bourne-compatible shell, e.g.,
+####     source `mhparam docdir`/contrib/replaliases
+#### to declare the functions.
+####
+#### Author: David Levine <levinedl@acm.org>
 
-#### If using par (see mhn.defaults), it really helps to have its
-#### PARINIT environment variable set.  If you really want it to be
-#### null, either comment this out or set it to, e.g., ' '.
+#### If using par (see mhn.defaults), it helps to have its PARINIT
+#### environment variable set.  If you really want it to be null,
+#### either comment this out or set it to, e.g., ' '.
+#### Removed "R" from PARINIT recommendation in par(1) man page so
+#### that it doesn't consider words that are too long to be an error.
 if [ -z "$PARINIT" ]; then
-    PARINIT='rTbgqR B=.,?_A_a Q=_s>|'
+    PARINIT='rTbgq B=.,?_A_a Q=_s>|'
     export PARINIT
 fi
 
-#### Reply, including text/html (converted to text/plain) and text/plain parts.
-#### To ease editing at the What now? prompt, add a line like this to your
-#### .mh_profile:
-####     mhbuild-next: $EDITOR
-#### assuming that your EDTIOR environment variable is set; if not, replace
-#### $EDITOR above with the name of your editor.  Without that profile entry,
-#### enter "e[dit] $EDITOR" at the What now? prompt.
+
+#### Reply, including text/html (converted to text/plain) and
+#### text/plain parts.
+####
+#### Optional arguments:
+####   -h to disable conversion of text/html parts
+####   -p to disable conversion of text/plain parts
+#### All other arguments are passed to repl.
+#### The -p argument can be useful with improperly structured
+#### messages, such as those that use multipart/related when they
+#### should have used multipart/alternative.
 rt() {
-    repl -filter mhl.replywithoutbody -editor mhbuild \
-         -convertargs text/html '' -convertargs text/plain '' "$@"
+    if [ "$1" = -h ]; then
+        shift
+        \repl -filter mhl.replywithoutbody -convertargs text/plain '' "$@"
+    elif [ "$1" = -p ]; then
+        shift
+        \repl -filter mhl.replywithoutbody -convertargs text/html '' "$@"
+    else
+        \repl -filter mhl.replywithoutbody \
+             -convertargs text/html '' -convertargs text/plain '' "$@"
+    fi
+}
+
+
+#### Add -editor mhbuild to above.  Useful only when attachments
+#### won't be added to the message.
+####
+#### To ease editing at the What now? prompt, add a line like this to
+#### your .mh_profile:
+####     mhbuild-next: $EDITOR
+#### assuming that your EDTIOR environment variable is set; if not,
+#### replace $EDITOR above with the name of your editor.  Without that
+#### profile entry, enter "e[dit] $EDITOR" at the What now? prompt.
+rtm() {
+    rt -editor mhbuild "$@"
 }
+
+
+#### Internal function for use by calendar response functions below.
+#### Pulls "-a address" out of command line arguments.
+mhical_attendee() {
+    mhical_prev=
+    mhical_attendee=
+    for arg in "$@"; do
+        test "$mhical_prev" = -a  &&  mhical_attendee="$arg"
+        mhical_prev="$arg"
+    done
+    unset arg
+    unset mhical_prev
+    echo "$mhical_attendee"
+}
+
+
+#### accept a calendar request
+#### usage: calaccept [-a address] [repl switches]
+####   -a specifies attendee, see mhical(1)
+#### Other arguments passed to repl(1).
+calaccept() {
+    if [ "$1" = -a ]; then
+        attendee=' -attendee '`mhical_attendee "$@"`
+        shift; shift
+    else
+        attendee=
+    fi
+    \repl -noformat -editor mhbuild \
+          -convertargs text/calendar "-reply accept -contenttype${attendee}" \
+          "$@"
+    unset attendee
+}
+
+
+#### decline a calendar request
+#### usage: caldecline [-a address] [repl switches]
+####   -a specifies attendee, see mhical(1)
+#### Other arguments passed to repl(1).
+caldecline() {
+    if [ "$1" = -a ]; then
+        attendee=' -attendee '`mhical_attendee "$@"`
+        shift; shift
+    else
+        attendee=
+    fi
+    \repl -noformat -editor mhbuild \
+          -convertargs text/calendar "-reply decline -contenttype${attendee}" \
+          "$@"
+    unset attendee
+}
+
+
+#### reply as tentative to a calendar request
+#### usage: caltentative [-a address] [repl switches]
+####   -a specifies attendee, see mhical(1)
+#### Other arguments passed to repl(1).
+caltentative() {
+    if [ "$1" = -a ]; then
+        attendee=' -attendee '`mhical_attendee "$@"`
+        shift; shift
+    else
+        attendee=
+    fi
+    \repl -noformat -editor mhbuild \
+          -convertargs text/calendar "-reply tentative -contenttype${attendee}" \
+          "$@"
+    unset attendee
+}
+
+
+#### cancel a calendar request
+calcancel() {
+    \repl -noformat -editor mhbuild \
+         -convertargs text/calendar '-cancel -contenttype' "$@"
+}
+
+
+# Local Variables:
+# mode: sh
+# End: