 (defun ar/org-insert-clipboard-link ()
   "Insert a bookmark link from clipboard."
   (interactive)
-  (assert (string-match-p "^http" (current-kill 0)) nil "Not URL in clipboard")
+  (cl-assert (string-match-p "^http" (current-kill 0)) nil "Not URL in clipboard")
   (org-cliplink-retrieve-title
    (current-kill 0)
    (lambda (url default-description)

(require 'org)
(require 'dash)
(require 's)

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


      (save-restriction
        (widen)
        (goto-char (point-min))
        (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)
