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

OS X menu bars fix

Browse source
This commit is contained in:
Nicholas Kirchner 2012-02-18 17:25:45 -06:00
parent 802118c21c
commit 0b5ef9f229
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
modules/prelude-ui.el
View file

@ -42,8 +42,13 @@
;; but removing it under OS X doesn't make much sense ;; but removing it under OS X doesn't make much sense
(defun prelude-frame-config (frame) (defun prelude-frame-config (frame)
"Custom behaviours for new frames." "Custom behaviours for new frames."
(unless (and (display-graphic-p) (eq system-type 'darwin)) (if (eq system-type 'darwin)
(menu-bar-mode -1))) (with-selected-frame frame
(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 ;; run now
(prelude-frame-config (selected-frame)) (prelude-frame-config (selected-frame))
;; and later ;; and later