From f54d8a59305b6c628456c8ba8eb2459213c517d5 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 8 Jul 2015 12:38:23 +0200
Subject: Move my eshell prompt to separate module

To help with autoloading, also update the Makefile to create a
`site-lisp/site-autoloads.el' file which is loaded by emacs.
---
 emacs/.emacs.d/site-lisp/oni-eshell-prompt.el | 55 +++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 emacs/.emacs.d/site-lisp/oni-eshell-prompt.el

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

diff --git a/emacs/.emacs.d/site-lisp/oni-eshell-prompt.el b/emacs/.emacs.d/site-lisp/oni-eshell-prompt.el
new file mode 100644
index 0000000..540f9f0
--- /dev/null
+++ b/emacs/.emacs.d/site-lisp/oni-eshell-prompt.el
@@ -0,0 +1,55 @@
+;;; oni-eshell-prompt.el --- Oni's eshell prompt functions  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2015  Tom Willemse
+
+;; Author: Tom Willemse <tom@ryuslash.org>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; These are the functions I use to provide my eshell prompt.
+
+;; You can use it by adding `oni-eshell-set-prompt' to the
+;; `eshell-first-time-mode-hook'.
+
+;;; Code:
+
+(require 'em-dirs)
+(require 'em-prompt)
+
+(defvar oni:eshell-prompt-regexp "^[~/].* > "
+  "A regular expression that matches the prompt.")
+
+(defun oni:shorten-dir (dir)
+  "Shorten a directory, (almost) like fish does it."
+  (while (string-match "\\(\\.?[^./]\\)[^/]+/" dir)
+    (setq dir (replace-match "\\1/" nil nil dir)))
+  dir)
+
+(defun oni:eshell-prompt ()
+  "Show a pretty shell prompt."
+  (concat (if (not (looking-back "\n" nil)) "\n")
+          (oni:shorten-dir (abbreviate-file-name (eshell/pwd)))
+          " > "))
+
+;;;###autoload
+(defun oni-eshell-set-prompt ()
+  "Prepare eshell for using the prompt."
+  (setq eshell-prompt-function #'oni:eshell-prompt
+        eshell-prompt-regexp oni:eshell-prompt-regexp))
+
+(provide 'oni-eshell-prompt)
+;;; oni-eshell-prompt.el ends here
-- 
cgit v1.2.3-54-g00ecf