* [patch] Extended link capabilities to Wanderlust messages
@ 2010-04-11 8:48 David Maus
2010-04-13 5:57 ` Carsten Dominik
0 siblings, 1 reply; 4+ messages in thread
From: David Maus @ 2010-04-11 8:48 UTC (permalink / raw)
To: Org Mode
[-- Attachment #1.1.1: Type: text/plain, Size: 1363 bytes --]
Hello all,
Attached patch extendes Org mode's capabilities to store and open
links to Wanderlust messages. The gist of the extended capabilities:
- Remove filter conditions for messages in a filter folder
If customization variable `org-wl-link-remove-filter' is non-nil,
filter conditions are stripped of the folder name.
- Create web links for messages in a Shimbun folder
If customization variable `org-wl-shimbun-prefer-web-links' is
non-nil, calling `org-store-link' on a Shimbun message creates a
web link to the messages source, indicated in the Xref: header
field.
- Create web links for messages in a nntp folder
If customization variable `org-wl-nntp-prefer-web-links' is
non-nil, calling `org-store-link' on a nntp message creates a web
link either to gmane.org if the group can be read trough gmane or
to googlegroups otherwise. In both cases the message-id is used as
reference.
- Open links in namazu search folder
If `org-wl-open' is called with one prefix, WL opens a namazu
search folder for message's message-id using
`org-wl-namazu-default-index' as search index. If this variable is
nil or `org-wl-open' is called with two prefixes Org asks for the
search index to use.
Regards,
-- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de
[-- Attachment #1.1.2: org-wl-extended.diff --]
[-- Type: application/octet-stream, Size: 7756 bytes --]
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d13ebc..ed5baa6 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,26 @@
+2010-04-10 David Maus <dmaus@ictsoc.de>
+
+ * org-wl.el (org-wl-link-remove-filter): New customizable
+ variable. If non-nil, filter conditions are stripped when storing
+ link to message in filter folder.
+ (org-wl-shimbun-prefer-web-links): New customizable variable. If
+ non-nil, links to shimbun messages are created as web links to
+ message source.
+ (org-wl-nntp-prefer-web-links): New customizable variable. If
+ non-nil, links to nntp message are created as web links to gmane
+ or googlegroups.
+ (org-wl-namazu-default-index): New customizable variable.
+ Directory of namazu search index that should be used as default
+ when opening a link in a search folder.
+ (org-wl-folder-types): New constant. Wanderlust folder type
+ indicators.
+ (org-wl-folder-type): New function. Return type of Wanderlust
+ folder.
+ (org-wl-store-link): Create web links for shimbun or nntp messages
+ and strip filter conditions depending on customizable variables.
+ (org-wl-open): Open namazu search folder for message when called
+ with prefix.
+
2010-04-09 Carsten Dominik <carsten.dominik@gmail.com>
* org-mobile.el (org-mobile-check-setup): Make sure that there is
diff --git a/lisp/org-wl.el b/lisp/org-wl.el
index 3e8b9ec..b4dd408 100644
--- a/lisp/org-wl.el
+++ b/lisp/org-wl.el
@@ -4,6 +4,7 @@
;; Free Software Foundation, Inc.
;; Author: Tokuya Kameshima <kames at fa2 dot so-net dot ne dot jp>
+;; David Maus <dmaus at ictsoc dot de>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://orgmode.org
;; Version: 6.35g
@@ -40,9 +41,31 @@
:group 'org-link)
(defcustom org-wl-link-to-refile-destination t
- "Create a link to the refile destination if the message is marked as refile."
- :group 'org-wl
- :type 'boolean)
+ "Create a link to the refile destination if the message is marked as refile."
+ :group 'org-wl
+ :type 'boolean)
+
+(defcustom org-wl-link-remove-filter nil
+ "Remove filter condition if message is filter folder."
+ :group 'org-wl
+ :type 'boolean)
+
+(defcustom org-wl-shimbun-prefer-web-links nil
+ "If non-nil create web links for shimbun messages."
+ :group 'org-wl
+ :type 'boolean)
+
+(defcustom org-wl-nntp-prefer-web-links nil
+ "If non-nil create web links for nntp messages.
+When folder name contains string \"gmane\" link to gmane,
+googlegroups otherwise."
+ :type 'boolean
+ :group 'org-wl)
+
+(defcustom org-wl-namazu-default-index nil
+ "Default namazu search index."
+ :type 'directory
+ :group 'org-wl)
;; Declare external functions and variables
(declare-function elmo-folder-exists-p "ext:elmo" (folder) t)
@@ -67,11 +90,37 @@
(defvar wl-summary-buffer-elmo-folder)
(defvar wl-summary-buffer-folder-name)
+(defconst org-wl-folder-types
+ '(("%" . imap) ("-" . nntp) ("+" . mh) ("=" . spool)
+ ("$" . archive) ("&" . pop) ("@" . shimbun) ("[" . search)
+ ("*" . multi) ("/" . filter) ("|" . pipe) ("'" . internal))
+ "List of folder indicators. See Wanderlust manual, section 3.")
+
;; Install the link type
(org-add-link-type "wl" 'org-wl-open)
(add-hook 'org-store-link-functions 'org-wl-store-link)
;; Implementation
+(defun org-wl-folder-type (folder)
+ "Return symbol that indicicates the type of FOLDER.
+FOLDER is the wanderlust folder name. The first character of the
+folder name determines the the folder type."
+ (let* ((indicator (substring folder 0 1))
+ (type (cdr (assoc indicator org-wl-folder-types))))
+ ;; maybe access or file folder
+ (when (not type)
+ (setq type
+ (cond
+ ((and (>= (length folder) 5)
+ (string= (substring folder 0 5) "file:"))
+ 'file)
+ ((and (>= (length folder) 7)
+ (string= (substring folder 0 7) "access:"))
+ 'access)
+ (t
+ nil))))
+ type))
+
(defun org-wl-store-link ()
"Store a link to a WL folder or message."
(when (eq major-mode 'wl-summary-mode)
@@ -83,6 +132,7 @@
(equal (nth 1 mark-info) "o")) ; marked as refile
(nth 2 mark-info)
wl-summary-buffer-folder-name))
+ (folder-type (org-wl-folder-type folder-name))
(message-id (elmo-message-field wl-summary-buffer-elmo-folder
msgnum 'message-id))
(wl-message-entity
@@ -101,31 +151,70 @@
(if (listp to-field)
(car to-field)
to-field)))
+ (xref (let ((xref-field (elmo-message-entity-field wl-message-entity
+ 'xref)))
+ (if (listp xref-field)
+ (car xref-field)
+ xref-field)))
(subject (let (wl-thr-indent-string wl-parent-message-entity)
(wl-summary-line-subject)))
desc link)
+
;; remove text properties of subject string to avoid possible bug
;; when formatting the subject
+ ;; (Emacs bug #5306, fixed)
(set-text-properties 0 (length subject) nil subject)
- (org-store-link-props :type "wl" :from from :to to
- :subject subject :message-id message-id)
- (setq message-id (org-remove-angle-brackets message-id))
- (setq desc (org-email-link-description))
- (setq link (org-make-link "wl:" folder-name
- "#" message-id))
- (org-add-link-props :link link :description desc)
- link)))
+ ;; maybe remove filter condition
+ (when (and (eq folder-type 'filter) org-wl-link-remove-filter)
+ (while (eq (org-wl-folder-type folder-name) 'filter)
+ (setq folder-name
+ (replace-regexp-in-string "^/[^/]+/" "" folder-name))))
+
+ ;; maybe create http link
+ (cond
+ ((and (eq folder-type 'shimbun) org-wl-shimbun-prefer-web-links xref)
+ (org-store-link-props :type "http" :link xref :description subject
+ :from from :to to :message-id message-id
+ :subject subject))
+ ((and (eq folder-type 'nntp) org-wl-nntp-prefer-web-links)
+ (setq link (format
+ (if (string-match "gmane\\." folder-name)
+ "http://mid.gmane.org/%s"
+ "http://groups.google.com/groups/search?as_umsgid=%s")
+ (org-fixup-message-id-for-http message-id)))
+ (org-store-link-props :type "http" :link link :description subject
+ :from from :to to :message-id message-id
+ :subject subject))
+ (t
+ (org-store-link-props :type "wl" :from from :to to
+ :subject subject :message-id message-id)
+ (setq message-id (org-remove-angle-brackets message-id))
+ (setq desc (org-email-link-description))
+ (setq link (org-make-link "wl:" folder-name "#" message-id))
+ (org-add-link-props :link link :description desc)))
+ (or link xref))))
(defun org-wl-open (path)
- "Follow the WL message link specified by PATH."
+ "Follow the WL message link specified by PATH.
+When called with one prefix, open message in namazu search folder
+with `org-wl-namazu-default-index' as search index. When called
+with two prefixes or `org-wl-namazu-default-index' is nil, ask
+for namazu index."
(require 'wl)
(unless wl-init (wl))
;; XXX: The imap-uw's MH folder names start with "%#".
(if (not (string-match "\\`\\(\\(?:%#\\)?[^#]+\\)\\(#\\(.*\\)\\)?" path))
(error "Error in Wanderlust link"))
(let ((folder (match-string 1 path))
- (article (match-string 3 path)))
+ (article (match-string 3 path)))
+ ;; maybe open message in namazu search folder
+ (when current-prefix-arg
+ (setq folder (concat "[" article "]"
+ (if (and (equal current-prefix-arg '(4))
+ org-wl-namazu-default-index)
+ org-wl-namazu-default-index
+ (read-directory-name "Namazu index: ")))))
(if (not (elmo-folder-exists-p (org-no-warnings
(wl-folder-get-elmo-folder folder))))
(error "No such folder: %s" folder))
[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]
[-- Attachment #2: Type: text/plain, Size: 201 bytes --]
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
^ permalink raw reply related [flat|nested] 4+ messages in thread* Re: [patch] Extended link capabilities to Wanderlust messages
2010-04-11 8:48 [patch] Extended link capabilities to Wanderlust messages David Maus
@ 2010-04-13 5:57 ` Carsten Dominik
2010-04-13 13:23 ` David Maus
0 siblings, 1 reply; 4+ messages in thread
From: Carsten Dominik @ 2010-04-13 5:57 UTC (permalink / raw)
To: David Maus; +Cc: Tokuya Kameshima, Org Mode
Hi David, thanks for this! I have applied the patch.
I had to apply it by hand - so please double-check.
Also, other wanderlust users: I don't use Wanderlust, so this patch
goes
in untersted by me. Please check it out!
- Carsten
On Apr 11, 2010, at 10:48 AM, David Maus wrote:
> Hello all,
>
> Attached patch extendes Org mode's capabilities to store and open
> links to Wanderlust messages. The gist of the extended capabilities:
>
> - Remove filter conditions for messages in a filter folder
>
> If customization variable `org-wl-link-remove-filter' is non-nil,
> filter conditions are stripped of the folder name.
>
> - Create web links for messages in a Shimbun folder
>
> If customization variable `org-wl-shimbun-prefer-web-links' is
> non-nil, calling `org-store-link' on a Shimbun message creates a
> web link to the messages source, indicated in the Xref: header
> field.
>
> - Create web links for messages in a nntp folder
>
> If customization variable `org-wl-nntp-prefer-web-links' is
> non-nil, calling `org-store-link' on a nntp message creates a web
> link either to gmane.org if the group can be read trough gmane or
> to googlegroups otherwise. In both cases the message-id is used as
> reference.
>
> - Open links in namazu search folder
>
> If `org-wl-open' is called with one prefix, WL opens a namazu
> search folder for message's message-id using
> `org-wl-namazu-default-index' as search index. If this variable is
> nil or `org-wl-open' is called with two prefixes Org asks for the
> search index to use.
>
> Regards,
>
> -- David
>
> --
> OpenPGP... 0x99ADB83B5A4478E6
> Jabber.... dmjena@jabber.org
> Email..... dmaus@ictsoc.de
> <org-wl-extended.diff>_______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [patch] Extended link capabilities to Wanderlust messages
2010-04-13 5:57 ` Carsten Dominik
@ 2010-04-13 13:23 ` David Maus
2010-04-19 15:11 ` Tokuya Kameshima
0 siblings, 1 reply; 4+ messages in thread
From: David Maus @ 2010-04-13 13:23 UTC (permalink / raw)
To: Carsten Dominik; +Cc: Org Mode, Tokuya Kameshima
[-- Attachment #1.1: Type: text/plain, Size: 265 bytes --]
Carsten Dominik wrote:
>Hi David, thanks for this! I have applied the patch.
>I had to apply it by hand - so please double-check.
Everything is where it belongs.
-- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de
[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]
[-- Attachment #2: Type: text/plain, Size: 201 bytes --]
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [patch] Extended link capabilities to Wanderlust messages
2010-04-13 13:23 ` David Maus
@ 2010-04-19 15:11 ` Tokuya Kameshima
0 siblings, 0 replies; 4+ messages in thread
From: Tokuya Kameshima @ 2010-04-19 15:11 UTC (permalink / raw)
To: David Maus; +Cc: Org Mode, Carsten Dominik
Hi,
Works fine.
Thank you, David.
--Tokuya
At Tue, 13 Apr 2010 15:23:04 +0200,
David Maus <dmaus@ictsoc.de> wrote:
>
> Carsten Dominik wrote:
> >Hi David, thanks for this! I have applied the patch.
> >I had to apply it by hand - so please double-check.
>
> Everything is where it belongs.
>
> -- David
>
> --
> OpenPGP... 0x99ADB83B5A4478E6
> Jabber.... dmjena@jabber.org
> Email..... dmaus@ictsoc.de
>
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2010-04-19 15:28 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-04-11 8:48 [patch] Extended link capabilities to Wanderlust messages David Maus
2010-04-13 5:57 ` Carsten Dominik
2010-04-13 13:23 ` David Maus
2010-04-19 15:11 ` Tokuya Kameshima
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).