Skip to content

Commit

Permalink
Merge pull request #1651 from sakurawald/highlight-line-color-option
Browse files Browse the repository at this point in the history
feature: add option for highlight line-color.
  • Loading branch information
cxxxr authored Nov 30, 2024
2 parents bb7e61c + 511d90b commit d929358
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions src/highlight-line.lisp
Original file line number Diff line number Diff line change
@@ -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)
Expand Down

0 comments on commit d929358

Please sign in to comment.