C-Keen's csirc added by C-Keen on Fri Dec 28 15:59:56 2012
(use apropos parley parley-auto-completion) ;(parley-debug #t) (let ((old (current-input-port))) (current-input-port (make-parley-port old))) (use srfi-14) (define (delete-last-word line pos) (let* ((del-pos (or (string-index-right line (char-set-union char-set:whitespace char-set:punctuation) pos) 0)) (left-part (if (> del-pos 0) (string-take line del-pos) "")) (npos (- pos (- pos del-pos)))) (values (string-append left-part (string-drop line pos)) npos))) (define (cw prompt in out line pos exit offset) (receive (l p) (delete-last-word line pos) (list prompt in out l p exit offset))) (add-key-binding! #\x17 cw) (completion-choices (lambda (input position last-word) (map symbol->string (apropos-list last-word)))) (word-class '(: (? (* any) whitespace) ($ (+ (~ "()[]"))))) (add-key-binding! #\tab auto-completion-handler)