Add JSON.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
diff --git a/json.lisp b/json.lisp
index 3bdfaa7..fd46d58 100644
--- a/json.lisp
+++ b/json.lisp
@@ -20,16 +20,10 @@
;; JSON
-(defclass json-asset (js-asset) ())
+(defclass json-asset (asset) ())
(defmethod asset-ext ((asset json-asset))
'.json)
(defmethod asset-class-extensions ((class (eql 'json-asset)))
'(.json))
-
-(defmethod asset-include ((output stream)
- (context (eql :html))
- (asset json-asset)
- &key &allow-other-keys)
- (error "Don't know how to include JSON in HTML."))
diff --git a/lowh.triangle.assets.asd b/lowh.triangle.assets.asd
index b6ac349..4f6ae1c 100644
--- a/lowh.triangle.assets.asd
+++ b/lowh.triangle.assets.asd
@@ -40,8 +40,9 @@
(:file "asset" :depends-on ("config" "mime-types" "lib"))
(:file "find" :depends-on ("asset"))
(:file "font" :depends-on ("asset"))
+ (:file "json" :depends-on ("asset"))
(:file "precompile" :depends-on ("find"))
(:file "preprocess" :depends-on ("find"))
- (:file "css" :depends-on ("preprocess" "html"))
(:file "image" :depends-on ("asset" "html"))
+ (:file "css" :depends-on ("preprocess" "html"))
(:file "js" :depends-on ("preprocess" "html"))))