jeremy/elisp
1
Fork 0
Code Releases Activity

tree: checkdoc

Browse source
This commit is contained in:
Jeremy Baxter 2024-07-23 11:02:20 +12:00
parent 0836d2efd4
commit 615f0e4ca5
5 changed files with 23 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

11
erc-highlight-nicknames.el
View file

@ -28,7 +28,7 @@
;;; Commentary:
;; This is a modified version of erc-highlight-nicknames.el from
;; <https://emacswiki.org/emacs/erc-highlight-nicknames.el>. It has been
;; <https://emacswiki.org/emacs/erc-highlight-nicknames.el>. It has been
;; extended to use the configured ERC colour palette, using the faces
;; with names beginning with `fg:erc-color-face'.
;;
@ -36,7 +36,7 @@
;; for a list of these faces.
;; Originally authored by André Riemann in 2007 and updated from 2008-2014
;; by Andy Stewart. ERC face support was added by Jeremy Baxter in 2023.
;; by Andy Stewart. ERC face support was added by Jeremy Baxter in 2023.
;; To use erc-highlight-nicknames.el, put this in your init file:
;;
@ -108,8 +108,7 @@
(defface erc-highlight-nick-base-face
'((t nil))
"Base face used for highlighting nicknames in ERC before the
color is added."
"Face used for highlighting nicknames before color is added."
:group 'erc-faces)
(defvar erc-highlight-face-table
@ -117,7 +116,7 @@ color is added."
"Hash table containing unique ERC nickname faces.")
(defun hexcolor-luminance (color)
"Returns the luminance of color COLOR. COLOR is a string \(e.g.
"Return the luminance of color COLOR. COLOR is a string \(e.g.
\"#ffaa00\", \"blue\"\) `color-values' accepts. Luminance is a
value of 0.299 red + 0.587 green + 0.114 blue and is always
between 0 and 255."
@ -128,7 +127,7 @@ between 0 and 255."
(floor (+ (* 0.299 r) (* 0.587 g) (* 0.114 b)) 256)))
(defun invert-color (color)
"Returns the inverted color of COLOR."
"Return the inverted color of COLOR."
(let* ((values (x-color-values color))
(r (car values))
(g (car (cdr values)))