diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el
index d49ee26c..ceda75e8 100644
--- a/bundle/bundle--mk.el
+++ b/bundle/bundle--mk.el
@@ -527,5 +527,14 @@ an ALIAS and SERVICE as arguments and call
 
 (global-set-key (kbd "C-<f12>") #'mk/set-frame-size-85x50)
 
+(defun shell-new-bottom ()
+  "Open a shell window in the bottom third of the current window."
+  (interactive)
+  (let* ((current-window (selected-window))
+         (new-window (split-window-below (- (window-height) (/ (window-height) 3)))))
+    (select-window new-window)
+    (shell)
+    (select-window current-window)))
+
 (provide 'bundle-mk)
 ;;; bundle-mk.el ends here