(setq addons (cdr addons)))
dependencies))
-(defun riece-resolve-addons (addons)
+(defun riece-resolve-addon-dependencies (addons)
(let ((pointer addons)
dependencies queue)
;; Uniquify, first.
(error "Circular add-on dependency found"))
(nreverse addons)))
+(defun riece-resolve-addons (addons)
+ (riece-resolve-addon-dependencies
+ (if (file-directory-p riece-addon-directory)
+ (append addons
+ (mapcar
+ (lambda (name)
+ (unless (file-directory-p
+ (expand-file-name name riece-addon-directory))
+ (intern (file-name-sans-extension name))))
+ (directory-files riece-addon-directory nil "\\`[^.]" t)))
+ addons)))
+
(defun riece-insinuate-addon (addon &optional verbose)
(require addon) ;implicit dependency
(funcall (intern (concat (symbol-name addon) "-insinuate")))