andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove prompt coloring to allow readline to determine proper length

This commit is contained in:
Rutger van Beusekom 2016-11-01 13:54:25 +01:00
parent 1837431f0c
commit d53f1055f3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sh/anguish.scm
View File

@ -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"