feature: add option for highlight line-color

lem-project · Nov 30, 2024 · 511d90b · 511d90b
1 parent dffb812
commit 511d90b
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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)