VL
Size: a a a
VL
VL
VL
*
D
DL
D
U
IO
PG
HF
- text :: something
IO
IO
HF
HF
DL
(defun invert-color (color)
(apply #'color-rgb-to-hex (append (color-complement color) '(2))))
(defun wtf-invert-colors ()
(interactive)
(while (re-search-forward "#[0-9a-fA-F]\\{3,6\\}" nil t)
(replace-match (invert-color (match-string 0)) t nil)))
A
A
VL