On mac flash modeline as visible bell

This commit is contained in:
Tobias Ostner 2023-05-29 10:13:39 +02:00
parent fd95e07f08
commit 9c6b6b56a7

View file

@ -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))