From: Jani Nikula Date: Sun, 22 Feb 2015 20:34:44 +0000 (+0100) Subject: cli: add a tool for starting new message in the emacs ui X-Git-Tag: 0.20~47 X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=f4a5a534c8312bc46b7c561d5f4d26600a532d96 cli: add a tool for starting new message in the emacs ui Add a tool to start composing an email in the Notmuch Emacs UI with the specified subject, recipients, and message body. --- diff --git a/doc/conf.py b/doc/conf.py index fb49f6eb..8fbc8544 100644 --- a/doc/conf.py +++ b/doc/conf.py @@ -78,6 +78,10 @@ man_pages = [ u'creates a plain-text dump of the tags of each message', [u'Carl Worth and many others'], 1), +('man1/notmuch-emacs-mua','notmuch-emacs-mua', + u'send mail with notmuch and emacs', + [u'Carl Worth and many others'], 1), + ('man5/notmuch-hooks','notmuch-hooks', u'hooks for notmuch', [u'Carl Worth and many others'], 5), diff --git a/doc/man1/notmuch-emacs-mua.rst b/doc/man1/notmuch-emacs-mua.rst new file mode 100644 index 00000000..eb47098e --- /dev/null +++ b/doc/man1/notmuch-emacs-mua.rst @@ -0,0 +1,63 @@ +================= +notmuch-emacs-mua +================= + +SYNOPSIS +======== + +**notmuch-emacs-mua** [options ...] [ ...] + +DESCRIPTION +=========== + +Start composing an email in the Notmuch Emacs UI with the specified +subject, recipients, and message body. + +Supported options for **notmuch-emacs-mua** include + + ``-h, --help`` + Display help. + + ``-C, --client`` + Use emacsclient, rather than emacs. This will start + an emacs daemon process if necessary. + + ``-s, --subject=``\ + Specify the subject of the message. + + ``--to=``\ + Specify a recipient (To). + + ``-c, --cc=``\ + Specify a carbon-copy (Cc) recipient. + + ``-b, --bcc=``\ + Specify a blind-carbon-copy (Bcc) recipient. + + ``-i, --body=``\ + Specify a file to include into the body of the message. + + ``--no-window-system`` + Even if a window system is available, use the current terminal + + ``--print`` + Output the resulting elisp to stdout instead of evaluating it. + +The supported positional parameters and short options are a compatible +subset of the **mutt** MUA command-line options. + +Options may be specified multiple times. + +ENVIRONMENT VARIABLES +===================== + +``EMACS`` +Name of emacs command to invoke + +``EMACSCLIENT`` +Name of emacsclient comment to invoke + +SEE ALSO +======== + +**notmuch(1)**, **emacsclient(1)**, **mutt(1)** diff --git a/notmuch-emacs-mua b/notmuch-emacs-mua new file mode 100755 index 00000000..b8cbc822 --- /dev/null +++ b/notmuch-emacs-mua @@ -0,0 +1,136 @@ +#!/usr/bin/env bash +# +# notmuch-emacs-mua - start composing a mail on the command line +# +# Copyright © 2014 Jani Nikula +# +# 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 http://www.gnu.org/licenses/ . +# +# Authors: Jani Nikula +# + +set -eu + +escape () +{ + echo "${1//\"/\\\"}" +} + +EMACS=${EMACS-emacs} +EMACSCLIENT=${EMACSCLIENT-emacsclient} + +PRINT_ONLY= +USE_EMACSCLIENT= +CLIENT_TYPE="-c" + +# The crux of it all: construct an elisp progn and eval it. +ELISP="(prog1 'done (require 'notmuch) (notmuch-mua-new-mail)" +ELISP="${ELISP} (setq message-exit-actions (list #'save-buffers-kill-terminal))" + +while getopts :s:c:b:i:hC opt; do + # Handle errors and long options. + case "${opt}" in + :) + echo "$0: short option -${OPTARG} requires an argument." >&2 + exit 1 + ;; + \?) + opt=$1 + if [ "${OPTARG}" != "-" ]; then + echo "$0: unknown short option -${OPTARG}." >&2 + exit 1 + fi + + case "${opt}" in + # Long options with arguments. + --subject=*|--to=*|--cc=*|--bcc=*|--body=*) + OPTARG=${opt#--*=} + opt=${opt%%=*} + ;; + # Long options without arguments. + --help|--print|--no-window-system|--client) + ;; + *) + echo "$0: unknown long option ${opt}, or argument mismatch." >&2 + exit 1 + ;; + esac + # getopts does not do this for what it considers errors. + OPTIND=$((OPTIND + 1)) + ;; + esac + + + OPTARG="${OPTARG-none}" + OPTARG="$(escape "${OPTARG}")" + + case "${opt}" in + --help|h) + exec man notmuch-emacs-mua + ;; + --client|C) + USE_EMACSCLIENT="yes" + ;; + --subject|s) + ELISP="${ELISP} (message-goto-subject) (insert \"${OPTARG}\")" + ;; + --to) + ELISP="${ELISP} (message-goto-to) (insert \"${OPTARG}, \")" + ;; + --cc|c) + ELISP="${ELISP} (message-goto-cc) (insert \"${OPTARG}, \")" + ;; + --bcc|b) + ELISP="${ELISP} (message-goto-bcc) (insert \"${OPTARG}, \")" + ;; + --body|i) + ELISP="${ELISP} (message-goto-body) (cd \"${PWD}\") (insert-file \"${OPTARG}\")" + ;; + --print) + PRINT_ONLY=1 + ;; + --no-window-system) + CLIENT_TYPE="-t" + ;; + *) + # We should never end up here. + echo "$0: internal error (option ${opt})." >&2 + exit 1 + ;; + esac + + shift $((OPTIND - 1)) + OPTIND=1 +done + +# Positional parameters. +for arg; do + arg="$(escape "${arg}")" + ELISP="${ELISP} (message-goto-to) (insert \"${arg}, \")" +done + +# End progn. +ELISP="${ELISP})" + +if [ -n "$PRINT_ONLY" ]; then + echo ${ELISP} + exit 0 +fi + +if [ -n "$USE_EMACSCLIENT" ]; then + # Evaluate the progn. + exec ${EMACSCLIENT} ${CLIENT_TYPE} -a '' --eval "${ELISP}" +else + exec ${EMACS} --eval "${ELISP}" +fi