|
@@ -201,6 +201,10 @@
|
|
|
((equal file "timeliner.css") +timeliner.css+)
|
|
((equal file "timeliner.css") +timeliner.css+)
|
|
|
(t (merge-pathnames (format nil "css/~A" file) *resources*))))
|
|
(t (merge-pathnames (format nil "css/~A" file) *resources*))))
|
|
|
|
|
|
|
|
|
|
+;;; parenscript macros
|
|
|
|
|
+(defpsmacro ! (&rest method-calls)
|
|
|
|
|
+ `(chain ,@method-calls))
|
|
|
|
|
+
|
|
|
(defparameter +timeliner.js+
|
|
(defparameter +timeliner.js+
|
|
|
(ps
|
|
(ps
|
|
|
;; Base app structure
|
|
;; Base app structure
|