mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 18:32:51 +00:00
I started from the 78ec8e commit then cherry-picked and squashed commits that have been done in master since then, except the bad commits that overwrote the tree (in master) with the tree in maint. This commit also bumps the version number to 7.8.06. The only "fix" that was made between 78ec8e and the previous commit is e0072f which has been reported to break stuff.
106 lines
3.6 KiB
EmacsLisp
106 lines
3.6 KiB
EmacsLisp
;;; org-notmuch.el --- Support for links to notmuch messages from within Org-mode
|
||
|
||
;; Copyright (C) 2010-2012 Matthieu Lemerre
|
||
|
||
;; Author: Matthieu Lemerre <racin@free.fr>
|
||
;; Keywords: outlines, hypermedia, calendar, wp
|
||
;; Homepage: http://orgmode.org
|
||
|
||
;; This file is not part of GNU Emacs.
|
||
|
||
;; This file 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 2, or (at your option)
|
||
;; any later version.
|
||
|
||
;; This file 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 GNU Emacs; see the file COPYING. If not, write to
|
||
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
;; Boston, MA 02110-1301, USA.
|
||
|
||
;;; Commentary:
|
||
|
||
;; This file implements links to notmuch messages and "searchs". A
|
||
;; search is a query to be performed by notmuch; it is the equivalent
|
||
;; to folders in other mail clients. Similarly, mails are refered to
|
||
;; by a query, so both a link can refer to several mails.
|
||
|
||
;; Links have one the following form
|
||
;; notmuch:<search terms>
|
||
;; notmuch-search:<search terms>.
|
||
|
||
;; The first form open the queries in notmuch-show mode, whereas the
|
||
;; second link open it in notmuch-search mode. Note that queries are
|
||
;; performed at the time the link is opened, and the result may be
|
||
;; different from whet the link was stored.
|
||
|
||
;;; Code:
|
||
|
||
(require 'org)
|
||
|
||
;; Install the link type
|
||
(org-add-link-type "notmuch" 'org-notmuch-open)
|
||
(add-hook 'org-store-link-functions 'org-notmuch-store-link)
|
||
|
||
(defun org-notmuch-store-link ()
|
||
"Store a link to a notmuch search or message."
|
||
(when (eq major-mode 'notmuch-show-mode)
|
||
(let* ((message-id (notmuch-show-get-prop :id))
|
||
(subject (notmuch-show-get-subject))
|
||
(to (notmuch-show-get-to))
|
||
(from (notmuch-show-get-from))
|
||
desc link)
|
||
(org-store-link-props :type "notmuch" :from from :to to
|
||
:subject subject :message-id message-id)
|
||
(setq desc (org-email-link-description))
|
||
(setq link (org-make-link "notmuch:" "id:" message-id))
|
||
(org-add-link-props :link link :description desc)
|
||
link)))
|
||
|
||
(defun org-notmuch-open (path)
|
||
"Follow a notmuch message link specified by PATH."
|
||
(org-notmuch-follow-link path))
|
||
|
||
(defun org-notmuch-follow-link (search)
|
||
"Follow a notmuch link to SEARCH.
|
||
|
||
Can link to more than one message, if so all matching messages are shown."
|
||
(require 'notmuch)
|
||
(notmuch-show (org-link-unescape search)))
|
||
|
||
|
||
|
||
|
||
(org-add-link-type "notmuch-search" 'org-notmuch-search-open)
|
||
(add-hook 'org-store-link-functions 'org-notmuch-search-store-link)
|
||
|
||
(defun org-notmuch-search-store-link ()
|
||
"Store a link to a notmuch search or message."
|
||
(when (eq major-mode 'notmuch-search-mode)
|
||
(let ((link (org-make-link "notmuch-search:"
|
||
(org-link-escape notmuch-search-query-string)))
|
||
(desc (concat "Notmuch search: " notmuch-search-query-string)))
|
||
(org-store-link-props :type "notmuch-search"
|
||
:link link
|
||
:description desc)
|
||
link)))
|
||
|
||
(defun org-notmuch-search-open (path)
|
||
"Follow a notmuch message link specified by PATH."
|
||
(message path)
|
||
(org-notmuch-search-follow-link path))
|
||
|
||
(defun org-notmuch-search-follow-link (search)
|
||
"Follow a notmuch link by displaying SEARCH in notmuch-search mode."
|
||
(require 'notmuch)
|
||
(notmuch-search (org-link-unescape search)))
|
||
|
||
(provide 'org-notmuch)
|
||
|
||
;;; org-notmuch.el ends here
|