(defvar pnh-gifs-dir "~/docs/images/p")

(global-set-key (kbd "C-c C-f")
                (defun pnh-gif (insert?)
                  (interactive "P")
                  (let* ((gifs (if (file-exists-p pnh-gifs-dir)
                                   (directory-files pnh-gifs-dir)
                                 pnh-gifs))
                         (url (format "https://p.hagelb.org/%s"
                                      (ido-completing-read "gif: " gifs))))
                    (kill-new url)
                    (when insert?
                      (insert url)))))

Generated by Phil Hagelberg using scpaste at Wed May 8 15:18:59 2019. PDT. (original)