projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changed face spec.
[riece]
/
lisp
/
riece-addon.el
diff --git
a/lisp/riece-addon.el
b/lisp/riece-addon.el
index
168b858
..
34796f1
100644
(file)
--- a/
lisp/riece-addon.el
+++ b/
lisp/riece-addon.el
@@
-55,7
+55,7
@@
'((((class color) (background dark))
(:foreground "PaleTurquoise" :italic t))
(t
'((((class color) (background dark))
(:foreground "PaleTurquoise" :italic t))
(t
- (
:italic t
)))
+ ()))
"Face used for displaying the disabled addon."
:group 'riece-addon-list-faces)
(defvar riece-addon-list-disabled-face 'riece-addon-list-disabled-face)
"Face used for displaying the disabled addon."
:group 'riece-addon-list-faces)
(defvar riece-addon-list-disabled-face 'riece-addon-list-disabled-face)
@@
-71,7
+71,7
@@
(defface riece-addon-list-uninstalled-face
'((t
(defface riece-addon-list-uninstalled-face
'((t
- (:
foreground "red"
)))
+ (:
italic t
)))
"Face used for displaying the uninstalled addon."
:group 'riece-addon-list-faces)
(defvar riece-addon-list-uninstalled-face 'riece-addon-list-uninstalled-face)
"Face used for displaying the uninstalled addon."
:group 'riece-addon-list-faces)
(defvar riece-addon-list-uninstalled-face 'riece-addon-list-uninstalled-face)
@@
-198,10
+198,9
@@
(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
+ (copy-sequence 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,11
+229,16
@@
#'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)))
+ (remprop addon 'riece-addon-insinuated)
+ (setq riece-addons (delq addon riece-addons)
+ riece-addon-dependencies (riece-resolve-addons
+ (copy-sequence riece-addons)))))
(if verbose
(message "Add-on %S is uninstalled" addon)))))
(defun riece-enable-addon (addon &optional verbose)
(if verbose
(message "Add-on %S is uninstalled" addon)))))
(defun riece-enable-addon (addon &optional verbose)
+ (unless (get addon 'riece-addon-insinuated)
+ (error "Add-on %S is not insinuated" addon))
(let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
(if (null enabled)
(if verbose
(let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
(if (null enabled)
(if verbose
@@
-247,6
+251,8
@@
(message "Add-on %S enabled" addon))))))
(defun riece-disable-addon (addon &optional verbose)
(message "Add-on %S enabled" addon))))))
(defun riece-disable-addon (addon &optional verbose)
+ (unless (get addon 'riece-addon-insinuated)
+ (error "Add-on %S is not insinuated" addon))
(let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
(if (null enabled)
(if verbose
(let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
(if (null enabled)
(if verbose