From: Jani Nikula Date: Wed, 19 Mar 2014 19:25:53 +0000 (+0200) Subject: [PATCH] cli: add a tool for starting new message in the emacs ui X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=d502b9ef01c05652063a86a688728f80481455ae;p=notmuch-archives.git [PATCH] cli: add a tool for starting new message in the emacs ui --- diff --git a/38/bb4ce1200c32f7b7c262c1a899ffe9ef3d648a b/38/bb4ce1200c32f7b7c262c1a899ffe9ef3d648a new file mode 100644 index 000000000..739fa16fd --- /dev/null +++ b/38/bb4ce1200c32f7b7c262c1a899ffe9ef3d648a @@ -0,0 +1,269 @@ +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 56201431FAF + for ; Wed, 19 Mar 2014 12:26:06 -0700 (PDT) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: -0.7 +X-Spam-Level: +X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5 + tests=[RCVD_IN_DNSWL_LOW=-0.7] 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 1R+g0w7lFk78 for ; + Wed, 19 Mar 2014 12:25:57 -0700 (PDT) +Received: from mail-ee0-f51.google.com (mail-ee0-f51.google.com + [74.125.83.51]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client + certificate requested) by olra.theworths.org (Postfix) with ESMTPS id + 13F2F431FAE for ; Wed, 19 Mar 2014 12:25:56 -0700 + (PDT) +Received: by mail-ee0-f51.google.com with SMTP id c13so7045928eek.10 + for ; Wed, 19 Mar 2014 12:25:55 -0700 (PDT) +X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; + d=1e100.net; s=20130820; + h=x-gm-message-state:from:to:cc:subject:date:message-id:mime-version + :content-type:content-transfer-encoding; + bh=x92F1NPeXe3/Vicu3SOY9mckk4+ceONYwongSXhm8l0=; + b=KxgfH1W240joGMJc+rQX1FZCLkavdoEPFDMd+NntfVefMge6pbjMrDjbb8QoCC5SPq + xJSCoJ46eqPksQsl6A7ppcqUMUI5FGU7EHRX7IqHJkW5M6ullFdOJ5yvaWAAimdntS9V + 14tF889KDHzptuIIiFB+ViFGXdljU9E29iPSl/XOvv98gsUFeLRUZoGrnvSs1ja1i6pU + WLdszfufEYYcXtNm9FXFjyG3pJbD8ZtQHUFVFGeAaA486thFKNofd1Eirhh5YTHdSk9n + BfWasFogcFdc/D/OsEmB78EEaBYOnoWjA5VRS30DzcyZMwNJt0iLwFBkcwz0m9hu8e+l + JyrQ== +X-Gm-Message-State: + ALoCoQmVAocU4lPnWbIVYaAIT1xkZ79w7HaLALPX8IWCfKdFEJ2A+PK6Z5x7Cy0Dk3Lak/x61Yvr +X-Received: by 10.15.100.196 with SMTP id bn44mr538463eeb.104.1395257155785; + Wed, 19 Mar 2014 12:25:55 -0700 (PDT) +Received: from localhost (dsl-hkibrasgw2-58c36f-91.dhcp.inet.fi. + [88.195.111.91]) + by mx.google.com with ESMTPSA id w6sm56664932eex.9.2014.03.19.12.25.54 + for + (version=TLSv1.2 cipher=RC4-SHA bits=128/128); + Wed, 19 Mar 2014 12:25:55 -0700 (PDT) +From: Jani Nikula +To: notmuch@notmuchmail.org +Subject: [PATCH] cli: add a tool for starting new message in the emacs ui +Date: Wed, 19 Mar 2014 21:25:53 +0200 +Message-Id: <1395257153-29764-1-git-send-email-jani@nikula.org> +X-Mailer: git-send-email 1.9.0 +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: Wed, 19 Mar 2014 19:26:06 -0000 + +Add a tool to start composing an email in the Notmuch Emacs UI with +the specified subject, recipients, and message body. + +--- + +I need something like this to script some mails, particularly with the +mutt compatible options, but I also think notmuch must have long +options. I then got a little carried away with figuring out how to +support both. I think it turned out pretty neat, except due to some +subtlety it only works with bash. + +I didn't integrate this in the man build or install or anything, +because I wanted to get feedback first on whether we want to have this +at all. Or if it should live in contrib or something. + +BR, +Jani. +--- + doc/man1/notmuch-emacs-mua.rst | 50 ++++++++++++++++++ + notmuch-emacs-mua | 113 +++++++++++++++++++++++++++++++++++++++++ + 2 files changed, 163 insertions(+) + create mode 100644 doc/man1/notmuch-emacs-mua.rst + create mode 100755 notmuch-emacs-mua + +diff --git a/doc/man1/notmuch-emacs-mua.rst b/doc/man1/notmuch-emacs-mua.rst +new file mode 100644 +index 000000000000..6e63818492fb +--- /dev/null ++++ b/doc/man1/notmuch-emacs-mua.rst +@@ -0,0 +1,50 @@ ++================= ++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. ++ ++For **notmuch-emacs-mua** to work, you need **emacsclient** and an ++already running Emacs with a server. ++ ++Supported options for **notmuch-emacs-mua** include ++ ++ ``-h, --help`` ++ Display help. ++ ++ ``-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. ++ ++ ``--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. ++ ++SEE ALSO ++======== ++ ++**notmuch(1)**, **emacsclient(1)**, **mutt(1)** +diff --git a/notmuch-emacs-mua b/notmuch-emacs-mua +new file mode 100755 +index 000000000000..a482fe1a8eca +--- /dev/null ++++ b/notmuch-emacs-mua +@@ -0,0 +1,113 @@ ++#!/bin/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 -e ++ ++# The crux of it all: construct an elisp progn and eval it. ++ELISP="(progn (notmuch-mua-new-mail)" ++ ++while getopts :s:c:b:i:h 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) ++ ;; ++ *) ++ 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 ++ ++ case "${opt}" in ++ --help|h) ++ exec man notmuch-search ++ ;; ++ --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 ++ ;; ++ *) ++ # We should never end up here. ++ echo "$0: internal error (option ${opt})." >&2 ++ exit 1 ++ ;; ++ esac ++ ++ shift $((OPTIND - 1)) ++ OPTIND=1 ++done ++ ++# Positional parameters. ++while [ $# -gt 0 ]; do ++ ELISP="${ELISP} (message-goto-to) (insert \"${1}, \")" ++ shift ++done ++ ++# End progn. ++ELISP="${ELISP})" ++ ++if [ -n "$PRINT_ONLY" ]; then ++ echo ${ELISP} ++ exit 0 ++fi ++ ++# Evaluate the progn. ++emacsclient --eval "${ELISP}" &>/dev/null ++if [ $? -ne 0 ]; then ++ echo "$0: emacsclient failed" >&2 ++ exit 1 ++fi +-- +1.9.0 +