e0/c0ffc00d389201fe2c46701969838badccc699

   1 Return-Path: <cceleri@cs.stanford.edu>\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 E622B431FC3\r
   6         for <notmuch@notmuchmail.org>; Mon,  1 Dec 2014 09:02:15 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -2.3\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-2.3 tagged_above=-999 required=5\r
  12         tests=[RCVD_IN_DNSWL_MED=-2.3] 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 bGX68a2NkfGs for <notmuch@notmuchmail.org>;\r
  16         Mon,  1 Dec 2014 09:02:09 -0800 (PST)\r
  17 Received: from smtp2.cs.Stanford.EDU (smtp2.cs.stanford.edu [171.64.64.26])\r
  18         (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))\r
  19         (No client certificate requested)\r
  20         by olra.theworths.org (Postfix) with ESMTPS id 05D98431FC0\r
  21         for <notmuch@notmuchmail.org>; Mon,  1 Dec 2014 09:02:08 -0800 (PST)\r
  22 Received: from tor-exit.de ([195.37.190.67]:44480 helo=Jane.lan)\r
  23         by smtp2.cs.Stanford.EDU with esmtpsa (UNKNOWN:AES128-GCM-SHA256:128)\r
  24         (Exim 4.80.1) (envelope-from <cceleri@cs.stanford.edu>)\r
  25         id 1XvUMN-0004Ym-4l; Mon, 01 Dec 2014 09:02:06 -0800\r
  26 From: Charles Celerier <cceleri@cs.stanford.edu>\r
  27 To: David Edmondson <dme@dme.org>, Notmuch Mail <notmuch@notmuchmail.org>\r
  28 Subject: Re: [PATCH v2] emacs: Added "is:<tag>" style completion\r
  29         to      notmuch-read-query.\r
  30 In-Reply-To: <cunh9xfg9i2.fsf@gargravarr.hh.sledj.net>\r
  31 References: <1417219835-92141-1-git-send-email-cceleri@cs.stanford.edu>\r
  32         <1417279197-90877-1-git-send-email-cceleri@cs.stanford.edu>\r
  33         <cunh9xfg9i2.fsf@gargravarr.hh.sledj.net>\r
  34 User-Agent: Notmuch/0.18.1+208~g93eda7e (http://notmuchmail.org) Emacs/24.4.1\r
  35         (x86_64-apple-darwin14.0.0)\r
  36 Date: Mon, 01 Dec 2014 12:01:52 -0500\r
  37 Message-ID: <m2wq6bs3r3.fsf@Jane.lan>\r
  38 MIME-Version: 1.0\r
  39 Content-Type: multipart/signed; boundary="=-=-=";\r
  40         micalg=pgp-sha1; protocol="application/pgp-signature"\r
  41 X-Scan-Signature: 1a99e790efc5595ebc7b409aae77a077\r
  42 X-BeenThere: notmuch@notmuchmail.org\r
  43 X-Mailman-Version: 2.1.13\r
  44 Precedence: list\r
  45 List-Id: "Use and development of the notmuch mail system."\r
  46         <notmuch.notmuchmail.org>\r
  47 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  48         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  49 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  50 List-Post: <mailto:notmuch@notmuchmail.org>\r
  51 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  52 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  53         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  54 X-List-Received-Date: Mon, 01 Dec 2014 17:02:16 -0000\r
  55 \r
  56 --=-=-=\r
  57 Content-Type: text/plain\r
  58 Content-Transfer-Encoding: quoted-printable\r
  59 \r
  60 Can the variables in the varlist depend on the definition of variables\r
  61 that precede them in the list? I believe I tried your suggestion, but\r
  62 quickly gave up as Emacs gave me an error claiming that all-tags was\r
  63 void.\r
  64 \r
  65 charles\r
  66 \r
  67 David Edmondson <dme@dme.org> writes:\r
  68 \r
  69 > On Sat, Nov 29 2014, Charles Celerier wrote:\r
  70 >> The notmuch-search-terms man page states that "tag:<tag>" is equivalent\r
  71 >> to "is:<tag>". Completion for "is:<tag>" style searches is now supported\r
  72 >> in the Emacs interface.\r
  73 >>\r
  74 >> Signed-off-by: Charles Celerier <cceleri@cs.stanford.edu>\r
  75 >> ---\r
  76 >>  emacs/notmuch.el | 11 +++++++----\r
  77 >>  1 file changed, 7 insertions(+), 4 deletions(-)\r
  78 >>\r
  79 >> diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
  80 >> index 218486a..d29499c 100644\r
  81 >> --- a/emacs/notmuch.el\r
  82 >> +++ b/emacs/notmuch.el\r
  83 >> @@ -856,12 +856,15 @@ See `notmuch-tag' for information on the format of=\r
  84  TAG-CHANGES."\r
  85 >>=20=20\r
  86 >>  PROMPT is the string to prompt with."\r
  87 >>    (lexical-let\r
  88 >> +    (( all-tags\r
  89 >> +        (mapcar (lambda (tag) (notmuch-escape-boolean-term tag))\r
  90 >> +                (process-lines notmuch-command "search" "--output=3Dtag=\r
  91 s" "*"))))\r
  92 >> +  (let\r
  93 >\r
  94 > I think that David's suggestion was that you would have only one `let'\r
  95 > form, so something like:\r
  96 >\r
  97 >  (lexical-let*\r
  98 >    ((all-tags (mapcar ...))\r
  99 >     (completions (append ...))\r
 100 >     (keymap (copy-keymap ...))\r
 101 >     (current-query ...))\r
 102 >      ...)\r
 103 >\r
 104 >>        ((completions\r
 105 >>      (append (list "folder:" "path:" "thread:" "id:" "date:" "from:" "to:"\r
 106 >>                    "subject:" "attachment:")\r
 107 >> -            (mapcar (lambda (tag)\r
 108 >> -                      (concat "tag:" (notmuch-escape-boolean-term tag)))\r
 109 >> -                    (process-lines notmuch-command "search" "--output=3Dtags" "*")))))\r
 110 >> +            (mapcar (lambda (tag) (concat "tag:" tag)) all-tags)\r
 111 >> +            (mapcar (lambda (tag) (concat "is:" tag)) all-tags))))\r
 112 >>      (let ((keymap (copy-keymap minibuffer-local-map))\r
 113 >>        (current-query (case major-mode\r
 114 >>                         (notmuch-search-mode (notmuch-search-get-query))\r
 115 >> @@ -884,7 +887,7 @@ PROMPT is the string to prompt with."\r
 116 >>        (define-key keymap (kbd "TAB") 'minibuffer-complete)\r
 117 >>        (let ((history-delete-duplicates t))\r
 118 >>      (read-from-minibuffer prompt nil keymap nil\r
 119 >> -                          'notmuch-search-history current-query nil)))))\r
 120 >> +                          'notmuch-search-history current-query nil))))))\r
 121 >>=20=20\r
 122 >>  (defun notmuch-search-get-query ()\r
 123 >>    "Return the current query in this search buffer"\r
 124 >> --=20\r
 125 >> 2.1.2\r
 126 >>\r
 127 >> _______________________________________________\r
 128 >> notmuch mailing list\r
 129 >> notmuch@notmuchmail.org\r
 130 >> http://notmuchmail.org/mailman/listinfo/notmuch\r
 131 \r
 132 --=-=-=\r
 133 Content-Type: application/pgp-signature; name="signature.asc"\r
 134 \r
 135 -----BEGIN PGP SIGNATURE-----\r
 136 Version: GnuPG/MacGPG2 v2\r
 137 \r
 138 iQEcBAEBAgAGBQJUfJ8BAAoJEOjk698fDjuAZMcH/j3DCPbML4Mg4F3SvsDhSDmj\r
 139 zVQ+m2jiOXGkrpgxf9zJugwutt5PlULMmQkOKB8gxzAAvLFO3WC89zeEm453z12Z\r
 140 jlKpHJY/DnMF3Y34Sj9UYbUXdIWZEzMqJRv7F6UrWL32xcnOIbV45v1oikUNiRdE\r
 141 ivhYjU5CiSa8HU1TrbKxidkr3SXfBcD0A6re48zEcCD32Wi86at6a0ZRPANEa5Xa\r
 142 tGqiyt2AClbIUvJ3o7ozPeVFCFuVi+R3jy1fOM4ynKz2AWCpjEpvMyIDMSztkT9K\r
 143 xvqpw81x0no9a8Rhq3GkxxxKJBHPKYmoKGVOTxXN4vSEQFsyNP3tyhSgnAyZdus=\r
 144 =A8/Y\r
 145 -----END PGP SIGNATURE-----\r
 146 --=-=-=--\r