 (eval-and-compile
   (setq load-path (cons (concat my/plugins-directory "magit/lisp/")
                         load-path)))
+(defun my/enter-magit-status-fullscreen ()
+  "Enter magit's status window, filling the entire frame."
+  (interactive)
+  (let ((magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1))
+    (magit-status)))
 (use-package magit
   :if (not (version< emacs-version "24.4"))
   :init

  ;; git commands
  :bind (:map my/git-keymap
              ("g" . magit-status)
              ("l" . magit-list-repositories)
              ("M-g" . magit-dispatch-popup)
              ("f" . magit-find-file) ;; view arbitrary blobs

  (setq magit-log-arguments (append
                             (list "--color")
                             magit-log-arguments))
  (setq magit-display-buffer-function
        #'magit-display-buffer-same-window-except-diff-v1)
  ;; to display fullframe, use 'magit-display-buffer-fullframe-status-v1
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; git-timemachine ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
