necotech

16進数のカラーコードからrgba形式に変換するスクリプトです。opacityの指定はとりあえずせずに100%になるようにしました。CSSで16進数から10進数に直すのが面倒臭いときに使えます。

(defun colorcode2rgba (code)
  (interactive "sColor Code: #")
  (let* ((conv (lambda (s e) (string-to-number (substring code s e) 16)))
         (r (funcall conv 0 2))
         (g (funcall conv 2 4))
         (b (funcall conv 4 6)))
    (insert (format "rgba(%d, %d, %d, 1)" r g b))))

使い方。

M-x colorcode2rgba⏎
Color Code: #FFAAAA⏎

上記で、rgba(255, 170, 170, 1)がバッファに出力されます。

Pocket

Tweet