|
|
|
|
@ -554,12 +554,12 @@ |
|
|
|
|
This is the handler |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
(defun xkbvleds-indicator-signal-handler (indicator on) |
|
|
|
|
(if on |
|
|
|
|
(cond ((string-equal indicator "Greek") |
|
|
|
|
(set-face-background 'cursor "#2aa198")) |
|
|
|
|
((string-equal indicator "Math") |
|
|
|
|
(set-face-background 'cursor "#cb4b16"))) |
|
|
|
|
(set-face-background 'cursor "#919191"))) |
|
|
|
|
(if on |
|
|
|
|
(cond ((string-equal indicator "Greek") |
|
|
|
|
(set-face-background 'cursor "#2aa198")) |
|
|
|
|
((string-equal indicator "Math") |
|
|
|
|
(set-face-background 'cursor "#cb4b16"))) |
|
|
|
|
(set-face-background 'cursor "#919191"))) |
|
|
|
|
#+END_SRC |
|
|
|
|
Connect the signal from xkbvleds to the handler |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
|