From 59a7a3c9ae27e06537038c11927be113e65fab9b Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Sat, 28 May 2005 12:05:33 +0000
Subject: [PATCH] Add a package `completion-sets' and use it `nuit' and
 `plugin-host'

---
 scheme/nuit-packages.scm | 42 ++++++++++++++++++++++++++++++----------
 1 file changed, 32 insertions(+), 10 deletions(-)

diff --git a/scheme/nuit-packages.scm b/scheme/nuit-packages.scm
index 3ba727c..b363e5f 100644
--- a/scheme/nuit-packages.scm
+++ b/scheme/nuit-packages.scm
@@ -256,12 +256,13 @@
 (define-interface plugin-host-interface
   (export command-plugin-list
 	  view-plugin-list
+	  command-completions
 	  make-next-command-message
 	  make-init-with-result-message
 	  make-key-pressed-message
 	  make-print-message
 	  make-restore-message
-	  make-selection-message))
+	  make-selection-message))	  
 
 (define-structures
   ((plugin plugin-interface)
@@ -269,21 +270,40 @@
   (open scheme
 	define-record-types
 	let-opt
-	signals)
+	signals
+
+	completion-sets)
   (files plugins))
 
 ;;; focus table
 
-(define-interface focus-table-interface
-  (export make-empty-focus-table
-	  add-focus-object
-	  get-focus-object))
+; (define-interface focus-table-interface
+;   (export make-empty-focus-table
+; 	  add-focus-object
+; 	  get-focus-object))
 
-(define-structure focus-table focus-table-interface
-  (open scheme
+; (define-structure focus-table focus-table-interface
+;   (open scheme
+; 	define-record-types
+; 	general-table)
+;   (files focus))
+
+;;; completion-sets
+
+(define-interface completion-set-interface
+  (export make-empty-completion-set
+	  make-completion-set
+	  adjoin-completion-set
+	  make-completion-set-for-executables
+	  completions-for
+	  completions-for-executables))
+
+(define-structure completion-sets completion-set-interface
+  (open scheme-with-scsh
 	define-record-types
-	general-table)
-  (files focus))
+	srfi-1
+	thread-fluids)
+  (files complete))
 
 ;;; nuit 
 
@@ -313,6 +333,8 @@
 	pps
 	history
         handle-fatal-error
+	completion-sets
+	select-list
 	;; the following modules are plugins
 	dirlist-view-plugin
 	process-view-plugin