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