diff options
| author | Case Duckworth | 2021-04-12 09:45:53 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-12 09:45:53 -0500 |
| commit | 58dec6ba0c77817a963397887e8b6338cab9d0bf (patch) | |
| tree | 947bab38abc109801a395614c4feab150bc330ab | |
| parent | Add `company' (diff) | |
| download | emacs-58dec6ba0c77817a963397887e8b6338cab9d0bf.tar.gz emacs-58dec6ba0c77817a963397887e8b6338cab9d0bf.zip | |
Set the bell to flash the mode-line
... and beep at home (I like the little beep!)
| -rw-r--r-- | init.el | 11 |
1 files changed, 10 insertions, 1 deletions
| diff --git a/init.el b/init.el index ebbc6dd..1348bdc 100644 --- a/init.el +++ b/init.el | |||
| @@ -200,7 +200,16 @@ | |||
| 200 | w32-pass-rwindow-to-system nil | 200 | w32-pass-rwindow-to-system nil |
| 201 | w32-rwindow-modifier 'super | 201 | w32-rwindow-modifier 'super |
| 202 | w32-pass-apps-to-system nil | 202 | w32-pass-apps-to-system nil |
| 203 | w32-apps-modifier 'hyper) | 203 | w32-apps-modifier 'hyper |
| 204 | visible-bell nil | ||
| 205 | ring-bell-function #'flash-mode-line) | ||
| 206 | |||
| 207 | (defun flash-mode-line () | ||
| 208 | "Flash the modeline as a bell." | ||
| 209 | (when (eq acdw/system :home) | ||
| 210 | (beep)) | ||
| 211 | (invert-face 'mode-line) | ||
| 212 | (run-with-timer 0.1 nil #'invert-face 'mode-line)) | ||
| 204 | 213 | ||
| 205 | (when-unfocused garbage-collect | 214 | (when-unfocused garbage-collect |
| 206 | (garbage-collect)) | 215 | (garbage-collect)) |