Add a package `completion-sets' and use it `nuit' and `plugin-host'

scheme/nuit-packages.scm

@@ -256,6 +256,7 @@
 (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
@@ -269,21 +270,40 @@
   (open scheme
 	define-record-types
 	let-opt
-	signals)
+	signals
+
+	completion-sets)
   (files plugins))
 
 ;;; focus table
 
-(define-interface focus-table-interface
+; (define-interface focus-table-interface
-  (export make-empty-focus-table
+;   (export make-empty-focus-table
-	  add-focus-object
+; 	  add-focus-object
-	  get-focus-object))
+; 	  get-focus-object))
 
-(define-structure focus-table focus-table-interface
+; (define-structure focus-table focus-table-interface
-  (open scheme
+;   (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)
+	srfi-1
-  (files focus))
+	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