[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: to bookmarks
From: |
Matthew Lundin |
Subject: |
[Orgmode] Re: to bookmarks |
Date: |
Sat, 26 Sep 2009 15:48:19 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1 (darwin) |
Matt Lundin <address@hidden> writes:
> I've been looking for similar functionality for a while so I hacked up a
> simple function to export the bookmarks of an org file as an html
> file,
Here's a better version of the function:
--8<---------------cut here---------------start------------->8---
(defun org-export-html-bookmarks ()
"Extract bookmarks from the current org file and create an html file that
can be imported into a web browser."
(interactive)
(unless (eq major-mode 'org-mode)
(error "Not in an org buffer"))
(let ((file (file-name-nondirectory (buffer-file-name)))
bookmarks)
(save-excursion
(goto-char (point-min))
(while (re-search-forward org-bracket-link-analytic-regexp nil t)
(when (equal (match-string 2) "http")
(let ((url (concat (match-string 1)
(match-string 3)))
(desc (match-string 5)))
(push (concat "<DT><A HREF=\"" url "\">" desc "</A>\n") bookmarks))))
(with-temp-buffer
(insert
"<!DOCTYPE NETSCAPE-Bookmark-file-1>\n"
"<HTML>\n"
"<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;
charset=UTF-8\">\n"
"<Title>Bookmarks</Title>\n"
"<H1>Bookmarks</H1>\n"
"<DT><H3 FOLDED>" file " (" (format-time-string "%Y-%m-%d") ")</H3>\n"
"<DL><p>\n")
(apply 'insert (nreverse bookmarks))
(insert
"</DL><p>\n"
"</HTML>")
(write-file (concat (file-name-sans-extension file)
"-bookmarks.html"))))))
--8<---------------cut here---------------end--------------->8---