update

archimag · Jun 23, 2009 · 62b34a1 · 62b34a1
1 parent bf359dd
commit 62b34a1
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/src/resources.lisp b/src/resources.lisp
@@ -0,0 +1,21 @@
+;;; resources.lisp
+
+(defpackage :planet.resource
+  (:use :cl)
+  (:export :css-file
+           :feed-icon/10x10
+           :feed-icon/14x14))
+
+(in-package :planet.resource)
+
+(defparameter *resource-dir* (merge-pathnames "resources/"
+                                              (asdf:component-pathname (asdf:find-system :planet))))
+
+(defun css-file ()
+  (merge-pathnames "planet.css" *resource-dir*))
+
+(defun feed-icon/10x10 ()
+  (merge-pathnames "feed-icon-10x10.png" *resource-dir*))
+
+(defun feed-icon/14x14 ()
+  (merge-pathnames "feed-icon-10x10.png" *resource-dir*))