emacs setup windows

gistfile1.el

(defun setup-my-windows ()
  (interactive)
  (select-window (get-largest-window))
  (delete-other-windows)
  (set-window-dedicated-p (selected-window) 1)
  (split-window-horizontally)
  (other-window 1)
  ;; top right
  ;;(set-window-dedicated-p (selected-window) 1)
  (if (buffer-exists "#vip-hosting")
	  (switch-to-buffer "#vip-hosting")
	(if (buffer-exists "#vip-hosting") (switch-to-buffer "*Scratch*")))
  (split-window-vertically)
  ;;(enlarge-window 5)
  (other-window 1)
  ;; middle right
  (set-window-dedicated-p (selected-window) 1)
  (find-file "~/Dropbox/Notes/notes.org")
  (split-window-vertically)
  (enlarge-window 10)
  (other-window 1)
  ;; bottom right
  (enlarge-window 5)
  (switch-to-buffer "*Messages*")
  (other-window 1)
  ;; main
  (enlarge-window-horizontally 20)
  (setq sr-speedbar-width-x 24)
  (sr-speedbar-toggle)
  (switch-to-buffer "*SPEEDBAR*")
  ;;(shrink-window-horizontally 10)
  (set-window-dedicated-p (selected-window) 1)
  (select-window (get-largest-window))
)
(setup-my-windows)
(global-set-key (kbd "C-x 4") 'setup-my-windows)