                                    ;; Indent to current level.
                                    ;; (call-interactively (global-key-binding "\t"))
                                    (insert (format "- %s.\n" ,(ar/org-build-link url
-                                                                                 (read-string "Description: " default-description))))
+                                                                                 (read-string "Description: "
+                                                                                              (ar/helm-org--preprocess-description default-description)))))
                                    (org-sort-list nil ?a)
                                    (ar/update-blog-timestamp-at-point)
                                    (hide-other)

  (org-show-subtree)
  (recenter-top-bottom 3))

(defun ar/helm-org-insert-clipboard-bookmark ()
  "Insert a bookmark link from clipboard."
  (interactive)

   (current-kill 0)
   (lambda (url default-description)
     (insert (format "%s." (ar/org-build-link url
                                              (read-string "Description: " (ar/helm-org--preprocess-description
                                                                            default-description))))))))

(defun ar/helm-org-add-bookmark ()
  "Add a bookmark to blog."
