commander-s/scheme/eval.scm

(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-ref id)
  (get-focus-object (focus-table) id))