[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/rainbow-mode 47c6ac1 04/26: rainbow-mode: version 0.4
From: |
Stefan Monnier |
Subject: |
[elpa] externals/rainbow-mode 47c6ac1 04/26: rainbow-mode: version 0.4 |
Date: |
Tue, 1 Dec 2020 16:53:18 -0500 (EST) |
branch: externals/rainbow-mode
commit 47c6ac18e3617e07349a2b6f78acda69fd3181d8
Author: Julien Danjou <julien@danjou.info>
Commit: Julien Danjou <julien@danjou.info>
rainbow-mode: version 0.4
* rainbow-mode.el: Use functions from color package to colorize HSL rather
than our own copy.
---
rainbow-mode.el | 25 +++----------------------
1 file changed, 3 insertions(+), 22 deletions(-)
diff --git a/rainbow-mode.el b/rainbow-mode.el
index 3cf6c11..a7190c5 100644
--- a/rainbow-mode.el
+++ b/rainbow-mode.el
@@ -4,7 +4,7 @@
;; Author: Julien Danjou <julien@danjou.info>
;; Keywords: faces
-;; Version: 0.3
+;; Version: 0.4
;; This file is part of GNU Emacs.
@@ -34,6 +34,7 @@
(require 'regexp-opt)
(require 'faces)
+(require 'color)
(defgroup rainbow nil
"Show color strings with a background color."
@@ -315,26 +316,6 @@ This will convert \"80 %\" to 204, \"100 %\" to 255 but
\"123\" to \"123\"."
(/ (* (string-to-number (substring number 0 string-length)) 255) 100)
(string-to-number number))))
-(defun rainbow-hue-to-rgb (x y h)
- "Convert X Y H to RGB value."
- (when (< h 0) (incf h))
- (when (> h 1) (decf h))
- (cond ((< h (/ 1 6.0)) (+ x (* (- y x) h 6)))
- ((< h 0.5) y)
- ((< h (/ 2.0 3.0)) (+ x (* (- y x) (- (/ 2.0 3.0) h) 6)))
- (t x)))
-
-(defun rainbow-hsl-to-rgb-fractions (h s l)
- "Convert H S L to fractional RGB values."
- (let (m1 m2)
- (if (<= l 0.5)
- (setq m2 (* l (+ s 1)))
- (setq m2 (- (+ l s) (* l s))))
- (setq m1 (- (* l 2) m2))
- (list (rainbow-hue-to-rgb m1 m2 (+ h (/ 1 3.0)))
- (rainbow-hue-to-rgb m1 m2 h)
- (rainbow-hue-to-rgb m1 m2 (- h (/ 1 3.0))))))
-
(defun rainbow-colorize-hsl ()
"Colorize a match with itself."
(let ((h (/ (string-to-number (match-string-no-properties 1)) 360.0))
@@ -342,7 +323,7 @@ This will convert \"80 %\" to 204, \"100 %\" to 255 but
\"123\" to \"123\"."
(l (/ (string-to-number (match-string-no-properties 3)) 100.0)))
(rainbow-colorize-match
(multiple-value-bind (r g b)
- (rainbow-hsl-to-rgb-fractions h s l)
+ (color-hsl-to-rgb h s l)
(format "#%02X%02X%02X" (* r 255) (* g 255) (* b 255))))))
(defun rainbow-colorize-rgb ()
- [elpa] branch externals/rainbow-mode created (now 347bd20), Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode d78fc41 03/26: rainbow-mode 0.3, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 1d90a91 05/26: rainbow-mode: version 0.5, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 83bb7be 06/26: rainbow-mode: fix some LaTex docstrings, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode ea74dbb 01/26: Give every package its own directory in packages/, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 47c6ac1 04/26: rainbow-mode: version 0.4,
Stefan Monnier <=
- [elpa] externals/rainbow-mode 65948a4 07/26: * rainbow-mode: update to 0.6, add support for ANSI coloring, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode bcc2bcd 10/26: rainbow-mode: 0.9, allow spaces in LaTeX colors, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode cb47e83 13/26: rainbow: fix font-lock-mode refresh, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 3e5d506 19/26: rainbow-mode: release 1.0, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 313f105 15/26: Fix `rainbow-color-luminance' docstring, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 4cfdc5b 18/26: Allow outline-minor-mode to find section headings, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 2795d65 21/26: Fix a off-by-one error and some wording in rainbow-mode, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 1f37950 02/26: Update rainbow-mode to version 0.2, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 3a684c7 09/26: rainbow-mode: add support for R, bump version to 0.8, Stefan Monnier, 2020/12/01
- [elpa] externals/rainbow-mode 16afb8a 08/26: rainbow-mode: version 0.7, Stefan Monnier, 2020/12/01