                                  (copy-marker (point))))))
           child-headings)))))
 
-(defun ar/helm-org-save-bookmark-link-in-process ()
-  "Prompt and save a bookmark link in process."
-  (setq ar/helm-org-bookmark-link-in-process (ar/org-build-link)))
-
-(defun ar/helm-org-retrieve-bookmark-link-in-process ()
-  "Get bookmark link in process."
-  (let ((bookmark-link-in-process ar/helm-org-bookmark-link-in-process))
-    (setq ar/helm-org-bookmark-link-in-process nil)
-    bookmark-link-in-process))
-
 (defun ar/helm-org-add-backlog-link ()
   "Add a bookmark to blog."
   (interactive)

(require 'helm)
(require 'helm-org)
(require 'org)

(defvar ar/helm-org-bookmark-link-in-process nil)

(defvar ar/helm-org-source-my-todos
  `((name . "TODOS")

(defun ar/helm-org-add-bookmark ()
  "Add a bookmark to blog."
  (interactive)
  (helm :sources `(((name . "Blog bookmarks")
                    (candidates . ar/helm-org--blog-bookmark-candidates)
                    (action . (lambda (candidate)
                                (helm-org-goto-marker candidate)
                                (org-show-subtree)
                                (org-end-of-meta-data t)
                                (org-insert-heading)
                                (insert (format "%s." ,(ar/org-build-link)))
                                (org-sort-list nil ?a)
                                (ar/update-blog-timestamp-at-point)
                                (hide-other)
