branch: externals/rcirc-color
commit 6c69994cb82c85e2d3632813978a597c037f98a4
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
* rcirc-color.el (rcirc-do-color): Use a let* to make random choice
---
rcirc-color.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/rcirc-color.el b/rcirc-color.el
index 356fa89e21..1c9a0cfced 100644
--- a/rcirc-color.el
+++ b/rcirc-color.el
@@ -158,11 +158,10 @@ commands."
rcirc-color-mapping)
(rcirc-print process (rcirc-nick process) "NOTICE" target
(mapconcat 'identity names " ")))
- (puthash nick
- (cons 'foreground-color
- (elt rcirc-colors
- (random (length rcirc-colors))))
- rcirc-color-mapping)))
+ (let* ((index (random (length rcirc-colors)))
+ (color (elt rcirc-colors index))
+ (face (cons 'foreground-color color)))
+ (puthash nick face rcirc-color-mapping))))
(defun rcirc-color--handler-NICK (_process sender args _text)
"Update colors in `rcirc-color-mapping'."
