Eshell 如何实现清屏和退出？

[CTMDoctor]

1. 清屏

   (defun eshell/clear ()
     (let ((eshell buffer maximum lines 0))
       (eshell-truncate-buffer)))
   

2. 退出Eshell

   (add-hook 
    'eshell-mode-hook
    (lambda ()
      (define-key eshell-mode-map (kbd "C-d")
        (lambda (arg)
          "Delete a character or quit eshell if there's nothing to delete."
          (interactive "p")
          (if (and (eolp) (looking-back eshell-prompt-regexp nil))
              (eshell-life-is-too-much)
            (delete-char arg))))))