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

hacked 2nd prompt for incomplete inputs.

This commit is contained in:
Rutger van Beusekom 2016-12-01 15:14:28 +01:00
parent fc081e9c2b
commit 559322ff5a
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
sh/anguish.scm
View File

@ -10,6 +10,7 @@
:use-module (ice-9 pretty-print)
:use-module (ice-9 rdelim)
:use-module (ice-9 readline)
:use-module (ice-9 buffered-input)
:use-module (ice-9 regex)
:use-module (sh pipe)
@ -83,15 +84,18 @@ copyleft.
(quit (every identity status))))
(#t (let* ((HOME (string-append (getenv "HOME") "/.anguishistory"))
(thunk (lambda ()
;;set-buffered-input-continuation?!
(set-readline-prompt! (prompt) "...")
(let loop ((line (readline (prompt))))
(if (not (eof-object? line))
(begin
(let ((ast (string-to-ast line)))
(if (not (string-null? line))
(add-history line))
(run ast))
(loop (readline (prompt)))))))))
(when ast
(if (not (string-null? line))
(add-history line))
(run ast))
(loop (string-append
(if ast "" (string-append line ";"))
(readline (if ast (prompt) "> ")))))))))))
(clear-history)
(read-history HOME)
(with-readline-completion-function completion thunk)