(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
        )
      )

* NEXT Bookmark Homepage of Karl Voit
 [2014-08-10 Sun 16:24]   

;; ######################################################
;; 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)
        )
      )
    )
  )

* NEXT Bookmark http://Karl-Voit.at
 [2014-08-10 Sun 16:24]

;; ######################################################
;; 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://www.opensubscriber.com/message/help-gnu-emacs@gnu.org/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)
          )
        )
      )
    )
  )