               'comint-next-prompt)
             (define-key shell-mode-map (kbd "C-c e")
               'my-shell-erase-buffer)
+            (define-key shell-mode-map (kbd "C-l")
+              'my-shell-bash-clear-screen)
             (define-key shell-mode-map (kbd "<right>")
               'my-shell-forward-char-or-previous-history)
             (define-key shell-mode-map (kbd "<down>")

      (setq my-shell-bash-esc-dot-last-insertion last)
      (insert last))))

(defun my-shell (&optional arg)
  "Create a new shell (with prefix arg) or switch to a shell buffer."
  (interactive "P")

                  'my-shell-input-sender)
            ;; (setq comint-prompt-read-only t)
            (setq comint-scroll-to-bottom-on-input t)
            (setq comint-scroll-show-maximum-output nil)
            (toggle-truncate-lines 1)
            (dirtrack-mode)
            (define-key shell-mode-map (kbd "C-<up>")
