;;;
;;; ~/.csirc
;;;

(use apropos parley parley-auto-completion srfi-14)

;(parley-debug #t)
(load-verbose #f)

(define parley-history-file
  (make-pathname (get-environment-variable "HOME")
		 ".parley.history"))

(history-max-lines 1000)

(let ((old (current-input-port)))
  (current-input-port
   (make-parley-port old 
		     history-file: parley-history-file)))

(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)




$ csi

CHICKEN
(c) 2008-2014, The Chicken Team
(c) 2000-2007, Felix L. Winkelmann
Version 4.9.0rc1 (rev 839d4e5)
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
compiled 2014-04-17 on hd-t1179cl (Linux)

; loading /home/mario/.csirc ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/apropos.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/chicken.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/foreign.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/srfi-1.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/srfi-13.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/irregex.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/data-structures.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/ports.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/extras.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/csi.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/miscmacros.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/memoized-string.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/lookup-table.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/srfi-69.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/type-checks.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/type-errors.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/record-variants.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/unicode-utils.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/symbol-utils.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/parley.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/posix.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/srfi-18.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/stty.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/foreigners.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/parley-auto-completion.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/srfi-14.import.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/apropos.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/regex.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/symbol-utils.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/type-checks.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/type-errors.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/memoized-string.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/lookup-table.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/unicode-utils.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/parley.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/stty.so ...
; loading /home/mario/local/chicken-4.9.0rc1/lib/chicken/7/parley-auto-completion.so ...
#;1> 
#;1> 
[panic] out of memory - heap full while resizing - execution terminated

...more...
parley.scm:410: g591
parley.scm:410: display
parley.scm:411: esc-seq
parley.scm:156: alist-ref
parley.scm:411: g593
parley.scm:411: display
parley.scm:412: esc-seq
parley.scm:156: alist-ref
parley.scm:412: g595
parley.scm:149: open-output-string
parley.scm:149: ##sys#check-output-port
parley.scm:149: ##sys#print
parley.scm:149: ##sys#print
parley.scm:149: ##sys#write-char-0
parley.scm:149: get-output-string
parley.scm:412: display         <--