34/6fca87d3ace50147cc7b72b28203089952431f

   1 Return-Path: <markwalters1009@gmail.com>\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 AC267431FBD\r
   6         for <notmuch@notmuchmail.org>; Sat, 18 Jan 2014 06:53:13 -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: 0.201\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0.201 tagged_above=-999 required=5\r
  12         tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
  13         FREEMAIL_ENVFROM_END_DIGIT=1, FREEMAIL_FROM=0.001,\r
  14         RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
  15 Received: from olra.theworths.org ([127.0.0.1])\r
  16         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  17         with ESMTP id hnfoeTRCc3rQ for <notmuch@notmuchmail.org>;\r
  18         Sat, 18 Jan 2014 06:53:08 -0800 (PST)\r
  19 Received: from mail-we0-f180.google.com (mail-we0-f180.google.com\r
  20         [74.125.82.180]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
  21         (No client certificate requested)\r
  22         by olra.theworths.org (Postfix) with ESMTPS id 0D261431FBC\r
  23         for <notmuch@notmuchmail.org>; Sat, 18 Jan 2014 06:53:07 -0800 (PST)\r
  24 Received: by mail-we0-f180.google.com with SMTP id q59so5627433wes.11\r
  25         for <notmuch@notmuchmail.org>; Sat, 18 Jan 2014 06:53:05 -0800 (PST)\r
  26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;\r
  27         h=from:to:cc:subject:date:message-id:in-reply-to:references;\r
  28         bh=+z1/kV6bt2IkfPJuiLYN/Vev3OukB1BtEEVpT0yP9HE=;\r
  29         b=X/DI/LhMGhdVS/TTbitfgB73Ds8I54mKBVmCszOKBDybbHYMQDau9e3rqwtlIbU/NB\r
  30         WblGmtd3cJfUSbBXYXgk398KpVxjT99m8CvvNgaOgmpMUb12D9Rt4Rfe+h/rc1f9fx0x\r
  31         sCq7FfYz1FskXgu9QAQ3NOROtZhTVUw8Zus7ZIygal70Suk8BzCEnsuNTTlCIBZe9oTa\r
  32         XwbmQBi9kRillDFTxvbsmX2sCZWRbPxYpz4/ow/aDmiERnwvU9e7+/0MmyP9yovDcU6h\r
  33         YUm5Oz16RidiwuRXjsqivzlcv80LOMqkdiQ8R4XKRaVsjSmhOJLE+OiqGMhPOLUBgVWe\r
  34         u84g==\r
  35 X-Received: by 10.180.9.232 with SMTP id d8mr2903486wib.25.1390056784068;\r
  36         Sat, 18 Jan 2014 06:53:04 -0800 (PST)\r
  37 Received: from localhost (93-97-24-31.zone5.bethere.co.uk. [93.97.24.31])\r
  38         by mx.google.com with ESMTPSA id z1sm3008084wjq.19.2014.01.18.06.53.02\r
  39         for <multiple recipients>\r
  40         (version=TLSv1.2 cipher=RC4-SHA bits=128/128);\r
  41         Sat, 18 Jan 2014 06:53:03 -0800 (PST)\r
  42 From: Mark Walters <markwalters1009@gmail.com>\r
  43 To: notmuch@notmuchmail.org\r
  44 Subject: [PATCH] emacs: help: add link to info node\r
  45 Date: Sat, 18 Jan 2014 14:52:53 +0000\r
  46 Message-Id: <1390056773-14227-1-git-send-email-markwalters1009@gmail.com>\r
  47 X-Mailer: git-send-email 1.7.9.1\r
  48 In-Reply-To: <87y52dczwv.fsf@qmul.ac.uk>\r
  49 References: <87y52dczwv.fsf@qmul.ac.uk>\r
  50 X-BeenThere: notmuch@notmuchmail.org\r
  51 X-Mailman-Version: 2.1.13\r
  52 Precedence: list\r
  53 List-Id: "Use and development of the notmuch mail system."\r
  54         <notmuch.notmuchmail.org>\r
  55 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  56         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  57 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  58 List-Post: <mailto:notmuch@notmuchmail.org>\r
  59 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  60 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  61         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  62 X-List-Received-Date: Sat, 18 Jan 2014 14:53:13 -0000\r
  63 \r
  64 Add a link to the info documentation from the keybindings help page.\r
  65 ---\r
  66 \r
  67 For anyone who wants to try this out. (Only works in hello and search\r
  68 mode while there are no other info nodes).\r
  69 \r
  70 Best wishes\r
  71 \r
  72 Mark\r
  73 \r
  74 \r
  75 \r
  76  emacs/notmuch-lib.el |    8 ++++++++\r
  77  1 files changed, 8 insertions(+), 0 deletions(-)\r
  78 \r
  79 diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el\r
  80 index 2be409b..228680b 100644\r
  81 --- a/emacs/notmuch-lib.el\r
  82 +++ b/emacs/notmuch-lib.el\r
  83 @@ -331,10 +331,18 @@ its prefixed behavior by setting the 'notmuch-prefix-doc property\r
  84  of its command symbol."\r
  85    (interactive)\r
  86    (let* ((mode major-mode)\r
  87 +        (parent-mode-name mode-name)\r
  88 +        (info-node (concat "(notmuch-emacs)" mode-name))\r
  89          (doc (substitute-command-keys (notmuch-substitute-command-keys (documentation mode t)))))\r
  90      (with-current-buffer (generate-new-buffer "*notmuch-help*")\r
  91        (insert doc)\r
  92        (goto-char (point-min))\r
  93 +      (forward-line 2)\r
  94 +      (insert-button (concat "Info documentation for " parent-mode-name ".")\r
  95 +                    'action `(lambda (x) (info ,info-node)))\r
  96 +      (insert "\n\n")\r
  97 +      (goto-char (point-min))\r
  98 +      (forward-button 1)\r
  99        (set-buffer-modified-p nil)\r
 100        (view-buffer (current-buffer) 'kill-buffer-if-not-modified))))\r
 101  \r
 102 -- \r
 103 1.7.9.1\r
 104 \r