(defun is-imagep (file)
  (let ((f (namestring file)))
    (or (search ".jpg" f)
	(search ".jpeg" f)
	(search ".png" f)
	(search ".svg" f))))