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))
|
||||
(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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue