Update 2015-05-22: Comment from Arjan with link to
Update 2015-12-17: Code enhancements from Phil Hudson
I now manage my web bookmarks with Org-mode and some glue I wrote by myself.
(You can skip this section if you are not interested in what I've used before.)
For years, I was using delicious for storing, managing, and retrieving web bookmarks. Its Firefox plugin was a perfectly crafted piece of software, where storing, tagging, annotating, and "gardening" was very easily accomplished.
Unfortunately, delicious was sold to Yahoo and later on to AVOS. They decided to transform the perfectly working social bookmark web service to something different. The beloved Firefox plugin stopped working some day. The new delicious did not please me at all, ruining my perfectly functioning work-flows I enjoyed for years.
Therefore, I began to think of an alternative method to manage my bookmarks. Meanwhile, I started to use Org-mode for almost everything. And this is why I wanted to manage bookmarks within Org-mode, losing social bookmark features like RSS-feeds for bookmarks or tags. Once more, the cloud ruined a part of my digital life. Better stay independent.
Before I go into the implementation details, I want to describe, what work-flows I want to get handled.
As I described above, I wanted to have a solution within Org-mode and I was prepared to lose any kind of social features such as feeds.
I need to save bookmarks on my Android phone, within my desktop browsers, and within GNU/Emacs.
Additionally, I want to be able to tag bookmarks and add notes to them.
Within Org-mode, I am able to navigate, search, filter, open, and modify the stored bookmarks.
notes.org file, I collect all kind of snippets, knowledge, ideas, how-tos, and such stuff. At the bottom of it, I created a new main headline "Bookmarks". Within this headline, I collect bookmarks as ordinary Org-mode entries such as:
** [[http://usesthis.com/interviews/][What do people use to get stuff done?]] :pim:diy:hardware:software: :PROPERTIES: :CREATED: [2014-08-09 Sat 10:41] :END: Great source of inspiration for hardware, software, working environments, visionary ideas, and so forth! I stumbled across this URL from a heise forum post. See also my blog entry.
Capturing on my desktop computers is easy. Each of them is running GNU/Emacs with Org-mode when I work with them. Therefore, I added a capture template for bookmarks:
(setq org-capture-templates '( ;; many more capture templates ("b" "Bookmark" entry (file+headline "~/share/all/org-mode/notes.org" "Bookmarks") "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n" :empty-lines 1) ;; many more capture templates ) )
I tried to set-up org-protocol but failed so far. This thing is able to capture from external sources such as your web browser directly to Org-mode.
However, I guess it would not save me much effort, since I can add a bookmark by following steps: within the browser I press
C-l to go to and select the URL of the current page. Then I add it to the clipboard with
C-c. I switch to Emacs/Org-mode (usually one virtual desktop to the left) and invoke the capture shortcut for bookmarks:
C-c c b. After adding tasks, I can add an URL description either by working
my-url-linkify (see below) or manually.
Most bookmarks get saved when I read Atom/RSS feeds on my phone. Fortunately, I can easily "share" any URLs with MobileOrg. This app syncs with my desktop Org-mode. By convention, I add "Bookmark" in front of the URL. That way, I can differ other inbox-entries from bookmark URLs I want to save.
After synchronizing, bookmarks in MobileOrg result in
inbox.org entries like:
* NEXT Bookmark [[http://Karl-Voit.at][Homepage of Karl Voit]] [2014-08-10 Sun 16:24]
With the Elisp function
my-save-bookmark, I am quickly able to move the bookmark from
inbox.org to corresponding heading in
notes.org. Additionally, the tagging process is invoked. Thus, I only apply the keyboard shortcut on a bookmark, enter the tags, and I am done with this bookmark.
This Elisp funktion is one of my very first Elisp functions. So please do send me improvements if you see room for some:
;; ###################################################### ;; smart moving bookmark headings from inbox to notes.org ;; see id:2014-03-09-inbox-to-bookmarks (defun my-save-bookmark() "removes NEXT/Bookmark, (NOT YET: FIXXME: retrieves title), move time-stamp to CREATED, re-file to bookmarks, invoke Org-mode tagging process" (interactive) (save-excursion ;; get myself to the beginning of the current heading: ;;(outline-previous-visible-heading 1) ;; jump to previous heading ;;(outline-next-visible-heading 1) ;; jumps to beginning of the current (interesting) heading (beginning-of-line) ;; jump to beginning of line (let ((mybegin (point))) ;; mark beginning of line as start point (outline-next-visible-heading 1) ;; jumps to EOF if it is the last entry (save-restriction (narrow-to-region mybegin (point)) ;; ignore everything outside of region ;; search/replace unwanted keywords at the beginning: (goto-char (point-min)) (while (search-forward "* NEXT Bookmark " nil t) (replace-match "* " nil t)) (goto-char (point-min)) (while (search-forward "* NEXT " nil t) (replace-match "* " nil t)) (goto-char (point-min)) (while (search-forward "* Bookmark " nil t) (replace-match "* " nil t)) (goto-char (point-min)) (while (search-forward "//m.heise.de" nil t) (replace-match "//heise.de" nil t));; remove mobile heise URL (goto-char (point-min)) (while (search-forward "/from/atom10?wt_mc=rss.ho.beitrag.atom" nil t);; remove heise RSS tags (replace-match "" nil t) ) (goto-char (point-min)) ;; insert second asterisk (modify to second level heading) (insert "*") ;; move time-stamp to properties-drawer: (search-forward-regexp "^\\[20") ;; jump to second line (with time-stamp) via search (beginning-of-line) (insert ":PROPERTIES:\n:CREATED: ") (end-of-line) (newline) (insert ":END:\n") ;; move region to end of notes.org (kill-region mybegin (point)) ;; kill region to kill-ring (switch-to-buffer "notes.org") (end-of-buffer) (newline) (yank) ;; add tags (outline-previous-visible-heading 1) ;; jump to heading (org-set-tags-command) ) ) ) )
When I store an URL without any description, it might look like this:
* NEXT Bookmark http://Karl-Voit.at [2014-08-10 Sun 16:24]
To add the web page title to the link, I looked up code in the web and adopted it to my needs:
;; ###################################################### ;; replaces URL with Org-mode link including description ;; see id:2014-03-09-inbox-to-bookmarks (defun my-www-get-page-title (url) "retrieve title of web page. from: http://email@example.com/14332449.html" (let ((title)) (with-current-buffer (url-retrieve-synchronously url) (goto-char (point-min)) (re-search-forward "
\\([^<]*\\)" nil t 1) (setq title (match-string 1)) (goto-char (point-min)) (re-search-forward "charset=\\([-0-9a-zA-Z]*\\)" nil t 1) (decode-coding-string title (intern (match-string 1))))) ) (defun my-url-linkify () "Make URL at cursor point into an Org-mode link. If there's a text selection, use the text selection as input. Example: http://example.com/xyz.htm becomes \[\[http://example.com/xyz.htm\]\[Source example.com\]\] Adapted code from: http://ergoemacs.org/emacs/elisp_html-linkify.html" (interactive) (let (resultLinkStr bds p1 p2 domainName) ;; get the boundary of URL or text selection (if (region-active-p) (setq bds (cons (region-beginning) (region-end)) ) (setq bds (bounds-of-thing-at-point 'url)) ) ;; set URL (setq p1 (car bds)) (setq p2 (cdr bds)) (let ( (url (buffer-substring-no-properties p1 p2)) ) ;; retrieve title (let ((title (my-www-get-page-title url))) (message (concat "title is: " title)) ;;(setq url (replace-regexp-in-string "&" "&" url)) (let ((resultLinkStr (concat "[[" url "][" title "]]"))) ;; delete url and insert the link (delete-region p1 p2) (insert resultLinkStr) ) ) ) ) )
Unfortunately, this does only work in some cases. Most of the time, I get
save-current-buffer: Invalid coding system: UTF-8 which I do not understand. Drop me a line, if you've got an idea how to fix this issue.
Note: current versions of my Elisp functions can be found at: https://github.com/novoid/dot-emacs
This method works pretty satisfying to me.
For the future, I plan to integrate selected bookmarks to my web blog using my web blog software lazyblorg. Adding a bookmark to my blog should not take more than adding a "blog"-tag to it while saving.
Such rather small entries will get a special auto-tag such as "small" or "bookmark". You will be able to follow them using a dedicated Atom feed I will provide which holds only small/bookmark entries. This way, I get the social sharing aspect once more. This time, under my control.
You wrote: " Unfortunately, this does only work in some cases. Most of the time, I get save-current-buffer: Invalid coding system: UTF-8 which I do not understand. Drop me a line, if you've got an idea how to fix this issue."
I've been using (as of 30 minutes ago) the functions defined here. No problems thus far :) Perhaps it can be of help to you. I came upon both yours and his page while looking for an emacs bookmarking solution. Haven't studied any of the code, I'm not really at that level of emacs/elisp experience as of yet (sociology student).
I also wanted to say thanks for sharing your memacs work. Your name in the URL rang a bell. I read up about it, must have been at least 6 months ago now, got excited and.. haven't really implemented any of it yet. Guess you know how it goes. So much information, so many notes, so many bookmarks, so little time. Must have gotten lost somewhere in the emacs brain warp (I half expect it to be a recognized condition of temporary insanity with an entry in the DSM any time now). Anyway, I appreciate what you're trying to do. I'm much the same way, in need of ways to keep a handle on this data deluge and the teeming brain.
Glad you like my work :-)
Thanks for the pointer to
cliplink. It is indeed better to insert an Org-mode-style URL as my old method! No charset issue so far.
Yes, I have lots of open projects or ideas I had no time so far. However, capturing them with Org-mode gives me a better feeling because I don't think that ideas get lost. I concentrate on the most interesting things first. This way, I always work on cool stuff with a huge backlog of other coll things as well.
Keep on Emacsing!