Update riece-addons when insinuate/uninstall.

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 168b858..a46fcb3 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -198,10 +198,8 @@
 
 (defun riece-insinuate-addon (addon &optional verbose)
   (unless (assq addon riece-addon-dependencies)
 
 (defun riece-insinuate-addon (addon &optional verbose)
   (unless (assq addon riece-addon-dependencies)

-    (setq riece-addon-dependencies (riece-resolve-addons
-                                   (cons addon
-                                         (mapcar #'car
-                                                 riece-addon-dependencies)))))
+    (setq riece-addons (cons addon riece-addons)
+         riece-addon-dependencies (riece-resolve-addons riece-addons)))

   (if (get addon 'riece-addon-insinuated)
       (if verbose
          (message "Add-on %S is already insinuated" addon))
   (if (get addon 'riece-addon-insinuated)
       (if verbose
          (message "Add-on %S is already insinuated" addon))


@@ -230,7 +228,8 @@
                         #'ignore))
            (setq riece-addon-dependencies
                  (delq entry riece-addon-dependencies))
                         #'ignore))
            (setq riece-addon-dependencies
                  (delq entry riece-addon-dependencies))

-           (put addon 'riece-addon-insinuated nil)))
+           (put addon 'riece-addon-insinuated nil)
+           (setq riece-addons (delq addon riece-addons))))

       (if verbose
          (message "Add-on %S is uninstalled" addon)))))
 
       (if verbose
          (message "Add-on %S is uninstalled" addon)))))