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

added redo to shortcuts

This commit is contained in:
demattia 2004-10-17 10:08:58 +00:00
parent 06ef0c8a1f
commit 33558ab23d
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
scheme/nuit-engine.scm
View File

@ -27,6 +27,7 @@
"Ctrl+x u:-/Unselect" "Ctrl+x u:-/Unselect"
"Ctrl+x p:Result-History->prev" "Ctrl+x p:Result-History->prev"
"Ctrl+x n:Result-History->next" "Ctrl+x n:Result-History->next"
"Ctrl+x r:Redo (Active Command)"
"Ctrl+f:Command-History->forward" "Ctrl+f:Command-History->forward"
"Ctrl+b:Command-History->back" "Ctrl+b:Command-History->back"
"Ctrl+a:First Pos of Line" "Ctrl+a:First Pos of Line"
@ -313,6 +314,27 @@
(set! c-x-pressed #f) (set! c-x-pressed #f)
(loop (paint)))) (loop (paint))))
;;C-x r -> redo
((= ch 114)
(if (or (> (length text-command) 2)
(not (equal? active-command "")))
(let ((command-string (string-append active-command
active-parameters))
(text (sublist text-command 0
(- (length text-command) 1))))
(begin
(switch restore-message)
(set! text-command (append text
(list command-string)))
(execute-command)
(set! command-history-pos (- (length text-command) 1))
(set! c-x-pressed #f)
(endwin)
(run)))
(begin
(set! c-x-pressed #f)
(loop (paint)))))
(else (else
(begin (begin
(if (= active-buffer 2) (if (= active-buffer 2)