From 7d719f694b745151093db7da3ad9ee9c63483368 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 28 Jan 2013 00:43:57 +0100
Subject: Move eshell settings to org

---
 .emacs.d/site-lisp/oni.el | 46 ----------------------------------------------
 1 file changed, 46 deletions(-)

(limited to '.emacs.d/site-lisp')

diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el
index 91c4e27..d6aae02 100644
--- a/.emacs.d/site-lisp/oni.el
+++ b/.emacs.d/site-lisp/oni.el
@@ -147,39 +147,6 @@ DOT are intentionally being skipped."
   (visual-line-mode)
   (setq truncate-lines nil))
 
-(defun oni:eshell-mode-func ()
-  "Function for `eshell-mode-hook'."
-  (setq truncate-lines nil))
-
-(defun oni:eshell-prompt-function ()
-  "Show a pretty shell prompt."
-  (let ((status (if (zerop eshell-last-command-status) ?+ ?-))
-        (hostname (shell-command-to-string "hostname"))
-        (dir (abbreviate-file-name (eshell/pwd)))
-        (branch
-         (shell-command-to-string
-          "git branch --contains HEAD 2>/dev/null | sed -e '/^[^*]/d'"))
-        (userstatus (if (zerop (user-uid)) ?# ?$)))
-    (concat
-     (propertize (char-to-string status)
-                 'face `(:foreground ,(if (= status ?+)
-                                          "green"
-                                        "red")))
-     " "
-     (propertize (substring hostname 0 -1) 'face 'mode-line-buffer-id)
-     " "
-     (propertize (oni:shorten-dir dir) 'face 'font-lock-string-face)
-     " "
-     (when (not (string= branch ""))
-       (propertize
-        ;; Cut off "* " and "\n"
-        (substring branch 2 -1)
-        'face 'font-lock-function-name-face))
-     " \n"
-     (propertize (char-to-string userstatus)
-                 'face `(:foreground "blue"))
-     "> ")))
-
 (defun oni:flymake-init ()
   "Initialization function for flymake."
   (require 'flymake-cursor)
@@ -492,19 +459,6 @@ ignored."
         (switch-to-buffer buffer)
       (call-interactively 'ansi-term))))
 
-(defun oni:raise-eshell ()
-  "Start or switch back to `eshell'.
-Also change directories to current working directory."
-  (interactive)
-  (let ((dir (file-name-directory
-              (or (buffer-file-name) "~/")))
-        (hasfile (not (eq (buffer-file-name) nil))))
-    (eshell)
-    (if (and hasfile (eq eshell-process-list nil))
-        (progn
-          (eshell/cd dir)
-          (eshell-reset)))))
-
 (defun oni:raise-scratch (&optional mode)
   "Show the *scratch* buffer.
 If called with a universal argument, ask the user which mode to
-- 
cgit v1.2.3-54-g00ecf