Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 9215fef14e
Fetching contributors…

Cannot retrieve contributors at this time

46 lines (36 sloc) 1.491 kb
(dolist (sym '(mf-max-display-pixel-width
mf-max-display-pixel-height
maximize-frame
restore-frame))
(autoload sym "maxframe"))
(when *is-cocoa-emacs*
(eval-after-load 'maxframe
'(progn
(fset 'maximize-frame 'x-maximize-frame)
(fset 'restore-frame 'x-restore-frame))))
(when *macbook-pro-support-enabled*
(setq mf-max-width 1440
mf-max-height 894
mf-display-padding-width 4
mf-offset-x 0
mf-display-padding-height (if (when (boundp 'ns-auto-hide-menu-bar)
ns-auto-hide-menu-bar)
23
(+ 22 23))))
(require 'init-utils) ; for with-selected-frame
(defun maybe-maximize-frame (&optional frame)
(with-selected-frame frame
(if window-system (maximize-frame))))
(add-hook 'after-make-frame-functions 'maybe-maximize-frame)
(add-hook 'after-init-hook 'maybe-maximize-frame)
(defun within-p (a b delta)
(<= (abs (- b a)) delta))
(defun maximized-p (&optional frame)
(or (not (with-selected-frame frame window-system))
(and (within-p (mf-max-display-pixel-width)
(frame-pixel-width frame)
(frame-char-width frame))
(within-p (mf-max-display-pixel-height)
(+ mf-display-padding-height (frame-pixel-height frame))
(frame-char-height frame)))))
(provide 'init-maxframe)
Jump to Line
Something went wrong with that request. Please try again.