Commit | Line | Data |
---|---|---|
d1b0ed7c DC |
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)))) |