From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id 22A64431FBC for ; Sun, 6 Apr 2014 08:43:35 -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 ghZITI3M2TF2 for ; Sun, 6 Apr 2014 08:43:31 -0700 (PDT) Received: from mail-wg0-f41.google.com (mail-wg0-f41.google.com [74.125.82.41]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client certificate requested) by olra.theworths.org (Postfix) with ESMTPS id 8B0D4431FB6 for ; Sun, 6 Apr 2014 08:43:30 -0700 (PDT) Received: by mail-wg0-f41.google.com with SMTP id n12so5719162wgh.12 for ; Sun, 06 Apr 2014 08:43:27 -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:in-reply-to :references:mime-version:content-type:content-transfer-encoding; bh=IwQWOpo9fN83PjMm6/YFzIZXmGz4YIkTyYwk7M+w+0w=; b=KbmXkiU5NfLmmcL8R52561MidoPnY9aCYawfoGlaiHYMv2T4BuiP6O/k/T9f8sHiVb SIzpvKm7DqhXLCxePKaG49CmqScegu4bMQ8fZz6bkKOJ2+umhp05qNy4IBRlFnCLZGsQ 7ewIihefsk5l5dmJNYQLbzxh5YKLXGBmpK8oEVseITFnOO1DZ8QTaQDEhfi2YL3hml6s uBsVApQMdKR0YWaMepxm8bA1KF8/cuvBlMAREHAdWbhhA7b0/otFo/zZAspC2gYwDwad ao+WYi578/EyyarMwpHlBPSO5ruSEp/6qBKPoKqcbyfRHxeBw8KGGY+fJ1knutamgFB9 vIzg== X-Gm-Message-State: ALoCoQnuFli7e0NHAT10WeA4XC3aYbNhEbFktWcNmF/8Gu4qF7e/N95HGVJCTnZ3PmB7Dbv1rSdp X-Received: by 10.180.78.200 with SMTP id d8mr19673019wix.34.1396799006544; Sun, 06 Apr 2014 08:43:26 -0700 (PDT) Received: from localhost (dsl-hkibrasgw2-58c36f-91.dhcp.inet.fi. [88.195.111.91]) by mx.google.com with ESMTPSA id m8sm35281700eeg.11.2014.04.06.08.43.24 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Sun, 06 Apr 2014 08:43:25 -0700 (PDT) From: Jani Nikula To: notmuch@notmuchmail.org, Tomi Ollila Subject: [PATCH v2] cli: add a tool for starting new message in the emacs ui Date: Sun, 6 Apr 2014 18:43:23 +0300 Message-Id: <1396799003-14855-1-git-send-email-jani@nikula.org> X-Mailer: git-send-email 1.9.1 In-Reply-To: References: 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, 06 Apr 2014 15:43:35 -0000 Add a tool to start composing an email in the Notmuch Emacs UI with the specified subject, recipients, and message body. --- doc/man1/notmuch-emacs-mua.rst | 50 +++++++++++++++++ notmuch-emacs-mua | 122 +++++++++++++++++++++++++++++++++++++++++ 2 files changed, 172 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..7f94271d8a44 --- /dev/null +++ b/notmuch-emacs-mua @@ -0,0 +1,122 @@ +#!/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//\"/\\\"}" +} + +PRINT_ONLY= + +# The crux of it all: construct an elisp progn and eval it. +ELISP="(progn (require 'notmuch) (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 + + OPTARG="$(escape "${OPTARG}")" + + case "${opt}" in + --help|h) + exec man notmuch-emacs-mua + ;; + --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. +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 + +# Evaluate the progn. +emacsclient --eval "${ELISP}" >/dev/null +if [ $? -ne 0 ]; then + echo "$0: emacsclient failed" >&2 + exit 1 +fi -- 1.9.1