From: Haider Rizvi <harizvi@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: Nice blog post - Org-mode in Your Pocket Is a GNU-Shaped Devil
Date: Thu, 04 Apr 2013 12:39:17 -0400 [thread overview]
Message-ID: <m1fvz6ntca.fsf@thinkhr.torolab.ibm.com> (raw)
In-Reply-To: 8762027avj.fsf@bzg.ath.cx
Bastien <bzg@altern.org> writes:
> Hi François,
>
> François Pinard <pinard@iro.umontreal.ca> writes:
>
>> It took me about one hour (my Gnus programming
>> is rather rusty) for adding a Gnus command opening many tabs at once, in
>> a graphical browser, for all articles I retain in Gnus for reading.
>
> That looks nice, is your hack public somewhere?
Not exactly the above, but I have the following my-gnus-browse bound
to ; in gnus-summary-mode-map, which opens up a browser with the right
links for gwene, gmane and nnrss groups. I think the browse-nnrss-url
is untouched from the gnus manual.
(defun browse-nnrss-url( arg )
(interactive "p")
(let ((url (assq nnrss-url-field
(mail-header-extra
(gnus-data-header
(assq (gnus-summary-article-number)
gnus-newsgroup-data))))))
(if url
(progn
(browse-url (cdr url))
(gnus-summary-mark-as-read-forward 1))
(gnus-summary-scroll-up arg))))
(add-to-list 'nnmail-extra-headers nnrss-url-field)
(defun rs-gnus-browse-archived-at ()
"Browse \"Archived-at\" URL of the current article."
(interactive)
(let (url)
(with-current-buffer gnus-original-article-buffer
(setq url (gnus-fetch-field "Archived-at")))
(if (not (stringp url))
(gnus-message 1 "No \"Archived-at\" header found.")
(setq url (gnus-replace-in-string url "^<\\|>$" ""))
(browse-url url))))
(defun my-gnus-browse (arg)
(interactive "p")
(cond ((string-match ":\\(gwene\\|gmane\\)\\." gnus-newsgroup-name)
(rs-gnus-browse-archived-at))
((string-match "^nnrss\." gnus-newsgroup-name)
(browse-nnrss-url arg))))
Regards,
--
Haider
next prev parent reply other threads:[~2013-04-04 16:39 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-04-04 9:28 Nice blog post - Org-mode in Your Pocket Is a GNU-Shaped Devil Rainer M. Krug
2013-04-04 9:55 ` Russell Adams
2013-04-04 9:59 ` Christian Moe
2013-04-04 10:57 ` Rainer M. Krug
2013-04-04 11:48 ` François Pinard
2013-04-04 12:12 ` Bastien
2013-04-04 16:39 ` Haider Rizvi [this message]
2013-04-05 23:10 ` Bastien
2013-04-05 10:59 ` François Pinard
2013-04-04 12:41 ` Rainer M. Krug
2013-04-04 17:41 ` Suvayu Ali
2013-04-05 11:18 ` François Pinard
2013-04-05 12:37 ` Suvayu Ali
2013-04-05 21:28 ` Gareth Smith
2013-04-05 22:25 ` Eric Schulte
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m1fvz6ntca.fsf@thinkhr.torolab.ibm.com \
--to=harizvi@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).