Decide hl-line color randomly

emacs.el

@@ -769,13 +769,24 @@ found, otherwise returns nil."
      '(safe-require-or-eval 'fill-column-indicator)
      (setq fill-column-indicator))
 
+(defun my-gen-hl-line-color-dark ()
+  "Generate color for current line in black background."
+  (let* ((candidates (mapcar 'number-to-string (number-sequence 0 6)))
+         (limit (length candidates)))
+    (format "#%s%s%s"
+            (nth (random limit) candidates)
+            (nth (random limit) candidates)
+            (nth (random limit) candidates)
+            )))
+;; (my-gen-hl-line-color-dark)
+
 ;; highlight current line
 ;; http://wiki.riywo.com/index.php?Meadow
 (face-spec-set 'hl-line
-               '((((min-colors 256)
+               `((((min-colors 256)
                    (background dark))
                   ;; Rotate midnightblue
-                  (:background "#701919"))
+                  (:background ,(my-gen-hl-line-color-dark)))
                  (((min-colors 256)
                    (background light))
                   ;; TODO: What is should be?
@@ -860,25 +871,25 @@ found, otherwise returns nil."
                ;; Use gfind if available?
                "find"))
        (findcmd (concat "set -eu; set -o pipefail; "
-       "echo .; "
-       "echo ..; "
-       "command " find " -L . "
-       "-mindepth 1 "
-       "\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
-       "-o -print "
-       "2> /dev/null "
-       "| "
-       "cut -b3-"))
-                 (fdcmd (concat "set -eu; set -o pipefail; "
-                                "echo .; "
-                                "echo ..; "
-                                "command fd "
-                                "--follow --hidden --no-ignore "
-                                "--color always "
-                                "2>/dev/null")))
-               (if (executable-find "fd")
-                   (setenv "FZF_DEFAULT_COMMAND" fdcmd)
-                 (setenv "FZF_DEFAULT_COMMAND" findcmd)))
+                        "echo .; "
+                        "echo ..; "
+                        "command " find " -L . "
+                        "-mindepth 1 "
+                        "\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
+                        "-o -print "
+                        "2> /dev/null "
+                        "| "
+                        "cut -b3-"))
+       (fdcmd (concat "set -eu; set -o pipefail; "
+                      "echo .; "
+                      "echo ..; "
+                      "command fd "
+                      "--follow --hidden --no-ignore "
+                      "--color always "
+                      "2>/dev/null")))
+  (if (executable-find "fd")
+      (setenv "FZF_DEFAULT_COMMAND" fdcmd)
+    (setenv "FZF_DEFAULT_COMMAND" findcmd)))
 (set-variable 'fzf/window-height 45)
 (set-variable 'fzf/args "--print-query --ansi --color='bg+:-1' --inline-info --cycle")
 ;; (set-variable 'fzf/args "--print-query --ansi --inline-info --cycle")