[STUMP] Initial input

[Manuel Giraud]

Implement initial input in 'read-one-line'. Cleaner and shorter than the
first version:

---8<-------------------------------------------
cvs diff: Diffing .
Index: input.lisp
===================================================================
RCS file: /cvsroot/stumpwm/stumpwm/input.lisp,v
retrieving revision 1.3
diff -r1.3 input.lisp
35c35
< (defun setup-input-window (screen prompt)
---
> (defun setup-input-window (screen prompt input)
47c47
<     (draw-input-bucket screen prompt "")
---
>     (draw-input-bucket screen prompt input)
76c76
< (defun read-one-line (screen prompt)
---
> (defun read-one-line (screen prompt &optional (initial-input ""))
79c79
<            (let (input)
---
>            (let ((input (coerce initial-input 'list)))
90c90
<     (setup-input-window screen prompt)
---
>     (setup-input-window screen prompt initial-input)
---8<-------------------------------------------

-- 
Manuel Giraud (CNRS/CETP)