TCG functions
This commit is contained in:
parent
2326330025
commit
0ae65fea85
1 changed files with 7 additions and 0 deletions
7
custom/colors.el
Normal file
7
custom/colors.el
Normal 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\">")))
|
Loading…
Add table
Add a link
Reference in a new issue