diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/init.el b/init.el index 7c9d96a..b6e73ba 100644 --- a/init.el +++ b/init.el | |||
@@ -50,14 +50,6 @@ | |||
50 | ;; see also: `acdw' and friends. Functions here aren't big enough, or they're | 50 | ;; see also: `acdw' and friends. Functions here aren't big enough, or they're |
51 | ;; too tightly bound to stuff here, to be placed in `acdw'. | 51 | ;; too tightly bound to stuff here, to be placed in `acdw'. |
52 | 52 | ||
53 | ;; Flash the mode line | ||
54 | (defun flash-mode-line () | ||
55 | "Flash the modeline as a bell." | ||
56 | (when (acdw/system :home) | ||
57 | (beep)) | ||
58 | (invert-face 'mode-line) | ||
59 | (run-with-timer 0.1 nil #'invert-face 'mode-line)) | ||
60 | |||
61 | (defvar lispy-modes '(emacs-lisp-mode | 53 | (defvar lispy-modes '(emacs-lisp-mode |
62 | eval-expression-minibuffer | 54 | eval-expression-minibuffer |
63 | ielm-mode | 55 | ielm-mode |
@@ -690,11 +682,14 @@ | |||
690 | (:global "M-SPC" cycle-spacing)) | 682 | (:global "M-SPC" cycle-spacing)) |
691 | 683 | ||
692 | (setup windows | 684 | (setup windows |
685 | (require 'acdw-bell) | ||
693 | (:option use-dialog-box nil | 686 | (:option use-dialog-box nil |
694 | use-file-dialog nil | 687 | use-file-dialog nil |
695 | tab-bar-show 1 | 688 | tab-bar-show 1 |
696 | visible-bell nil | 689 | visible-bell nil |
697 | ring-bell-function #'flash-mode-line | 690 | ring-bell-function (lambda () |
691 | (acdw-bell/flash-mode-line | ||
692 | (acdw/system :home))) | ||
698 | recenter-positions '(top middle bottom)) | 693 | recenter-positions '(top middle bottom)) |
699 | 694 | ||
700 | (tooltip-mode -1) | 695 | (tooltip-mode -1) |