From d53f1055f35141e14ab697a1d8cfd49a45ef3cbe Mon Sep 17 00:00:00 2001
From: Rutger van Beusekom <rutger.van.beusekom@gmail.com>
Date: Tue, 1 Nov 2016 13:54:25 +0100
Subject: [PATCH] remove prompt coloring to allow readline to determine proper
 length

---
 sh/anguish.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sh/anguish.scm b/sh/anguish.scm
index bf56bad..a6385f6 100644
--- a/sh/anguish.scm
+++ b/sh/anguish.scm
@@ -145,7 +145,6 @@ copyleft.
 
 
 (define (builtin ast)
-  ;;(format (current-error-port) "builtin: ~s\n" ast)
   (match ast
     (('append ('glob "cd") arg) `(apply chdir ,arg))
     (('append ('glob "fg") ('glob arg)) `(fg ,(string->number arg)))
@@ -208,6 +207,7 @@ copyleft.
       ('script #t) ;; skip
       (_ (begin (map exec ast) #t)))))
 
+;;TODO add colors
 
 (define (prompt)
   (let* ((esc (string #\033))
@@ -217,7 +217,7 @@ copyleft.
                   (string-replace CWD "~" 0 (string-length HOME))
                   CWD)))
     (report-jobs)
-    (string-append esc "[01;34m" cwd esc "[00m$ ")))
+    (string-append cwd "$ ")))
 
 (define (redraw-current-line)
   (dynamic-call (dynamic-func "rl_refresh_line"