From 9c6b6b56a756004391ed6104a8f6e3b448b72bd4 Mon Sep 17 00:00:00 2001 From: Tobias Ostner Date: Mon, 29 May 2023 10:13:39 +0200 Subject: [PATCH] On mac flash modeline as visible bell --- .emacs.d/init.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 0556819..81d674d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -209,7 +209,13 @@ (when (memq window-system '(mac ns)) (setq mac-option-modifier 'none - mac-command-modifier 'meta) + mac-command-modifier 'meta + visible-bell nil + ring-bell-function 'flash-mode-line) + + (defun flash-mode-line () + (invert-face 'mode-line) + (run-with-timer 0.1 nil #'invert-face 'mode-line)) (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t)) (add-to-list 'default-frame-alist '(ns-appearance . dark))