steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: New option to make listener's prompt non-readonly. 

By setting fuel-listener-prompt-read-only-p to nil, you'll be able to
delete (portions of) the prompt in the listener. This doesn't have
much value by itself, except that, moreover, a non-read-only prompt
makes some i/o operations work. E.g.:

 "input x:" print flush readln

will work with the new variable set to nil.
db4
Jose A. Ortega Ruiz 2010-07-31 20:04:00 +02:00
parent aab5db42d9
commit a4c37338fa
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
misc/fuel/fuel-listener.el
View File

@ -1,6 +1,6 @@
;;; fuel-listener.el --- starting the fuel listener ;;; fuel-listener.el --- starting the fuel listener
;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz ;; Copyright (C) 2008, 2009, 2010 Jose Antonio Ortega Ruiz
;; See http://factorcode.org/license.txt for BSD license. ;; See http://factorcode.org/license.txt for BSD license.
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
@ -69,6 +69,11 @@ buffer."
:type 'integer :type 'integer
:group 'fuel-listener) :group 'fuel-listener)
(defcustom fuel-listener-prompt-read-only-p t
"Whether listener's prompt should be read-only."
:type 'boolean
:group 'fuel-listener)
;;; Listener history: ;;; Listener history:
@ -82,11 +87,14 @@ buffer."
(insert "Press C-cz to bring me back.\n" )))))) (insert "Press C-cz to bring me back.\n" ))))))
(defun fuel-listener--history-setup () (defun fuel-listener--history-setup ()
(set (make-local-variable 'comint-input-ring-file-name) fuel-listener-history-filename) (set (make-local-variable 'comint-input-ring-file-name)
(set (make-local-variable 'comint-input-ring-size) fuel-listener-history-size) fuel-listener-history-filename)
(set (make-local-variable 'comint-input-ring-size)
fuel-listener-history-size)
(add-hook 'kill-buffer-hook 'comint-write-input-ring nil t) (add-hook 'kill-buffer-hook 'comint-write-input-ring nil t)
(comint-read-input-ring t) (comint-read-input-ring t)
(set-process-sentinel (get-buffer-process (current-buffer)) 'fuel-listener--sentinel)) (set-process-sentinel (get-buffer-process (current-buffer))
'fuel-listener--sentinel))
;;; Fuel listener buffer/process: ;;; Fuel listener buffer/process:
@ -236,7 +244,8 @@ the vocabulary name."
\\{fuel-listener-mode-map}" \\{fuel-listener-mode-map}"
(set (make-local-variable 'comint-prompt-regexp) fuel-con--prompt-regex) (set (make-local-variable 'comint-prompt-regexp) fuel-con--prompt-regex)
(set (make-local-variable 'comint-use-prompt-regexp) t) (set (make-local-variable 'comint-use-prompt-regexp) t)
(set (make-local-variable 'comint-prompt-read-only) t) (set (make-local-variable 'comint-prompt-read-only)
fuel-listener-prompt-read-only-p)
(fuel-listener--setup-completion) (fuel-listener--setup-completion)
(fuel-listener--setup-stack-mode)) (fuel-listener--setup-stack-mode))