-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathweblocks-jquery-js.lisp
More file actions
30 lines (25 loc) · 1.27 KB
/
weblocks-jquery-js.lisp
File metadata and controls
30 lines (25 loc) · 1.27 KB
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
;;;; weblocks-prototype-js.lisp
(in-package #:weblocks-jquery-js)
(defmethod weblocks-webapp-default-dependencies :around ((self weblocks-webapp))
(append
(when (equal (weblocks:weblocks-webapp-js-backend self) :jquery)
(weblocks-webapp-dependencies-for-backend self :jquery))
(call-next-method)))
(defmethod weblocks-webapp-dependencies-for-backend ((self weblocks-webapp) (backend (eql :jquery)))
(let ((base-path (weblocks::asdf-system-directory :weblocks-jquery-js)))
'((:script "jquery-1.8.2" :default t)
(:script "jquery-seq" :default t)
(:script "weblocks-jquery" :default t))))
(defmethod weblocks-webapp-init-dependencies-for-backend ((self weblocks-webapp) (backend (eql :jquery)))
(weblocks-utils:require-assets
"https://raw.github.com/html/weblocks-assets/master/jquery/1.8.2/"
:webapp self)
(weblocks-utils:require-assets
"https://raw.github.com/html/weblocks-assets/master/jquery-seq/0.0.3/"
:webapp self)
(weblocks-utils:require-assets
"https://raw.github.com/html/weblocks-assets/master/weblocks-jquery/0.2.0/"
:webapp self))
(defmethod initialize-webapp :after ((self weblocks-webapp))
(when (equal (weblocks-webapp-js-backend self) :jquery)
(weblocks-webapp-init-dependencies-for-backend self :jquery)))