From 74d61ec7ebfda548b0a88b518f0285a044da105f Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Mon, 30 May 2005 19:21:20 +0000
Subject: [PATCH] What's directory-files.scm good for? Bah, looks crufty, don't
 care, throw away.

---
 scheme/directory-files.scm | 68 --------------------------------------
 1 file changed, 68 deletions(-)
 delete mode 100644 scheme/directory-files.scm

diff --git a/scheme/directory-files.scm b/scheme/directory-files.scm
deleted file mode 100644
index ae9ba75..0000000
--- a/scheme/directory-files.scm
+++ /dev/null
@@ -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))