30 lines
803 B
Scheme
30 lines
803 B
Scheme
(define-syntax run/strings-status
|
|
(syntax-rules ()
|
|
((_ epf)
|
|
(call-with-values
|
|
(lambda ()
|
|
(run/port+proc epf))
|
|
(lambda (port proc)
|
|
(let ((string-list (port->string-list port))
|
|
(status (wait proc)))
|
|
(close-input-port port)
|
|
(values string-list status)))))))
|
|
|
|
(define (directory-files . optional-args)
|
|
(let-optionals optional-args
|
|
((dir (cwd))
|
|
(dotfiles? #f))
|
|
(let ((abs-dir (absolute-file-name dir)))
|
|
(map (lambda (file)
|
|
(make-fs-object file abs-dir))
|
|
(scsh-directory-files abs-dir dotfiles?)))))
|
|
|
|
(define *focus-table* (make-empty-focus-table))
|
|
|
|
(define (focus-table)
|
|
*focus-table*)
|
|
|
|
(define (focus-value id)
|
|
(get-focus-object (focus-table) id))
|
|
|