From e2eedd4c2e522cec32b7cf04f4ccfc2a44abaa21 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Wed, 23 Oct 2019 17:31:43 +0200 Subject: Add snippet to generate buffer with diff colors --- helpers.el | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/helpers.el b/helpers.el index b533cdc..c8f14a9 100644 --- a/helpers.el +++ b/helpers.el @@ -19,23 +19,24 @@ ;; Diff faces. +(setq my/background "black") + (list-colors-display - (seq-map (lambda (r) (my/color-mix "gray20" "steelblue2" r)) + (seq-map (lambda (r) (my/color-mix my/background "steelblue2" r)) (number-sequence 0.0 1.0 0.01)) "*steelblues*") (list-colors-display - (seq-map (lambda (r) (my/color-mix "gray20" "orange2" r)) + (seq-map (lambda (r) (my/color-mix my/background "orange2" r)) (number-sequence 0.0 1.0 0.01)) "*oranges*") -;; background: -(my/color-mix "gray20" "orange2" 0.9) -(my/color-mix "gray20" "steelblue2" 0.9) -(my/color-mix "gray20" "gold2" 0.9) -(my/color-mix "gray20" "maroon2" 0.9) -;; refined: -(my/color-mix "gray20" "orange2" 0.75) -(my/color-mix "gray20" "steelblue2" 0.75) -(my/color-mix "gray20" "gold2" 0.75) -(my/color-mix "gray20" "maroon2" 0.75) +(list-colors-display + (seq-map (lambda (c) (my/color-mix my/background c 0.8)) + '("orange2" "steelblue2" "gold2" "maroon2")) + "*regular-diff*") + +(list-colors-display + (seq-map (lambda (c) (my/color-mix my/background c 0.7)) + '("orange2" "steelblue2" "gold2" "maroon2")) + "*refined-diff*") -- cgit v1.2.3