jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some problematic menu-bar-mode logic

Browse source
This commit is contained in:
Bozhidar Batsov 2013-03-22 14:22:12 +02:00
parent 45e9ad9756
commit 2d3d1e12a8
2 changed files with 3 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/prelude-osx.el
View file

@ -22,4 +22,6 @@ with a Windows external keyboard from time to time."
(define-key prelude-mode-map (kbd "C-c w") 'prelude-swap-meta-and-super) (define-key prelude-mode-map (kbd "C-c w") 'prelude-swap-meta-and-super)
(menu-bar-mode +1)
(provide 'prelude-osx) (provide 'prelude-osx)

24
core/prelude-ui.el
View file

@ -39,29 +39,7 @@
(when (fboundp 'tool-bar-mode) (when (fboundp 'tool-bar-mode)
(tool-bar-mode -1)) (tool-bar-mode -1))
;; the menu bar is mostly useless as well (menu-bar-mode -1)
;; but removing it under OS X doesn't make much sense
;; For daemon mode, with-selected-frame seems to be required. Normal
;; mode seems to require with-selected-frame to be absent.
(require 'server) ;;for server-running-p
(defun prelude-frame-config (frame)
"Custom behaviours for new frames."
(if (eq system-type 'darwin)
(if (server-running-p)
(with-selected-frame frame
(if (display-graphic-p)
(modify-frame-parameters frame '((menu-bar-lines . 1)))
(modify-frame-parameters frame '((menu-bar-lines . 0)))))
(if (display-graphic-p)
(modify-frame-parameters frame '((menu-bar-lines . 1)))
(modify-frame-parameters frame '((menu-bar-lines . 0)))))
(menu-bar-mode -1)))
;; run now
(prelude-frame-config (selected-frame))
;; and later
(add-hook 'after-make-frame-functions 'prelude-frame-config)
;; the blinking cursor is nothing, but an annoyance ;; the blinking cursor is nothing, but an annoyance
(blink-cursor-mode -1) (blink-cursor-mode -1)