awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-12 15:36:53 -05:00
Code Issues Packages Projects Releases Wiki Activity

Subtle mode-line blink for ring-bell-function

Browse Source
This commit is contained in:
Henrik Lissner
2016-10-24 02:46:12 +02:00
parent c05bffa826
commit 3e4ec3e6d8
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-ui.el
View File

@@ -58,6 +58,15 @@
(y-or-n-p "››› Quit?")
t)))
;; A subtle bell: flash the mode-line
;; TODO More flexible colors (only suits dark themes)
(setq ring-bell-function
(lambda ()
(let ((bg (face-attribute 'mode-line :background)))
(set-face-attribute 'mode-line nil :background "#54252c")
(run-with-timer 0.1 nil `(lambda () (set-face-attribute 'mode-line nil :background ,bg))))))
;; y/n instead of yes/no
(fset 'yes-or-no-p 'y-or-n-p)