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

(defun ar/org-insert-clipboard-link ()
  "Insert a bookmark link from clipboard."
  (interactive)
  (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)
