+(defun riece-uninstall-addon (addon &optional verbose)
+ (if (not (get addon 'riece-addon-insinuated))
+ (if verbose
+ (message "Add-on %S is not insinuated" addon))
+ (let ((entry (assq addon riece-addon-dependencies))
+ (enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
+ (if entry
+ (if (cdr entry)
+ (if (= (length (cdr entry)) 1)
+ (error "%S depends %S" (car (cdr entry)) addon)
+ (error "%s depends %S" (mapconcat #'identity (cdr entry) ",")
+ addon))
+ (if (and enabled
+ (symbol-value enabled))
+ (riece-disable-addon addon verbose))
+ (funcall (or (intern-soft (concat (symbol-name addon)
+ "-uninstall"))
+ #'ignore))
+ (setq riece-addon-dependencies
+ (delq entry riece-addon-dependencies))
+ (put addon 'riece-addon-insinuated nil)))
+ (if verbose
+ (message "Add-on %S is uninstalled" addon)))))
+