marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Raise condition if the theme package cannot be found.

Browse source
This commit is contained in:
Willem Rein Oudshoorn 2013-04-12 15:45:53 +02:00
parent 8dc43ae256
commit 2c1c398581
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/themes.lisp
View file

@ -22,9 +22,17 @@ any return value other than nil indicates the injection should be added."
(list :head (injections-for :head) (list :head (injections-for :head)
:body (injections-for :body)))) :body (injections-for :body))))
(define-condition theme-does-not-exist-error (error)
((theme :initarg :theme :reader theme))
(:report (lambda (c stream)
(format stream "THEME-DOES-NOT-EXIST-ERROR cannot find theme: '~A'" (theme c)))))
(defun theme-package (name) (defun theme-package (name)
"Find the package matching the theme NAME." "Find the package matching the theme NAME.
(find-package (string-upcase (concatenate 'string "coleslaw.theme." name)))) It will signal an error when it cannot find the package for the theme."
(or (find-package (string-upcase (concatenate 'string "coleslaw.theme." name)))
(error 'theme-does-not-exist-error
:theme name)))
(defun theme-fn (name &optional (package (theme *config*))) (defun theme-fn (name &optional (package (theme *config*)))
"Find the symbol NAME inside PACKAGE which defaults to the theme package." "Find the symbol NAME inside PACKAGE which defaults to the theme package."