[elpa] externals/rcirc-color a6edf362fa 4/6: Add group information to rcirc-color

[Philip Kaludercic]

branch: externals/rcirc-color
commit a6edf362faefc7518e1420c42d86a2c5a2a691a3
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add group information to rcirc-color
    
    * rcirc-color.el (rcirc-color): Add a group.
    (rcirc-colors): Make a user option.
    (rcirc-color-is-deterministic): Make a user option.
    (rcirc-color-other-attributes): Make a user option.
---
 rcirc-color.el | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/rcirc-color.el b/rcirc-color.el
index 49a56dcf20..356fa89e21 100644
--- a/rcirc-color.el
+++ b/rcirc-color.el
@@ -34,6 +34,10 @@
 
 (require 'rcirc)
 
+(defgroup rcirc-color ()
+  "Highlight nicknames in rcirc."
+  :group 'rcirc)
+
 (defun rcirc-color-distance (color1 color2)
   "Compute the difference between two colors.
 The difference between COLOR1 and COLOR2 is computed using the
@@ -58,7 +62,7 @@ everything by 256. This also helps preventing integer 
overflow."
             (* 4 dg dg)
             (ash (* (- 767 red-mean) db db) -8)))))
 
-(defvar rcirc-colors
+(defcustom rcirc-colors
   (let ((min-distance 200); heuristics
        (bg (face-background 'default))
        (fg (face-foreground 'rcirc-my-nick))
@@ -80,21 +84,25 @@ By default, all the non-grey colors that are very different 
from
 the default background are candidates.  This uses `rcirc-color-distance'
 to compute distance between colors.
 
-To check out the list, evaluate (list-colors-display rcirc-colors).")
+To check out the list, evaluate (list-colors-display rcirc-colors)."
+  :type '(repeat color))
 
 (defvar rcirc-color-mapping (make-hash-table :test 'equal)
   "Hash-map mapping nicks to color names.")
 
-(defvar rcirc-color-is-deterministic nil
+(defcustom rcirc-color-is-deterministic nil
   "Normally rcirc just assigns random colors to nicks.
 These colors are based on the list in `rcirc-colors'.
 If you set this variable to a non-nil value, an md5 hash is
 computed based on the nickname and the first twelve bytes are
-used to determine the color: #rrrrggggbbbb.")
+used to determine the color: #rrrrggggbbbb."
+  :type 'boolean)
 
-(defvar rcirc-color-other-attributes nil
+(defcustom rcirc-color-other-attributes nil
   "Other attributes to use for nicks.
-Example: (setq rcirc-color-other-attributes '(:weight bold))")
+Example: (setq rcirc-color-other-attributes '(:weight bold))"
+  :type 'plist)
+
 
 (defun rcirc-color--facify (orig-fun string face &rest args)
   "Add colors to other nicks based on `rcirc-colors'."