maxframe.el

;;; Frame size manipulation.

(defun personal-init-fullscreen ()
  ;; (setq ns-auto-hide-menu-bar t)
  (setq ns-use-native-fullscreen nil)
  (global-set-key [(meta return)] 'toggle-frame-fullscreen)
  ;; (add-hook 'after-init-hook 'toggle-frame-fullscreen t)
  )

(defun personal-init-ns-fullscreen ()
  ;; (setq ns-auto-hide-menu-bar t)
  (setq ns-use-native-fullscreen nil)
  (global-set-key [(meta return)] 'ns-toggle-fullscreen)
  (add-hook 'after-init-hook 'ns-toggle-fullscreen t))

(defun personal-init-maxframe ()
  ;; Biggest monitor width I currently have.  This is necessary when multiple
  ;; monitors exist; otherwise, the frame will span multiple displays.
  (setq mf-max-width 2560)
  (global-set-key [(meta return)] 'mf)
  (add-hook 'after-init-hook 'maximize-frame t))

(if (window-system)
    (cond
     ((fboundp 'toggle-frame-fullscreen)
      (personal-init-fullscreen))
     ((fboundp 'ns-toggle-fullscreen)
      (personal-init-ns-fullscreen))
     (t
      (personal-init-maxframe))
     ))