 
 (bind-to-modi-map "b" #'modi/switch-to-scratch-and-back)
 (bind-to-modi-map "f" #'modi/frame-setup-1)
+(bind-to-modi-map "F" #'modi/frame-width-2x)
 (bind-to-modi-map "y" #'bury-buffer)
 
 (key-chord-define-global "XX" #'modi/kill-buffer-dwim)

;; Time-stamp: <2016-08-24 13:30:33 kmodi>

;; Windows and buffers manipulation


    (set-frame-position nil 1910 0) ; pixels x y from upper left
    (set-frame-size nil 1894 1096 :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)
                    :pixelwise)))

;;; Scratch-and-Back
;; http://emacs.stackexchange.com/a/81/115
