emacs-orgmode
[Top][All Lists]
Advanced

[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---




reply via email to

[Prev in Thread] Current Thread [Next in Thread]