emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

More reliable ring-bell-function mode-line blink

Browse source
This commit is contained in:
Henrik Lissner 2016-11-04 03:30:06 +01:00
parent 515e9f336e
commit 4ce2739983
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
core/core-ui.el
View file

@ -60,11 +60,16 @@
;; A subtle bell: flash the mode-line ;; A subtle bell: flash the mode-line
;; TODO More flexible colors (only suits dark themes) ;; TODO More flexible colors (only suits dark themes)
(defvar doom--modeline-bg nil)
(setq ring-bell-function (setq ring-bell-function
(lambda () (lambda ()
(let ((bg (face-attribute 'mode-line :background))) (unless doom--modeline-bg
(set-face-attribute 'mode-line nil :background "#54252c") (setq doom--modeline-bg (face-attribute 'mode-line :background)))
(run-with-timer 0.1 nil `(lambda () (set-face-attribute 'mode-line nil :background ,bg)))))) (set-face-attribute 'mode-line nil :background "#54252C")
(run-with-timer
0.1 nil
(lambda () (set-face-attribute 'mode-line nil :background doom--modeline-bg)))))
;; y/n instead of yes/no ;; y/n instead of yes/no