scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor code clean-up, fix more redrawing stuff

This commit is contained in:
eknauel 2005-05-17 09:00:33 +00:00
parent 88e805e52a
commit 03ffcf8280
1 changed files with 62 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
scheme/nuit-engine.scm
View File

@ -333,9 +333,9 @@
(make-key-pressed-message active-command
current-result-object
ch)))
(begin
(set! current-result-object (switch key-message))
(loop (wait-for-input))))
(set! current-result-object (switch key-message))
(paint-result-window)
(loop (wait-for-input)))
(cond
@ -344,25 +344,22 @@
(let ((restore-message (make-restore-message
active-command
current-result-object)))
(begin
(switch restore-message)
(execute-command)
(set-buffer-history-pos!
command-buffer
(- (length (buffer-text command-buffer)) 1))
(paint-result-window)
(paint-bar-2)
(paint-command-window-contents)
(move-cursor command-buffer)
(loop (wait-for-input)))))
(else
(begin
(set! command-buffer (input command-buffer ch))
(switch restore-message)
(execute-command)
(set-buffer-history-pos!
command-buffer
(- (length (buffer-text command-buffer)) 1))
(paint-result-window)
(paint-bar-2)
(paint-command-window-contents)
(set! command-buffer
(move-cursor command-buffer))
(loop (wait-for-input)))))))))))
(move-cursor command-buffer)
(loop (wait-for-input))))
(else
(set! command-buffer (input command-buffer ch))
(paint-command-window-contents)
(move-cursor command-buffer)
(loop (wait-for-input))))))))))
(define (window-init-curses-win! window)
(set-app-window-curses-win!
@ -452,47 +449,43 @@
;;If the user presses enter the last line is interpreted as a command
;;which has to be executed.
(define execute-command
(lambda ()
(let* ((com (list-ref (buffer-text command-buffer)
(- (length (buffer-text command-buffer)) 1)))
(com-par (extract-com-and-par com))
(command (car com-par))
(parameters (cdr com-par))
;;todo: parameters
(message (make-next-command-message
command parameters result-cols))
(model (switch message)))
(begin
(if (not (= history-pos 0))
(let ((hist-entry (make-history-entry active-command
active-parameters
current-result-object))
(active (make-history-entry command
(get-param-as-str parameters)
model)))
(begin
(if (< history-pos (length history))
(set! history (append history (list hist-entry)))
(set! history (append
(sublist history 0
(- (length history) 1))
(list hist-entry) (list active))))
(set! history-pos (length history))))
(let ((hist-entry (make-history-entry
command
(get-param-as-str parameters) model)))
(begin
(set! history (list hist-entry))
(set! history-pos 1))))
(define (execute-command)
(let* ((com (list-ref (buffer-text command-buffer)
(- (length (buffer-text command-buffer)) 1)))
(com-par (extract-com-and-par com))
(command (car com-par))
(parameters (cdr com-par))
;;todo: parameters
(message (make-next-command-message
command parameters result-cols))
(model (switch message)))
(if (not (= history-pos 0))
(let ((hist-entry (make-history-entry active-command
active-parameters
current-result-object))
(active (make-history-entry command
(get-param-as-str parameters)
model)))
(if (< history-pos (length history))
(set! history (append history (list hist-entry)))
(set! history (append
(sublist history 0
(- (length history) 1))
(list hist-entry) (list active))))
(set! history-pos (length history)))
(let ((hist-entry (make-history-entry
command
(get-param-as-str parameters) model)))
(set! history (list hist-entry))
(set! history-pos 1)))
(set-buffer-text! command-buffer
(append (buffer-text command-buffer)
(list "")))
(set! active-command command)
(set! active-parameters (get-param-as-str parameters))
(set! current-result-object model)
(scroll-command-buffer)))))
(set-buffer-text! command-buffer
(append (buffer-text command-buffer)
(list "")))
(set! active-command command)
(set! active-parameters (get-param-as-str parameters))
(set! current-result-object model)
(scroll-command-buffer)))
;;Extracts the name of the function and its parameters
(define extract-com-and-par
@ -784,16 +777,14 @@
;;Cursor
;;move cursor to the corrct position
(define (move-cursor buffer)
(begin
(if (focus-on-command-buffer?)
(cursor-right-pos (app-window-curses-win command-window)
buffer)
(begin
(compute-y-x)
(wmove (app-window-curses-win result-window)
result-buffer-pos-y result-buffer-pos-x)
(wrefresh (app-window-curses-win result-window))
buffer))))
(if (focus-on-command-buffer?)
(cursor-right-pos (app-window-curses-win command-window)
buffer)
(begin
(compute-y-x)
(wmove (app-window-curses-win result-window)
result-buffer-pos-y result-buffer-pos-x)
(wrefresh (app-window-curses-win result-window)))))
;;compue pos-x and pos-y
(define compute-y-x