mirrors/ciel
1
Fork 0
mirror of https://gitlab.com/vindarel/ciel.git synced 2026-01-30 12:22:52 -08:00
Code Issues Projects Releases Packages Wiki Activity

REPL: allow to in-package another package, and change the prompt

Browse source
This commit is contained in:
vindarel 2020-10-19 14:40:42 +02:00
parent 35901a2d1c
commit 8f7af9eb6e
1 changed files with 24 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

35
repl.lisp
View file

@ -349,10 +349,23 @@ strings to match candidates against (for example in the form \"package:sym\")."
(custom-complete "uiop:file-")
:test #'string-equal)))
(defun sbcli (txt p)
(in-package :ciel-user) ; make a parameter
(let ((text
(rl:readline :prompt (if (functionp p) (funcall p) p)
(defun format-prompt (text &key (colored t))
(let ((prompt (str:concat text "> ")))
(format nil "~a" (if colored
(cl-ansi-text:green prompt)
prompt))))
(defun sbcli (txt prompt)
"Read user input and evaluate it.
This function must be called from inside the CIEL-USER package."
(let* ((prompt-text (if (functionp prompt)
(funcall prompt)
prompt))
(cur-pkg-name (package-name *package*))
(text
(rl:readline :prompt (if (string-equal "CIEL-USER" cur-pkg-name)
prompt-text
(sbcli::format-prompt cur-pkg-name))
:add-history t
:novelty-check #'sbcli::novelty-check)))
(unless text (sbcli::end))
@ -363,15 +376,14 @@ strings to match candidates against (for example in the form \"package:sym\")."
((str:ends-with-p " ?" text)
(sbcli::symbol-documentation (str:trim
;XXX: could be more robust
(str:replace-using (list "(" ""
" ?" "")
text))))
(str:replace-using (list "(" ""
" ?" "")
text))))
(t
(sbcli::handle-input txt text)))
(in-package :sbcli)
(finish-output nil)
(format t "~&")
(sbcli "" *prompt*)))
(sbcli::sbcli "" *prompt*)))
(defun repl ()
(rl:register-function :complete #'custom-complete)
@ -389,8 +401,9 @@ strings to match candidates against (for example in the form \"package:sym\")."
(when *hist-file* (read-hist-file))
(handler-case (sbcli "" *prompt*)
(sb-sys:interactive-interrupt () (end))))
(in-package :ciel-user)
(handler-case (sbcli::sbcli "" sbcli::*prompt*)
(sb-sys:interactive-interrupt () (sbcli::end))))
;; When trying it out with --script:
;; (repl)