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

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

         (helm-candidates (helm-get-org-candidates-in-file org-filepath 0 1)))
    (ar/format-helm-candidates helm-candidates)))

(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."
