 
 Return the scratch buffer opened."
   (interactive "p")
-  (if (and (or (null arg)               ; no prefix
+  (if (and (or (null arg)               ;No prefix
                (= arg 1))
            (string-match-p "\\*scratch" (buffer-name)))
       (switch-to-buffer (other-buffer))
     (let* ((mode-str (cl-case arg
-                       (0  "fundamental-mode") ; C-0
-                       (4  "org-mode") ; C-u
-                       (16 "emacs-lisp-mode") ; C-u C-u
+                       (0 "fundamental-mode") ;C-0
+                       (4 "org-mode")         ;C-u
+                       (16 "emacs-lisp-mode") ;C-u C-u
                        ;; If the major mode turns out to be a `special-mode'
                        ;; derived mode, a read-only mode like `help-mode', open
                        ;; an `org-mode' scratch buffer instead.
-                       (t (if (or (derived-mode-p 'special-mode) ; no prefix
+                       (t (if (or (derived-mode-p 'special-mode) ;No prefix
                                   (derived-mode-p 'dired-mode))
                               "org-mode"
                             (format "%s" major-mode)))))
            (buf (get-buffer-create (concat "*scratch-" mode-str "*"))))
       (switch-to-buffer buf)
-      (funcall (intern mode-str))   ; http://stackoverflow.com/a/7539787/1219634
+      (funcall (intern mode-str))    ;http://stackoverflow.com/a/7539787/1219634
       buf)))
 
 ;;; Minibuffer and Recursive Edit

(defun modi/frame-setup-1 ()
  "Set the frame to fill the center screen."
  (interactive)
  (let ((frame-resize-pixelwise t)) ; do not round frame sizes to character h/w
    (set-frame-position nil 2560 0) ; pixels x y from upper left
    (set-frame-size nil 2540 1347 :pixelwise))) ; width, height

(defun modi/frame-width-2x (double)
  "Set the frame text width to half the current width.
If DOUBLE is non-nil, the frame text width is doubled. "
  (interactive "P")
  (let ((frame-resize-pixelwise t) ; do not round frame sizes to character h/w
        (factor (if double 2 0.5)))
    (set-frame-size nil
                    (round (* factor (frame-text-width))) (frame-text-height)

;; http://www.emacswiki.org/emacs/transpose-frame.el
(use-package transpose-frame
  :bind (:map modi-mode-map
         ("C-c o" . rotate-frame)
         ("C-c C-\\" . transpose-frame))) ;Toggles between horz/vert splits

;;; Current File Buffer Actions
;; Delete current buffer file
