Export LoL 3 symbols
[clinton/lisp-on-lines.git] / src / standard-wrappers.lisp
1 (in-package :lisp-on-lines)
2
3 ;;;;; Wrap a display in "back buttons"
4 (deflayer wrap-back-buttons)
5
6 (defdisplay (:in-layer
7 wrap-back-buttons
8 :combination :around)
9 (<ucw:a :class "wiz-button previous" :action (ok component t)
10 (<:as-html "Go Back"))
11 (<:div :style "clear:both;"
12 (call-next-method))
13 (<ucw:a :class "wiz-button previous" :action (ok component t)
14 (<:as-html "Go Back")))
15
16 ;;;; Wrap an object display in with a link to the object
17
18 (deflayer wrap-link)
19
20 (defdisplay (:in-layer
21 wrap-link
22 :combination :around)
23 (let ((layers (find-display-layers object)))
24 (<ucw:a :action (call-display component object
25 :type (find-display-type object)
26 :layers layers)
27
28 (call-next-method))))