* riece-addon.el (riece-resolve-addon-dependencies): Rename from
authorDaiki Ueno <ueno@unixuser.org>
Thu, 3 Feb 2005 03:17:22 +0000 (03:17 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Thu, 3 Feb 2005 03:17:22 +0000 (03:17 +0000)
riece-resolve-addon.
(riece-resolve-addon): Append add-ons under riece-addon-directory.

lisp/ChangeLog
lisp/riece-addon.el

index fa18dc7..92dd125 100644 (file)
@@ -1,3 +1,9 @@
+2005-02-03  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-addon.el (riece-resolve-addon-dependencies): Rename from
+       riece-resolve-addon.
+       (riece-resolve-addon): Append add-ons under riece-addon-directory.
+
 2005-02-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * riece-message.el (riece-display-message): When filter-function
 2005-02-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * riece-message.el (riece-display-message): When filter-function
index 5861006..f389349 100644 (file)
       (setq addons (cdr addons)))
     dependencies))
 
       (setq addons (cdr addons)))
     dependencies))
 
-(defun riece-resolve-addons (addons)
+(defun riece-resolve-addon-dependencies (addons)
   (let ((pointer addons)
        dependencies queue)
     ;; Uniquify, first.
   (let ((pointer addons)
        dependencies queue)
     ;; Uniquify, first.
        (error "Circular add-on dependency found"))
     (nreverse addons)))
 
        (error "Circular add-on dependency found"))
     (nreverse addons)))
 
+(defun riece-resolve-addon (addons)
+  (riece-resolve-addon-dependencies
+   (append addons
+          (mapcar
+           (lambda (name)
+             (intern (file-name-sans-extension name)))
+           (directory-files riece-addon-directory nil "\\`[^.]" t t)))))
+
 (defun riece-insinuate-addon (addon &optional verbose)
   (require addon)              ;implicit dependency
   (funcall (intern (concat (symbol-name addon) "-insinuate")))
 (defun riece-insinuate-addon (addon &optional verbose)
   (require addon)              ;implicit dependency
   (funcall (intern (concat (symbol-name addon) "-insinuate")))