Browse Source

OS X menu bars fix

custom
Nicholas Kirchner 14 years ago
parent
commit
0b5ef9f229
  1. 7
      modules/prelude-ui.el

7
modules/prelude-ui.el

@ -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)
(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))) (menu-bar-mode -1)))
;; run now ;; run now
(prelude-frame-config (selected-frame)) (prelude-frame-config (selected-frame))
;; and later ;; and later

Loading…
Cancel
Save