# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1468588636 0
# Node ID 9d1fa2c391964de142b9ac99261dbc438b102f30
# Parent  171b0efe559dbe1fe53cdd5d9059a3a39e8adc55
More

diff -r 171b0efe559d -r 9d1fa2c39196 ccl-init.lisp
--- a/ccl-init.lisp	Thu Jul 14 22:45:37 2016 +0000
+++ b/ccl-init.lisp	Fri Jul 15 13:17:16 2016 +0000
@@ -3,8 +3,8 @@
 
 (defun sjl-lisp-prompt-format (stream level)
   (if (zerop level)
-    (format stream "~A> " (package-name *package*))
-    (format stream "[~d] > " level)))
+    (format stream "~%[ClozureCL] ~A> " (package-name *package*))
+    (format stream "~%[~d] > " level)))
 
 (setf ccl:*listener-prompt-format* #'sjl-lisp-prompt-format)
 
diff -r 171b0efe559d -r 9d1fa2c39196 eclrc
--- a/eclrc	Thu Jul 14 22:45:37 2016 +0000
+++ b/eclrc	Fri Jul 15 13:17:16 2016 +0000
@@ -1,1 +1,16 @@
 (setf compiler:*user-cc-flags* "-Wno-shift-negative-value")
+
+(defvar *last-package* nil)
+(defvar *cached-prompt* nil)
+
+(defun sjl-prompt ()
+  (when (not (eq *last-package* *package*))
+    (setf *cached-prompt*
+          (format nil "~%[ECL] ~A> "
+                  (or (first (package-nicknames *package*))
+                      (package-name *package*))))
+    (setf *last-package* *package*))
+  (terpri)
+  (princ *cached-prompt*))
+
+(setf system:*tpl-prompt-hook* #'sjl-prompt)
diff -r 171b0efe559d -r 9d1fa2c39196 sbclrc
--- a/sbclrc	Thu Jul 14 22:45:37 2016 +0000
+++ b/sbclrc	Fri Jul 15 13:17:16 2016 +0000
@@ -12,11 +12,11 @@
 (defvar *cached-prompt* nil)
 
 (defun package-prompt (stream)
-  (unless (eq *last-package* *package*)
+  (when (not (eq *last-package* *package*))
     (setf *cached-prompt*
-          (concatenate 'string (or (first (package-nicknames *package*))
-                                   (package-name *package*))
-                       "> "))
+          (format nil "~%[SBCL] ~A> "
+                  (or (first (package-nicknames *package*))
+                      (package-name *package*))))
     (setf *last-package* *package*))
   (terpri)
   (princ *cached-prompt* stream))
diff -r 171b0efe559d -r 9d1fa2c39196 vim/vimrc
--- a/vim/vimrc	Thu Jul 14 22:45:37 2016 +0000
+++ b/vim/vimrc	Fri Jul 15 13:17:16 2016 +0000
@@ -855,7 +855,7 @@
 " Helper Functions {{{
 function! HighlightLispRepl() "{{{
     " set syntax=lisp
-    syn match replPrompt /\v^[-._a-zA-Z0-9]+\>/
+    syn match replPrompt /\v^\[([a-zA-Z])+\] [-._a-zA-Z0-9]+\>/
     syn match replComment /\v^;.*/
 
     " syn match replResult /\v^#\<[^>]+\>$/
diff -r 171b0efe559d -r 9d1fa2c39196 weechat/python/autoload/quotes.py
--- a/weechat/python/autoload/quotes.py	Thu Jul 14 22:45:37 2016 +0000
+++ b/weechat/python/autoload/quotes.py	Fri Jul 15 13:17:16 2016 +0000
@@ -66,7 +66,7 @@
         f.write("\n---\n")
         f.write('\n'.join(lines))
 
-    subprocess.call(["vim", QUOTE_FILE,
+    subprocess.call(["nvim", QUOTE_FILE,
                      # start at the bottom of the file
                      "+",
                      # move up N lines, where N is how many we appended
@@ -84,7 +84,7 @@
     with open(COPY_FILE, 'w') as f:
         f.write('\n'.join(lines))
 
-    subprocess.call(["vim", COPY_FILE,
+    subprocess.call(["nvim", COPY_FILE,
                      # start at the bottom of the file
                      "+"])
     weechat.command("", "/window refresh")