From dc7d81c53a289334a0bdc4d11d9872d7944a5b82 Mon Sep 17 00:00:00 2001
From: Sameer Rahmani <lxsameer@gnu.org>
Date: Mon, 21 Nov 2016 12:30:18 +0330
Subject: [PATCH] eshell enhancements and quack mode added

---
 lib/extensions/development.el      |  5 +++++
 lib/extensions/development/init.el | 29 +++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)

diff --git a/lib/extensions/development.el b/lib/extensions/development.el
index a2d692c..c028efc 100644
--- a/lib/extensions/development.el
+++ b/lib/extensions/development.el
@@ -27,6 +27,11 @@
 
 (with-ability spell
               (depends-on 'flyspell))
+
+(with-ability shell
+              (depends-on 'eshell-prompt-extras)
+              (depends-on 'shell-pop))
+
 ;; TODO: Add flycheck-color-modebar
 ;; TODO  Add flycheck-tip
 
diff --git a/lib/extensions/development/init.el b/lib/extensions/development/init.el
index 6dc8b7b..75427e9 100644
--- a/lib/extensions/development/init.el
+++ b/lib/extensions/development/init.el
@@ -30,6 +30,7 @@
   (define-key projectile-mode-map (kbd "C-c p s s") 'projectile-pt)
   (define-key projectile-mode-map (kbd "C-c p s r") 'pt-regexp))
 
+
 ;;;###autoload
 (defun extension/development-initialize ()
   "Development plugin initialization."
@@ -136,6 +137,34 @@
 
            (global-set-key [f8] 'neotree-toggle))
 
+  (ability shell ()
+           "Eshell enhancements."
+
+           (cheatsheet-add :group '--Development--
+                           :key   "M-`'"
+                           :description "Brings up the eshell")
+
+           (custom-set-variables
+            ;; custom-set-variables was added by Custom.
+            ;; If you edit it by hand, you could mess it up, so be careful.
+            ;; Your init file should contain only one such instance.
+            ;; If there is more than one, they won't work right.
+            '(shell-pop-default-directory "$HOME")
+            ;;'(shell-pop-shell-type (quote ("ansi-term" "*ansi-term*" (lambda nil (ansi-term shell-pop-term-shell)))))
+            '(shell-pop-shell-type (quote ("eshell" "*shell*" (lambda nil (eshell shell-pop-term-shell)))))
+            ;;'(shell-pop-term-shell "/bin/zsh")
+            '(shell-pop-term-shell "eshell")
+            '(shell-pop-universal-key "M-`")
+            '(shell-pop-window-size 30)
+            '(shell-pop-full-span t)
+            '(shell-pop-window-position "full"))
+
+           (require 'eshell-prompt-extras)
+           (with-eval-after-load "esh-opt"
+             (autoload 'epe-theme-lambda "eshell-prompt-extras")
+             (setq eshell-highlight-prompt nil
+                   eshell-prompt-function 'epe-theme-lambda)))
+
   (ability focus ()
            "Provides means for focusing on code review."
            (cheatsheet-add :group '--Development--