       (save-restriction
         (widen)
         (goto-char (point-min))
-        (assert (ar/buffer-string-match-p (format ":CUSTOM_ID:[ ]*%s" "short-links"))
+        (cl-assert (ar/buffer-string-match-p (format ":CUSTOM_ID:[ ]*%s" "short-links"))
                 (format "Cannot find %s#%s" path "short-links"))
         (goto-char (ar/buffer-first-match-beginning))
         (org-end-of-meta-data t)

      (save-restriction
        (widen)
        (goto-char (point-min))
        (assert (ar/buffer-string-match-p (format ":CUSTOM_ID:[ ]*%s" id))
                (format "Cannot find %s#%s" path id))
        (goto-char (ar/buffer-first-match-beginning))
        (org-end-of-meta-data t)

(require 'org)
(require 'dash)
(require 's)
(require 'cl-lib)

(defvar ar/org-short-link-regex "^http://goo.gl")

