spacemacs/contrib/syl20bnr/packages.el

(defvar syl20bnr-packages
  '(
    rainbow-identifiers
    )
  "List of all packages to install and/or initialized. Built-in packages
which require an initialization must be listed explicitly in the list.")

(defun syl20bnr/init-rainbow-identifiers ()
  (use-package rainbow-identifiers
    :commands rainbow-identifiers-mode
    :init
    (progn 
      (setq rainbow-identifiers-choose-face-function 'rainbow-identifiers-cie-l*a*b*-choose-face
            rainbow-identifiers-cie-l*a*b*-saturation 100
            rainbow-identifiers-cie-l*a*b*-lightness 40
            ;; override theme faces
            rainbow-identifiers-faces-to-override '(highlight-quoted-symbol
                                                    font-lock-variable-name-face))
      (add-to-hooks 'rainbow-identifiers-mode '(prog-mode-hook
                                                erlang-mode-hook)))
    :config
    (progn
      (syl20bnr/tweak-theme-colors 'solarized-light)
      ;; functions to change saturation and lightness of colors
      (defun syl20bnr/rainbow-identifier-change-color-component
        (component inc reset)
        "Set a temporary overlay map to easily change a color COMPONENT from
 rainbow-identifier mode. The color COMPONENT can be 'saturation' or
 'lightness'. INC is the value to add to the COMPONENT. If RESET is not nil
 then INC is the new value of the COMPONENT."
        (set-temporary-overlay-map
         (let ((map (make-sparse-keymap)))
           (define-key map (kbd "+")
             `(lambda () (interactive)
                (syl20bnr/rainbow-identifier-change-color-component-func
                 ,component ,inc)))
           (define-key map (kbd "-")
             `(lambda () (interactive)
                (syl20bnr/rainbow-identifier-change-color-component-func
                 ,component ,(- inc))))
           (define-key map (kbd "=")
             `(lambda () (interactive)
                (syl20bnr/rainbow-identifier-change-color-component-func
                 ,component ,reset t)))
           map) t)
        (message "Type +/- to increase or decrease %s (= to reset)" component))

      (defun syl20bnr/rainbow-identifier-change-color-component-func
        (component inc &optional reset)
        "Change the color component by adding INC value to it. If RESET is not nil
 the color component is set to INC."
        (interactive)
        (message component)
        (let* ((var (intern (format "rainbow-identifiers-cie-l*a*b*-%s"
                                    component)))
               (new-value (+ (eval var) inc)))
          (if reset
              (set var inc)
            (progn
              (if (< new-value 0)
                  (setq new-value 0))
              (set var new-value)))
          (message "Color %s: %s" component (eval var))
          (font-lock-fontify-buffer)))
      ;; key bindings
      (evil-leader/set-key "cs"
        '(lambda () (interactive)
           (syl20bnr/rainbow-identifier-change-color-component "saturation" 5 100)))
      (evil-leader/set-key "cl"
        '(lambda () (interactive)
           (syl20bnr/rainbow-identifier-change-color-component "lightness" 5 40)))
 
      )))