On mac flash modeline as visible bell
This commit is contained in:
parent
fd95e07f08
commit
9c6b6b56a7
1 changed files with 7 additions and 1 deletions
|
|
@ -209,7 +209,13 @@
|
||||||
|
|
||||||
(when (memq window-system '(mac ns))
|
(when (memq window-system '(mac ns))
|
||||||
(setq mac-option-modifier 'none
|
(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-transparent-titlebar . t))
|
||||||
(add-to-list 'default-frame-alist '(ns-appearance . dark))
|
(add-to-list 'default-frame-alist '(ns-appearance . dark))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue