Function: erc-nicks--gen-color

erc-nicks--gen-color is a byte-compiled function defined in erc-nicks.el.gz.

Signature

(erc-nicks--gen-color STRING)

Documentation

Generate normalized RGB color from STRING.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-nicks.el.gz
;; From https://elpa.gnu.org/packages/ement.  The bit depth has been
;; scaled up to try and avoid components being exactly 0.0, which our
;; contrast function doesn't seem to like.
(defun erc-nicks--gen-color (string)
  "Generate normalized RGB color from STRING."
  (let* ((ratio (/ (float (abs (random string))) (float most-positive-fixnum)))
         (color-num (round (* #xffffffffffff ratio))))
    (list (/ (float (logand color-num #xffff)) #xffff)
          (/ (float (ash (logand color-num #xffff0000) -16)) #xffff)
          (/ (float (ash (logand color-num #xffff00000000) -32)) #xffff))))