Updated CONTRIB/README to reflect the content of subdirectories.
Removed org-export-freemind from CONTRIB/lisp/.
This commit is contained in:
Bastien Guerry
parent
7c205a2413
commit
d44bb1d7a3
|
|
@ -5,13 +5,35 @@ package. But the git repository for Org-mode is glad to provide useful way
|
||||||
to distribute and develop them as long as they are distributed under a free
|
to distribute and develop them as long as they are distributed under a free
|
||||||
software license.
|
software license.
|
||||||
|
|
||||||
Please put your contribution in one of these three directories:
|
Please put your contribution in one of these three directories: lisp,
|
||||||
|
package, scripts.
|
||||||
|
|
||||||
LISP
|
LISP (emacs-lisp code)
|
||||||
contains emacs-lisp code
|
======================
|
||||||
|
|
||||||
|
This directory contains emacs-lisp code.
|
||||||
|
|
||||||
|
org-annotate-file.el --- Annotate a file with org syntax
|
||||||
|
org2rem.el --- Convert org appointments into reminders
|
||||||
|
org-bibtex.el --- Org links to BibTeX entries
|
||||||
|
org-depend.el --- TODO dependencies for Org-mode
|
||||||
|
org-elisp-symbol.el --- Org links to emacs-lisp symbols
|
||||||
|
org-expiry.el --- expiry mechanism for Org entries
|
||||||
|
org-irc.el --- Store links to IRC sessions.
|
||||||
|
org-iswitchb.el --- use iswitchb to select Org buffer
|
||||||
|
org-man.el --- Support for links to manpages in Org-mode
|
||||||
|
org-panel.el --- Simple routines for us with bad memory
|
||||||
|
org-registry.el --- a registry for Org links
|
||||||
|
org-toc.el --- Table of contents for Org-mode buffer
|
||||||
|
org-mairix.el --- Hook mairix search into Org for different MUAs
|
||||||
|
|
||||||
SCRIPTS
|
|
||||||
contains scripts (shell, bash, python, perl, makefiles, etc.)
|
|
||||||
|
|
||||||
PACKAGE
|
PACKAGE
|
||||||
contains code requiring more than one file
|
=======
|
||||||
|
|
||||||
|
org-export-freemind --- exporting utilities from org-mode to freemind
|
||||||
|
|
||||||
|
|
||||||
|
SCRIPTS (shell, bash, etc.)
|
||||||
|
===========================
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,196 +0,0 @@
|
||||||
;;; org-export-freemind - exporting utilities from org-mode to freemind
|
|
||||||
|
|
||||||
;; Copyright (C) 2007 Marco Vezzoli
|
|
||||||
|
|
||||||
;; Author: marco vezzoli <noise.otn@alice.it>
|
|
||||||
;; Created:
|
|
||||||
;; Version: 0.1.0
|
|
||||||
;; Keywords: org-mode export freemind
|
|
||||||
;; Commentary:
|
|
||||||
|
|
||||||
;; This file is *not* part of GNU Emacs.
|
|
||||||
;; 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 2 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, write to the Free
|
|
||||||
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
||||||
;; Boston, MA 02110-1301 USA
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
(defgroup org-export-freemind ()
|
|
||||||
"This group let you customize your own export into freemind format"
|
|
||||||
:group 'org-export)
|
|
||||||
|
|
||||||
(defcustom org-freemind-icons-alist
|
|
||||||
'(("TODO" . "button_cancel")
|
|
||||||
("SPEC" . "pencil")
|
|
||||||
("WIP" . "pencil")
|
|
||||||
("TEST" . "xmag")
|
|
||||||
("DONE" . "button_ok"))
|
|
||||||
"change the icon according to a regular expression"
|
|
||||||
:type '(alist :key-type regexp
|
|
||||||
:value-type string)
|
|
||||||
:group 'org-export-freemind)
|
|
||||||
|
|
||||||
(defcustom org-freemind-cloud-alist
|
|
||||||
'((":PROJECT:" . "ccffcc")
|
|
||||||
(":MEETING:" . "ccccff"))
|
|
||||||
"create a cloud with the defined color if title match a regexp"
|
|
||||||
:type '(alist :key-type regexp :value-type string)
|
|
||||||
:group 'org-export-freemind)
|
|
||||||
|
|
||||||
(defun org-export-as-freemind (&optional buffer outbuffer)
|
|
||||||
"Export the org buffer as FreeMind XML.
|
|
||||||
"
|
|
||||||
(interactive (list (current-buffer) ()))
|
|
||||||
;; A quickie abstraction
|
|
||||||
|
|
||||||
;; Output everything as FreeMind
|
|
||||||
(with-current-buffer (get-buffer buffer)
|
|
||||||
(goto-char (point-min)) ;; CD: beginning-of-buffer is not allowed.
|
|
||||||
(let* ((opt-plist (org-combine-plists (org-default-export-plist)
|
|
||||||
(org-infile-export-plist)))
|
|
||||||
(title (or (plist-get opt-plist :title)
|
|
||||||
(file-name-sans-extension
|
|
||||||
(file-name-nondirectory buffer-file-name))))
|
|
||||||
(filename (concat (file-name-as-directory
|
|
||||||
(org-export-directory :xoxo opt-plist))
|
|
||||||
title
|
|
||||||
".mm"))
|
|
||||||
(out (if (bufferp outbuffer)
|
|
||||||
outbuffer
|
|
||||||
(find-file-noselect filename)))
|
|
||||||
(last-level 0)
|
|
||||||
(hanging-li nil))
|
|
||||||
|
|
||||||
;; Check the output buffer is empty.
|
|
||||||
;; Kick off the output
|
|
||||||
(unless (bufferp outbuffer)
|
|
||||||
(progn
|
|
||||||
(with-current-buffer out (erase-buffer))
|
|
||||||
(org-export-as-xoxo-insert-into out "<map version='0.8.0'>\n")))
|
|
||||||
(org-export-as-xoxo-insert-into out
|
|
||||||
"<node TEXT='" title "'"
|
|
||||||
(if (bufferp outbuffer)
|
|
||||||
" FOLDED='true'" "")
|
|
||||||
">\n")
|
|
||||||
(if (bufferp outbuffer)
|
|
||||||
(org-export-as-xoxo-insert-into out "<cloud COLOR='#ccffff'/>\n"))
|
|
||||||
(while (re-search-forward "^\\(\\*+\\) \\(.+\\)" (point-max) 't)
|
|
||||||
(let* ((hd (match-string-no-properties 1))
|
|
||||||
(level (length hd))
|
|
||||||
(text (match-string-no-properties 2)))
|
|
||||||
(save-excursion
|
|
||||||
(goto-char (match-end 0))
|
|
||||||
(catch 'loop
|
|
||||||
(while 't
|
|
||||||
(forward-line)
|
|
||||||
(if (looking-at "^[ \t]\\(.*\\)")
|
|
||||||
()
|
|
||||||
(throw 'loop "")))))
|
|
||||||
|
|
||||||
;; Handle level rendering
|
|
||||||
(cond
|
|
||||||
((> level last-level)
|
|
||||||
(let ((rept (- level last-level 1))
|
|
||||||
(value ()))
|
|
||||||
(dotimes (i rept value)
|
|
||||||
(org-export-as-xoxo-insert-into out "<node FOLDED='false' TEXT='.'>\n")))
|
|
||||||
(org-export-as-xoxo-insert-into out "\n<node FOLDED='true' TEXT='"))
|
|
||||||
|
|
||||||
((< level last-level)
|
|
||||||
(let ((rept (+ (- last-level level) 1))
|
|
||||||
(value ()))
|
|
||||||
(dotimes (i rept value)
|
|
||||||
(org-export-as-xoxo-insert-into out "</node>\n")))
|
|
||||||
(org-export-as-xoxo-insert-into out "<node FOLDED='true' TEXT='"))
|
|
||||||
|
|
||||||
((equal level last-level)
|
|
||||||
(org-export-as-xoxo-insert-into out "</node>\n<node FOLDED='true' TEXT='")))
|
|
||||||
|
|
||||||
(setq last-level level)
|
|
||||||
|
|
||||||
;; And output the new node
|
|
||||||
(let* ((heading
|
|
||||||
(concat "<html><h3>"
|
|
||||||
(replace-regexp-in-string
|
|
||||||
":.*:"
|
|
||||||
(lambda (x)
|
|
||||||
(concat "<font color='red'>" x "</font>"))
|
|
||||||
text)
|
|
||||||
"</h3></html>"))
|
|
||||||
(html-quoted-heading (org-html-expand heading))
|
|
||||||
(exp-quote-heading (replace-regexp-in-string "'" """ html-quoted-heading)))
|
|
||||||
(org-export-as-xoxo-insert-into out exp-quote-heading "'>\n"))
|
|
||||||
|
|
||||||
(dolist (rule org-freemind-icons-alist)
|
|
||||||
(if (string-match (car rule) text)
|
|
||||||
(org-export-as-xoxo-insert-into out "<icon BUILTIN='" (cdr rule) "'/>\n")))
|
|
||||||
(dolist (rule org-freemind-cloud-alist)
|
|
||||||
(when (string-match (car rule) text)
|
|
||||||
(progn
|
|
||||||
(org-export-as-xoxo-insert-into out
|
|
||||||
"<cloud COLOR='#" (cdr rule) "'/>\n")
|
|
||||||
(message (cdr rule))
|
|
||||||
)))
|
|
||||||
))
|
|
||||||
|
|
||||||
;; Finally finish off the map
|
|
||||||
(let ((value ()))
|
|
||||||
(org-export-as-xoxo-insert-into out "\n")
|
|
||||||
(dotimes (i last-level value)
|
|
||||||
(org-export-as-xoxo-insert-into out "</node>\n")))
|
|
||||||
(org-export-as-xoxo-insert-into out "</node>\n")
|
|
||||||
|
|
||||||
;; Finish the buffer off and clean it up.
|
|
||||||
(unless (bufferp outbuffer)
|
|
||||||
(progn
|
|
||||||
(org-export-as-xoxo-insert-into out "</map>\n")
|
|
||||||
(switch-to-buffer-other-window out)
|
|
||||||
(indent-region (point-min) (point-max) nil)
|
|
||||||
(save-buffer)
|
|
||||||
(goto-char (point-min))
|
|
||||||
)))))
|
|
||||||
|
|
||||||
(defun org-export-as-freemind-agenda-files ()
|
|
||||||
"Export all agenda files into Freemind format
|
|
||||||
each files is saved with .mm extension
|
|
||||||
into the XOXO publishing directory"
|
|
||||||
(interactive)
|
|
||||||
(dolist (file org-agenda-files)
|
|
||||||
(org-check-agenda-file file)
|
|
||||||
(set-buffer (org-get-agenda-file-buffer file))
|
|
||||||
(org-export-as-freemind (current-buffer))
|
|
||||||
))
|
|
||||||
|
|
||||||
(defun org-export-as-freemind-agenda-files-one-file (filename)
|
|
||||||
"Export all agenda files into FreeMind format.
|
|
||||||
All results are grouped in a single .mm file"
|
|
||||||
(interactive "FFile to save: ")
|
|
||||||
(let* ((title (file-name-sans-extension
|
|
||||||
(file-name-nondirectory filename)))
|
|
||||||
(out (find-file-noselect filename)))
|
|
||||||
(with-current-buffer out (erase-buffer))
|
|
||||||
(org-export-as-xoxo-insert-into out "<map version='0.8.0'><node TEXT='" title "'>\n")
|
|
||||||
(dolist (file org-agenda-files)
|
|
||||||
(org-check-agenda-file file)
|
|
||||||
(set-buffer (org-get-agenda-file-buffer file))
|
|
||||||
(org-export-as-freemind (current-buffer) out)
|
|
||||||
)
|
|
||||||
(org-export-as-xoxo-insert-into out "</node></map>\n")
|
|
||||||
(switch-to-buffer-other-window out)
|
|
||||||
(indent-region (point-min) (point-max) nil)
|
|
||||||
(save-buffer)
|
|
||||||
(goto-char (point-min))
|
|
||||||
))
|
|
||||||
|
|
||||||
(define-key org-mode-map "\C-c\C-xf" 'org-export-as-freemind)
|
|
||||||
;;; org-export-freemind ends here
|
|
||||||
|
|
@ -1,153 +1,232 @@
|
||||||
;;; org-mairix.el ---
|
;;; org-mairix.el - Support for hooking mairix search into Org for different MUAs
|
||||||
|
|
||||||
;; Copyright 2007 Bastien Guerry
|
|
||||||
;;
|
;;
|
||||||
;; Author: Bastien.Guerry@ens.fr
|
;; Copyright (C) 2007 Georg C. F. Greve
|
||||||
;; Version: $Id: org-mairix.el,v 0.0 2007/08/11 17:23:40 guerry Exp $
|
;;
|
||||||
;; Keywords:
|
;; Author: Georg C. F. Greve <greve at fsfeurope dot org>
|
||||||
;; X-URL: not distributed yet
|
;; Keywords: outlines, hypermedia, calendar, wp, email, mairix
|
||||||
|
;; Purpose: Integrate mairix email searching into Org mode
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; See http://orgmode.org and http://www.rpcurnow.force9.co.uk/mairix/
|
||||||
|
;; Version: 0.4
|
||||||
|
;;
|
||||||
|
;; 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
|
;; it under the terms of the GNU General Public License as published by
|
||||||
;; the Free Software Foundation; either version 2, or (at your option)
|
;; the Free Software Foundation; either version 3, or (at your option)
|
||||||
;; any later version.
|
;; any later version.
|
||||||
;;
|
|
||||||
;; This program is distributed in the hope that it will be useful,
|
;; It is distributed in the hope that it will be useful, but WITHOUT
|
||||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
||||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
||||||
;; GNU General Public License for more details.
|
;; License for more details.
|
||||||
;;
|
|
||||||
;; You should have received a copy of the GNU General Public License
|
;; You should have received a copy of the GNU General Public License
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||||
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||||
|
;; Boston, MA 02110-1301, USA.
|
||||||
;;; Commentary:
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; USAGE NOTE
|
||||||
;; Code and ideas from Carsten Dominik, Adam Spiers and Georg C. F. Greve.
|
;;
|
||||||
|
;; You will need to configure mairix first, which involves setting up your
|
||||||
;; Put this file into your load-path and the following into your ~/.emacs:
|
;; .mairixrc in your home directory. Once it is working, you should set up
|
||||||
;; (require 'org-mairix)
|
;; your way to display results in your favorite way -- usually a MUA, in my
|
||||||
|
;; case gnus.
|
||||||
;;; Code:
|
;;
|
||||||
|
;; After both steps are done, all you should need to hook mairix, org
|
||||||
|
;; and your MUA together is to do (require 'org-mairix) in your
|
||||||
|
;; startup file. Everything can then be configured normally through
|
||||||
|
;; Emacs customisation.
|
||||||
|
;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'org)
|
(require 'org)
|
||||||
|
|
||||||
|
;;; The custom variables
|
||||||
|
|
||||||
(defgroup org-mairix nil
|
(defgroup org-mairix nil
|
||||||
"Mairix link support for Org."
|
"Mairix support/integration in org."
|
||||||
:tag "Org Mairix"
|
:tag "Org Mairix"
|
||||||
:group 'org)
|
:group 'org)
|
||||||
|
|
||||||
(defcustom mairix-results-group "nnmaildir+index:mfolder"
|
(defcustom org-mairix-threaded-links t
|
||||||
"Gnus groupe where to list mairix search results."
|
"Should new links be created as threaded links?
|
||||||
|
If t, links will be stored as threaded searches.
|
||||||
|
If nil, links will be stored as non-threaded searches."
|
||||||
:group 'org-mairix
|
:group 'org-mairix
|
||||||
:type '(string))
|
:type 'boolean)
|
||||||
|
|
||||||
(defun org-add-link-type (type &optional follow publish)
|
(defcustom org-mairix-augmented-links nil
|
||||||
"Add TYPE to the list of `org-link-types'.
|
"Should new links be created as augmenting searches?
|
||||||
Re-compute all regular expressions depending on `org-link-types'."
|
If t, links will be stored as augmenting searches.
|
||||||
(add-to-list 'org-link-types type t)
|
If nil, links will be stored as normal searches.
|
||||||
(setq org-link-re-with-space
|
|
||||||
(concat
|
|
||||||
"<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
|
|
||||||
"\\([^" org-non-link-chars " ]"
|
|
||||||
"[^" org-non-link-chars "]*"
|
|
||||||
"[^" org-non-link-chars " ]\\)>?"))
|
|
||||||
(setq org-link-re-with-space2
|
|
||||||
(concat
|
|
||||||
"<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
|
|
||||||
"\\([^" org-non-link-chars " ]"
|
|
||||||
"[^]\t\n\r]*"
|
|
||||||
"[^" org-non-link-chars " ]\\)>?"))
|
|
||||||
(setq org-angle-link-re
|
|
||||||
(concat
|
|
||||||
"<\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
|
|
||||||
"\\([^" org-non-link-chars " ]"
|
|
||||||
"[^" org-non-link-chars "]*"
|
|
||||||
"\\)>"))
|
|
||||||
(setq org-plain-link-re
|
|
||||||
(concat
|
|
||||||
"\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
|
|
||||||
"\\([^]\t\n\r<>,;() ]+\\)"))
|
|
||||||
(setq org-bracket-link-analytic-regexp
|
|
||||||
(concat
|
|
||||||
"\\[\\["
|
|
||||||
"\\(\\(" (mapconcat 'identity org-link-types "\\|") "\\):\\)?"
|
|
||||||
"\\([^]]+\\)"
|
|
||||||
"\\]"
|
|
||||||
"\\(\\[" "\\([^]]+\\)" "\\]\\)?"
|
|
||||||
"\\]"))
|
|
||||||
(add-hook 'org-follow-link-functions follow)
|
|
||||||
(add-hook 'org-publish-link-functions publish))
|
|
||||||
|
|
||||||
(defun org-mairix-follow-link (path)
|
Attention: When activating this option, you will need
|
||||||
"Follow a Mairix link."
|
to remove old articles from your mairix results group
|
||||||
(require 'gnus)
|
in some other way, mairix will not do it for you."
|
||||||
(funcall (cdr (assq 'gnus org-link-frame-setup)))
|
:group 'org-mairix
|
||||||
(if gnus-other-frame-object (select-frame gnus-other-frame-object))
|
:type 'boolean)
|
||||||
(mairix-search path))
|
|
||||||
|
|
||||||
(defun org-mairix-publish-link (path)
|
(defcustom org-mairix-display-hook 'org-mairix-gnus-display-results
|
||||||
"Convert mairix PATH into a (dummy) raw link."
|
"Hook to call to display the results of a successful mairix search.
|
||||||
;; FIXME: should we have a format argument for HTML/LaTeX publishing?
|
Defaults to Gnus, feel free to add your own MUAs or methods."
|
||||||
(if (string-match org-bracket-link-analytic-regexp path)
|
:group 'org-mairix
|
||||||
(match-string 5 path) path))
|
:type 'hook)
|
||||||
|
|
||||||
(defun org-mairix-store-link (path)
|
(defcustom org-mairix-executable "mairix"
|
||||||
"Store a mairix link."
|
"The mairix executable to call. If your paths are set up
|
||||||
|
correctly, you should not need to change this."
|
||||||
|
:group 'org-mairix
|
||||||
|
:type 'string)
|
||||||
|
|
||||||
|
(defgroup org-mairix-gnus nil
|
||||||
|
"Use gnus for mairix support in org."
|
||||||
|
:tag "Org Mairix Gnus"
|
||||||
|
:group 'org-mairix)
|
||||||
|
|
||||||
|
(defcustom org-mairix-gnus-results-group "nnmaildir:mairix"
|
||||||
|
"The group that is configured to hold the mairix search results,
|
||||||
|
which needs to be setup independently of the org-mairix integration,
|
||||||
|
along with general mairix configuration."
|
||||||
|
:group 'org-mairix-gnus
|
||||||
|
:type 'string)
|
||||||
|
|
||||||
|
(defcustom org-mairix-gnus-select-display-group-function 'org-mairix-gnus-select-display-group-function-gg
|
||||||
|
"Hook to call to select the group that contains the matching articles.
|
||||||
|
We should not need this, it is owed to a problem of gnus that people were
|
||||||
|
not yet able to figure out, see
|
||||||
|
http://article.gmane.org/gmane.emacs.gnus.general/65248
|
||||||
|
http://article.gmane.org/gmane.emacs.gnus.general/65265
|
||||||
|
http://article.gmane.org/gmane.emacs.gnus.user/9596
|
||||||
|
for reference.
|
||||||
|
|
||||||
|
It seems gnus needs a 'forget/ignore everything you think you
|
||||||
|
know about that group' function. Volunteers?"
|
||||||
|
:group 'org-mairix-gnus
|
||||||
|
:type 'hook)
|
||||||
|
|
||||||
|
|
||||||
|
;;; The hooks to integrate mairix into org
|
||||||
|
|
||||||
|
(org-add-link-type "mairix" 'org-mairix-open)
|
||||||
|
(add-hook 'org-store-link-functions 'org-mairix-store-link)
|
||||||
|
|
||||||
|
|
||||||
|
;;; Generic org-mairix functions
|
||||||
|
|
||||||
|
(defun org-mairix-store-link ()
|
||||||
|
"Store a link to the current message as a Mairix search for its
|
||||||
|
Message ID."
|
||||||
|
|
||||||
|
;; gnus integration
|
||||||
(when (memq major-mode '(gnus-summary-mode gnus-article-mode))
|
(when (memq major-mode '(gnus-summary-mode gnus-article-mode))
|
||||||
(let* ((group gnus-newsgroup-name)
|
(and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
|
||||||
(article (gnus-summary-article-number))
|
(let* ((article (gnus-summary-article-number))
|
||||||
(header (gnus-summary-article-header article))
|
(header (gnus-summary-article-header article))
|
||||||
(from (mail-header-from header))
|
(from (mail-header-from header))
|
||||||
(message-id (mail-header-id header))
|
(message-id (mail-header-id header))
|
||||||
(date (mail-header-date header))
|
|
||||||
(subject (gnus-summary-subject-string)))
|
(subject (gnus-summary-subject-string)))
|
||||||
(org-store-link-props :type "mairix"
|
(org-store-link-props :type "mairix" :from from :subject subject
|
||||||
:from from
|
:message-id message-id)
|
||||||
:subject subject
|
(setq cpltxt (org-email-link-description))
|
||||||
:message-id message-id
|
(org-store-link-props :link (concat "mairix:"
|
||||||
:group group)
|
(if org-mairix-threaded-links "t:")
|
||||||
;; FIXME: what about cpltxt and link vars we used so far?
|
(if org-mairix-augmented-links "a:")
|
||||||
;; (setq cpltxt (org-email-link-description))
|
"@@" (org-remove-angle-brackets message-id))
|
||||||
;; (setq link (org-make-link "mairix:m:"
|
:description cpltxt))))
|
||||||
;; (substring message-id 1 -1))))))
|
|
||||||
(org-make-link "mairix:m:" (substring message-id 1 -1)))))
|
|
||||||
|
|
||||||
;; mairix internals
|
(defun org-mairix-message-send-and-exit-with-link ()
|
||||||
(defun mairix-result-evaluate (string)
|
"Function that can be assigned as an alternative sending function,
|
||||||
"Display search results of previous mairix process."
|
it sends the message and then stores a mairix link to it before burying
|
||||||
(let ((mmatches (string-to-number (substring string 7 -8))))
|
the buffer just like 'message-send-and-exit' does."
|
||||||
(if (eq mmatches 0)
|
(interactive)
|
||||||
(message "Mairix returned no matches, sorry.")
|
(message-send)
|
||||||
(message "Mairix returned %d matches." mmatches)
|
(let* ((message-id (message-fetch-field "Message-Id"))
|
||||||
(gnus-group-quick-select-group 0 mairix-results-group)
|
(subject (message-fetch-field "Subject"))
|
||||||
(gnus-summary-reselect-current-group t t))))
|
(link (concat "mairix:"
|
||||||
|
(if org-mairix-threaded-links "t:")
|
||||||
|
(if org-mairix-augmented-links "a:")
|
||||||
|
"@@" (org-remove-angle-brackets message-id)))
|
||||||
|
(desc (concat "Email: '" subject "'")))
|
||||||
|
(setq org-stored-links
|
||||||
|
(cons (list link desc) org-stored-links)))
|
||||||
|
(message-bury (current-buffer)))
|
||||||
|
|
||||||
|
(defun org-mairix-open (path)
|
||||||
|
"Function to open mairix link.
|
||||||
|
|
||||||
|
We first need to split it into its individual parts, and then
|
||||||
|
extract the message-id to be passed on to the display function
|
||||||
|
before call mairix, evaluate the number of matches returned, and
|
||||||
|
make sure to only call display of mairix succeeded in matching."
|
||||||
|
(let* ((cmdline org-mairix-executable))
|
||||||
|
(if (string< "t:" path)
|
||||||
|
(progn (setq path (substring path 2 nil))
|
||||||
|
(setq cmdline (concat cmdline " --threads"))))
|
||||||
|
(if (string< "a:" path)
|
||||||
|
(progn (setq path (substring path 2 nil))
|
||||||
|
(setq cmdline (concat cmdline " --augment"))))
|
||||||
|
(let* ((message-id (substring path 2 nil)))
|
||||||
|
(setq cmdline (concat cmdline " m:" message-id))
|
||||||
|
|
||||||
|
(print cmdline)
|
||||||
|
|
||||||
|
(setq retval (shell-command-to-string
|
||||||
|
(concat cmdline " m:" message-id)))
|
||||||
|
(string-match "\[0-9\]+" retval)
|
||||||
|
(setq matches (string-to-number (match-string 0 retval)))
|
||||||
|
(if (eq matches 0) (message "Link failed: no matches, sorry")
|
||||||
|
(message "Link returned %d matches" matches)
|
||||||
|
(run-hook-with-args 'org-mairix-display-hook message-id)))))
|
||||||
|
|
||||||
|
|
||||||
(org-add-link-type "mairix"
|
;;; Functions necessary for gnus integration
|
||||||
'org-mairix-follow-link
|
|
||||||
'org-mairix-publish-link)
|
|
||||||
|
|
||||||
(add-hook 'org-store-link-functions 'org-mairix-store-link)
|
(defun org-mairix-gnus-display-results (message-id)
|
||||||
|
"Display results of mairix search in Gnus.
|
||||||
|
|
||||||
(defun mairix-search (string)
|
Note: This does not work as cleanly as I would like it to. The
|
||||||
"Uses mairix to search through my mail, replacing current search results."
|
problem being that Gnus should simply reread the group cleanly,
|
||||||
(interactive "MMairix search: ")
|
without remembering anything. At the moment it seems to be unable
|
||||||
(mairix-result-evaluate
|
to do that -- so you're likely to see zombies floating around.
|
||||||
(shell-command-to-string (concat "mairix " string))))
|
|
||||||
|
If you can improve this, please do!"
|
||||||
|
(require 'gnus)
|
||||||
|
(require 'gnus-sum)
|
||||||
|
;; FIXME: (bzg/gg) We might need to make sure gnus is running here,
|
||||||
|
;; and to start it in case it isn't running already. Does
|
||||||
|
;; anyone know a function to do that? It seems main org mode
|
||||||
|
;; does not do this, either.
|
||||||
|
(funcall (cdr (assq 'gnus org-link-frame-setup)))
|
||||||
|
(if gnus-other-frame-object (select-frame gnus-other-frame-object))
|
||||||
|
|
||||||
|
;; FIXME: This is horribly broken. Please see
|
||||||
|
;; http://article.gmane.org/gmane.emacs.gnus.general/65248
|
||||||
|
;; http://article.gmane.org/gmane.emacs.gnus.general/65265
|
||||||
|
;; http://article.gmane.org/gmane.emacs.gnus.user/9596
|
||||||
|
;; for reference.
|
||||||
|
;;
|
||||||
|
;; It seems gnus needs a "forget/ignore everything you think you
|
||||||
|
;; know about that group" function. Volunteers?
|
||||||
|
;;
|
||||||
|
;; For now different methods seem to work differently well for
|
||||||
|
;; different people. So we're playing hook-selection here to make
|
||||||
|
;; it easy to play around until we found a proper solution.
|
||||||
|
(run-hook-with-args 'org-mairix-gnus-select-display-group-function)
|
||||||
|
(gnus-summary-select-article
|
||||||
|
nil t t (car (gnus-find-matching-articles "message-id" message-id))))
|
||||||
|
|
||||||
(provide 'org-mairix)
|
(provide 'org-mairix)
|
||||||
(eval-when-compile
|
|
||||||
(require 'cl))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;;;##########################################################################
|
|
||||||
;;;; User Options, Variables
|
|
||||||
;;;;##########################################################################
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(defun org-mairix-gnus-select-display-group-function-gg ()
|
||||||
|
"Georg's hack to select a group that gnus (falsely) believes to be
|
||||||
|
empty to then call rebuilding of the summary. It leaves zombies of
|
||||||
|
old searches around, though."
|
||||||
|
(gnus-group-quick-select-group 0 org-mairix-gnus-results-group)
|
||||||
|
(gnus-group-clear-data)
|
||||||
|
(gnus-summary-reselect-current-group t t))
|
||||||
|
|
||||||
|
(defun org-mairix-gnus-select-display-group-function-bzg ()
|
||||||
|
"This is the classic way the org mode is using, and it seems to be
|
||||||
|
using better for Bastien, so it may work for you."
|
||||||
|
(gnus-group-clear-data org-mairix-gnus-results-group)
|
||||||
|
(gnus-group-read-group t nil org-mairix-gnus-results-group))
|
||||||
|
|
||||||
;;; org-mairix.el ends here
|
;;; org-mairix.el ends here
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue