Merge pull request #77 from NicholasKirchner/menu-bars

OS X menu bars fix
This commit is contained in:
Bozhidar Batsov 2012-02-18 15:37:35 -08:00
commit 74a6b44884

View file

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