(defun cardimgs (start end)
  "Insert HTML string for card images"
  (interactive "r")
  (setq original (buffer-substring (region-beginning) (region-end)))
  (delete-region start end)
  (setq imgs (replace-regexp-in-string ", " ".gif\"><img src=\"https://colors-tcg.eu/cards/" original))
  (insert (concat "<img src=\"https://colors-tcg.eu/cards/" imgs ".gif\">")))