TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Change color component macros are now functions

Browse source
This commit is contained in:
syl20bnr 2014-09-28 16:22:46 -04:00
parent 8b239d0faa
commit 2b382d6d29
1 changed files with 32 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
contrib/syl20bnr/macros.el
View file

@ -1,42 +1,40 @@
(defmacro syl20bnr//rainbow-identifier-change-color-component (component
inc
reset)
(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."
`(progn
(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 ,(format "Type +/- to increase or decrease %s (= to reset)"
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))
(defmacro syl20bnr//rainbow-identifier-change-color-component-func
(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."
the color component is set to INC."
(interactive)
`(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 (format "Color %s: %s" ,component (eval var)))
(font-lock-fontify-buffer)))
(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)))