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

Merge pull request #167 from NicholasKirchner/master

Browse source 
Menu bars, again
This commit is contained in:
Bozhidar Batsov 2012-06-10 07:35:36 -07:00
commit 00a0181b1b
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
prelude/prelude-ui.el
View file

@ -38,14 +38,24 @@
;; already disabled anyway ;; already disabled anyway
(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 ;; the menu bar is mostly useless as well
;; but removing it under OS X doesn't make much sense ;; 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) (defun prelude-frame-config (frame)
"Custom behaviours for new frames." "Custom behaviours for new frames."
(if (eq system-type 'darwin) (if (eq system-type 'darwin)
(if (display-graphic-p) (if (server-running-p)
(modify-frame-parameters frame '((menu-bar-lines . 1))) (with-selected-frame frame
(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)))))
(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