From 0b5ef9f229c04dad32ea605aba216b6ef1dbcebc Mon Sep 17 00:00:00 2001 From: Nicholas Kirchner Date: Sat, 18 Feb 2012 17:25:45 -0600 Subject: [PATCH] OS X menu bars fix --- modules/prelude-ui.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/modules/prelude-ui.el b/modules/prelude-ui.el index 8824474..896e28d 100644 --- a/modules/prelude-ui.el +++ b/modules/prelude-ui.el @@ -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)) - (menu-bar-mode -1))) + (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