          (helm-candidates (helm-get-org-candidates-in-file org-filepath 0 1)))
     (ar/format-helm-candidates helm-candidates)))
 
-(setq ar/helm-source-blog '((name . "Blog")
-                            (candidates . ar/get-helm-blog-candidates)
-                            (action . (lambda (candidate)
-                                        (helm-org-goto-marker candidate)
-                                        (org-show-subtree)))))
-
-(setq ar/helm-source-blog-bookmarks '((name . "Bookmarks")
-                                      (candidates . ar/get-helm-blog-bookmark-candidates)
-                                      (action . (lambda (candidate)
-                                                  (helm-org-goto-marker candidate)
-                                                  (org-show-subtree)))))
+(defvar ar/helm-source-blog '((name . "Blog")
+                              (candidates . ar/get-helm-blog-candidates)
+                              (action . (lambda (candidate)
+                                          (helm-org-goto-marker candidate)
+                                          (org-show-subtree)))))
 
 (defun ar/build-org-link ()
   "Build an org link, prompting for url and description."

    ;; Sets the option (Apple) key also as Meta.
    (setq mac-option-modifier 'meta)
    (setq exec-path (append exec-path '("~/homebrew/bin"
                                        "~/homebrew/Cellar/llvm/HEAD/bin")))))
(ar/init-for-osx)

(defun ar/init-for-linux ()

  "Create an org CUSTOM_ID from a TITLE."
  (replace-regexp-in-string " " "-" (downcase title)))

(defun ar/current-buffer-match-p (re)
  "Return t if RE matches current buffer. nil otherwise."
  (re-search-forward re nil t))

(defun ar/string-match-p (regex string)
  "Return t if REGEX matches STRING. nil otherwise."
  (if (string-match regex string) t nil))
