0d/c9942a828be3a2f1c21d9c6883248b516dd0e1

   1 Return-Path: <tom.hirschowitz@univ-savoie.fr>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 5FE5640C425\r
   6         for <notmuch@notmuchmail.org>; Fri,  6 Jun 2014 05:21:04 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5\r
  12         tests=[RCVD_IN_DNSWL_NONE=-0.0001] autolearn=disabled\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id ZdQAviQ+Yj0n for <notmuch@notmuchmail.org>;\r
  16         Fri,  6 Jun 2014 05:20:57 -0700 (PDT)\r
  17 Received: from dsi-mta-out.univ-savoie.fr (dsi-mta-out.univ-savoie.fr\r
  18         [193.48.126.73])\r
  19         by olra.theworths.org (Postfix) with ESMTP id C9F2340CAF1\r
  20         for <notmuch@notmuchmail.org>; Fri,  6 Jun 2014 05:20:56 -0700 (PDT)\r
  21 Received: from localhost (localhost [127.0.0.1])\r
  22         by dsi-mta-out.univ-savoie.fr (Postfix) with ESMTP id 7B26042247\r
  23         for <notmuch@notmuchmail.org>; Fri,  6 Jun 2014 14:20:53 +0200 (CEST)\r
  24 Received: from dsi-mta-out.univ-savoie.fr ([127.0.0.1])\r
  25         by localhost (dsi-mta-out.univ-savoie.fr [127.0.0.1]) (amavisd-new,\r
  26         port 10026) with ESMTP id HxqaMigslDDh for <notmuch@notmuchmail.org>;\r
  27         Fri,  6 Jun 2014 14:20:53 +0200 (CEST)\r
  28 Received: from dsi-mail-msa1.univ-savoie.fr (dsi-mail-msa1.univ-savoie.fr\r
  29         [193.48.126.83])\r
  30         by dsi-mta-out.univ-savoie.fr (Postfix) with ESMTP id 68A6E42184\r
  31         for <notmuch@notmuchmail.org>; Fri,  6 Jun 2014 14:20:53 +0200 (CEST)\r
  32 Received: from localhost (localhost [127.0.0.1])\r
  33         by dsi-mail-msa1.univ-savoie.fr (Postfix) with ESMTP id 663E714096\r
  34         for <notmuch@notmuchmail.org>; Fri,  6 Jun 2014 14:20:53 +0200 (CEST)\r
  35 X-Virus-Scanned: Debian amavisd-new at dsi-mail-msa1.univ-savoie.fr\r
  36 Received: from dsi-mail-msa1.univ-savoie.fr ([127.0.0.1])\r
  37         by localhost (dsi-mail-msa1.univ-savoie.fr [127.0.0.1]) (amavisd-new,\r
  38         port 10024) with ESMTP id cHnncTX7AkJZ for <notmuch@notmuchmail.org>;\r
  39         Fri,  6 Jun 2014 14:20:53 +0200 (CEST)\r
  40 Received: from hirscho.lama.univ-savoie.fr (lama-d186.univ-savoie.fr\r
  41         [193.48.123.186])\r
  42         by dsi-mail-msa1.univ-savoie.fr (Postfix) with ESMTP id 49FF014093\r
  43         for <notmuch@notmuchmail.org>; Fri,  6 Jun 2014 14:20:53 +0200 (CEST)\r
  44 From: Tom Hirschowitz <tom.hirschowitz@univ-savoie.fr>\r
  45 To: notmuch@notmuchmail.org\r
  46 Cc: \r
  47 Subject: Re: an emacs macro\r
  48 In-Reply-To: <8761kefdpq.fsf@qmul.ac.uk>\r
  49 References: <87bnu7k7j3.fsf@hirscho.lama.univ-savoie.fr>\r
  50         <8761kefdpq.fsf@qmul.ac.uk>\r
  51 User-Agent: Notmuch/0.18 (http://notmuchmail.org) Emacs/23.4.1\r
  52         (x86_64-pc-linux-gnu)\r
  53 Date: Fri, 06 Jun 2014 14:20:53 +0200\r
  54 Message-ID: <8738fiut3u.fsf@hirscho.lama.univ-savoie.fr>\r
  55 MIME-Version: 1.0\r
  56 Content-Type: text/plain; charset=us-ascii\r
  57 X-BeenThere: notmuch@notmuchmail.org\r
  58 X-Mailman-Version: 2.1.13\r
  59 Precedence: list\r
  60 List-Id: "Use and development of the notmuch mail system."\r
  61         <notmuch.notmuchmail.org>\r
  62 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  63         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  64 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  65 List-Post: <mailto:notmuch@notmuchmail.org>\r
  66 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  67 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  68         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  69 X-List-Received-Date: Fri, 06 Jun 2014 12:21:04 -0000\r
  70 \r
  71 \r
  72 Thanks, you were right, although that's what i had tried. No idea what i\r
  73 did wrong the first time.\r
  74 \r
  75 Here's the code in case anyone is interested (i actually tweaked *-add-tag):\r
  76 \r
  77 (defun notmuch-search-move  (tag-changes &optional beg end) \r
  78   "Add the local tag, plus possibly others, given as interactive arguments,  \r
  79 for the current thread or region (defaulting to add)." \r
  80   (interactive (notmuch-search-interactive-tag-changes "+")) \r
  81   (notmuch-search-tag (cons "+local" tag-changes) beg end)) \r
  82 \r
  83 (defun notmuch-tree-move (tag-changes)\r
  84   "Add the local tag, plus possibly others, given as interactive arguments,  \r
  85 for the current thread or region (defaulting to add)." \r
  86   (interactive\r
  87    (list (notmuch-read-tag-changes (notmuch-tree-get-tags) "Tag message" "+")))\r
  88   (notmuch-tree-tag (cons "+local" tag-changes)))\r
  89 \r
  90 Cheers,\r
  91 Tom\r
  92 \r
  93 Mark Walters <markwalters1009@gmail.com> writes:\r
  94 \r
  95 > On Thu, 05 Jun 2014, Tom Hirschowitz <tom.hirschowitz@univ-savoie.fr> wrote:\r
  96 >> Hi all, \r
  97 >>\r
  98 >> I'm trying to define a macro for notmuch/emacs which in show-mode would\r
  99 >>\r
 100 >>  - prompt the user for tags (possibly starting with "+"),\r
 101 >>\r
 102 >>  - tag the shown message with these tags plus an additional fixed tag,\r
 103 >>    say "+local".\r
 104 >>\r
 105 >> I know next to nothing about emacs/lisp, so I tried to mimick notmuch*.el.\r
 106 >>\r
 107 >> Here's my most plausible attempt:\r
 108 >>\r
 109 >> (defun notmuch-show-move (tag-changes)\r
 110 >>   "Add the local tag, plus possibly others, given as interactive arguments."\r
 111 >>   (interactive (list (notmuch-read-tag-changes (notmuch-show-get-tags)\r
 112 >>                                             "Tag message" "+")))\r
 113 >>   (let* ((tag-changes-with-local (cons "+local" tag-changes))\r
 114 >>       (rien (notmuch-tag (notmuch-show-get-message-id) tag-changes-with-local))\r
 115 >>       (current-tags (notmuch-show-get-tags))\r
 116 >>       (new-tags (notmuch-update-tags current-tags tag-changes-with-local)))\r
 117 >>     (unless (equal current-tags new-tags)\r
 118 >>       (notmuch-show-set-tags new-tags))))\r
 119 >\r
 120 > Yes this looks fine for notmuch-show. It won't work for search mode as\r
 121 > notmuch-show- commands basically only work in notmuch-show. I would\r
 122 > suggest copying notmuch-search-tag and tweaking it to use\r
 123 > tag-changes-with-local (as you have done for the show version\r
 124 > above). Something similar should work for tree-mode (ie copy\r
 125 > notmuch-tree-tag)\r
 126 >\r
 127 > I think you will need separate functions for the three modes.\r
 128 >\r
 129 > Best wishes\r
 130 >\r
 131 > Mark\r