From 511d90bf5bb38c512ea141bd0af7d84522fbcccd Mon Sep 17 00:00:00 2001
From: sakurawald <sakurawald@gmail.com>
Date: Sat, 30 Nov 2024 09:00:15 +0800
Subject: [PATCH] feature: add option for highlight line-color

---
 src/highlight-line.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/highlight-line.lisp b/src/highlight-line.lisp
index ed4dc4fdd..5906cc9df 100644
--- a/src/highlight-line.lisp
+++ b/src/highlight-line.lisp
@@ -1,8 +1,14 @@
 (in-package :lem-core)
 
 (define-editor-variable highlight-line nil)
+(define-editor-variable highlight-line-color nil)
 
 (defun highlight-line-color ()
+  (alexandria:if-let ((color (variable-value 'highlight-line-color)))
+    color
+    (guess-highlight-line-color)))
+
+(defun guess-highlight-line-color ()
   (when (background-color)
     (let ((color (parse-color (background-color))))
       (multiple-value-bind (h s v)