Source

.emacs.d / libs / rainbow-text.el

The fluss branch has multiple heads

; show normal text in rainbow colors
(loop for i from 1 to (1- (point-max))
      do 
      (let 
          ((foo (make-overlay i (+ i 1)))
           (color (concat "#" (number-to-string (+ 4 (mod i 5)))
                                               (number-to-string (+ 2 (mod i 7)))
                                               (number-to-string (mod i 9))))) 
        (put-text-property i (1+ i) 'font-lock-face `(:foreground ,color))))
(provide 'rainbow-text)