scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

What's directory-files.scm good for? Bah, looks crufty, don't care, throw away.

This commit is contained in:
eknauel 2005-05-30 19:21:20 +00:00
parent 345712d2da
commit 74d61ec7eb
1 changed files with 0 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
scheme/directory-files.scm
View File

@ -1,68 +0,0 @@
;;directory-files
;;---------------
;;Basically the result-object of this command is only a wrapper for a
;;"browse-dir-list"-object. The messages are simply handed over
(define-record-type dirfiles-res-obj dirfiles-res-obj
(make-dirfiles-res-obj browse-obj)
dirfiles-res-obj?
(browse-obj dirfiles-res-obj-browse-obj))
(define dir-files-receiver
(lambda (message)
(cond
((next-command-message? message)
(let* ((width (next-command-message-width message))
(browse-next-command-message
(make-next-command-message "browse-dir-list"
'("(directory-files)" "(cwd)")
width)))
(make-dirfiles-res-obj (browse-dir-list-receiver
browse-next-command-message))))
((print-message? message)
(let* ((model (message-result-object message))
(width (print-message-width message))
(browser (dirfiles-res-obj-browse-obj model))
(browse-print-message
(make-print-message "browse-dir-list"
browser
width)))
(browse-dir-list-receiver browse-print-message)))
((key-pressed-message? message)
(let* ((model (message-result-object message))
(key (key-pressed-message-key message))
(browser (dirfiles-res-obj-browse-obj model))
(browse-key-message
(make-key-pressed-message "browse-dir-list"
browser
key)))
(make-dirfiles-res-obj (browse-dir-list-receiver
browse-key-message))))
((restore-message? message)
(let* ((model (message-result-object message))
(browser (dirfiles-res-obj-browse-obj model))
(browse-restore-message
(make-restore-message "browse-dir-list"
browser)))
(browse-dir-list-receiver browse-restore-message)))
((selection-message? message)
(let* ((model (message-result-object message))
(browser (dirfiles-res-obj-browse-obj model))
(browse-sel-message
(make-selection-message "browse-dir-list"
browser)))
(browse-dir-list-receiver browse-sel-message)))
)))
;(register-plugin!
; (make-plugin "directory-files" dir-files-receiver))
; (register-plugin!
; (make-plugin "ls" dir-files-receiver))