1 (in-package :lisp-on-lines
)
3 ;;;;; Wrap a display in "back buttons"
4 (deflayer wrap-back-buttons
)
9 (<ucw
:a
:class
"wiz-button previous" :action
(ok component t
)
10 (<:as-html
"Go Back"))
11 (<:div
:style
"clear:both;"
13 (<ucw
:a
:class
"wiz-button previous" :action
(ok component t
)
14 (<:as-html
"Go Back")))
16 ;;;; Wrap an object display in with a link to the object
20 (defdisplay (:in-layer
23 (let ((layers (find-display-layers object
)))
24 (<ucw
:a
:action
(call-display component object
25 :type
(find-display-type object
)