TCG functions

This commit is contained in:
mez 2025-03-28 20:38:27 +00:00
parent 2326330025
commit 0ae65fea85

7
custom/colors.el Normal file
View file

@ -0,0 +1,7 @@
(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\">")))