From 42d28619168bd8c381fb19a25f1b9d6dd349a46a Mon Sep 17 00:00:00 2001 From: David Bremner Date: Sun, 22 Feb 2015 21:34:44 +0100 Subject: [PATCH] [PATCH] cli: add a tool for starting new message in the emacs ui --- 4f/1e6dfbbe949c3502b256753715caeffa34823b | 293 ++++++++++++++++++++++ 1 file changed, 293 insertions(+) create mode 100644 4f/1e6dfbbe949c3502b256753715caeffa34823b diff --git a/4f/1e6dfbbe949c3502b256753715caeffa34823b b/4f/1e6dfbbe949c3502b256753715caeffa34823b new file mode 100644 index 000000000..1a616401b --- /dev/null +++ b/4f/1e6dfbbe949c3502b256753715caeffa34823b @@ -0,0 +1,293 @@ +Return-Path: +X-Original-To: notmuch@notmuchmail.org +Delivered-To: notmuch@notmuchmail.org +Received: from localhost (localhost [127.0.0.1]) + by olra.theworths.org (Postfix) with ESMTP id 57963431FD5 + for ; Sun, 22 Feb 2015 12:45:59 -0800 (PST) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: 2.438 +X-Spam-Level: ** +X-Spam-Status: No, score=2.438 tagged_above=-999 required=5 + tests=[DNS_FROM_AHBL_RHSBL=2.438] autolearn=disabled +Received: from olra.theworths.org ([127.0.0.1]) + by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) + with ESMTP id KI4agDOOaDXw for ; + Sun, 22 Feb 2015 12:45:56 -0800 (PST) +Received: from mx.xen14.node3324.gplhost.com (gitolite.debian.net + [87.98.215.224]) + (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) + (No client certificate requested) + by olra.theworths.org (Postfix) with ESMTPS id 0D7D4431FD4 + for ; Sun, 22 Feb 2015 12:45:56 -0800 (PST) +Received: from remotemail by mx.xen14.node3324.gplhost.com with local (Exim + 4.80) (envelope-from ) + id 1YPdEy-0005zp-Ji; Sun, 22 Feb 2015 20:35:00 +0000 +Received: (nullmailer pid 611 invoked by uid 1000); Sun, 22 Feb 2015 20:34:47 + -0000 +From: David Bremner +To: David Bremner , notmuch@notmuchmail.org +Subject: [PATCH] cli: add a tool for starting new message in the emacs ui +Date: Sun, 22 Feb 2015 21:34:44 +0100 +Message-Id: <1424637284-567-1-git-send-email-david@tethera.net> +X-Mailer: git-send-email 2.1.4 +In-Reply-To: <1421598115-4889-1-git-send-email-david@tethera.net> +References: <1421598115-4889-1-git-send-email-david@tethera.net> +MIME-Version: 1.0 +Content-Type: text/plain; charset=UTF-8 +Content-Transfer-Encoding: 8bit +X-BeenThere: notmuch@notmuchmail.org +X-Mailman-Version: 2.1.13 +Precedence: list +List-Id: "Use and development of the notmuch mail system." + +List-Unsubscribe: , + +List-Archive: +List-Post: +List-Help: +List-Subscribe: , + +X-List-Received-Date: Sun, 22 Feb 2015 20:45:59 -0000 + +From: Jani Nikula + +Add a tool to start composing an email in the Notmuch Emacs UI with +the specified subject, recipients, and message body. +--- + doc/conf.py | 4 ++ + doc/man1/notmuch-emacs-mua.rst | 63 +++++++++++++++++++ + notmuch-emacs-mua | 136 +++++++++++++++++++++++++++++++++++++++++ + 3 files changed, 203 insertions(+) + create mode 100644 doc/man1/notmuch-emacs-mua.rst + create mode 100755 notmuch-emacs-mua + +diff --git a/doc/conf.py b/doc/conf.py +index fb49f6e..8fbc854 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 0000000..eb47098 +--- /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 0000000..b8cbc82 +--- /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 +-- +2.1.4 + -- 2.26.2