[clinton/lisp-on-lines.git] / src / standard-wrappers.lisp

(in-package :lisp-on-lines)

;;;;; Wrap a display in "back buttons"
(deflayer wrap-back-buttons)

(defdisplay object (:in-layer
	     wrap-back-buttons
	     :combination :around)
  (<ucw:a :class "wiz-button previous" :action (ok component t)
	  (<:as-html "Go Back"))
  (<:div :style "clear:both;"
	 (call-next-method))
  (<ucw:a :class "wiz-button previous" :action (ok component t)
	  (<:as-html "Go Back")))

;;;; Wrap an object display in with a link to the object

(deflayer wrap-link)

(defdisplay object (:in-layer
	     wrap-link
	     :combination :around)
  (let ((layers  (find-display-layers object)))
    (<ucw:a :action (call-display self object
				  :type (find-display-type object)
				  :layers layers)
				 
	    (call-next-method))))
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
87e47dd6	6	(defdisplay object (:in-layer
d1b0ed7c DC	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
87e47dd6	20	(defdisplay object (:in-layer
d1b0ed7c DC	21	wrap-link
	22	:combination :around)
	23	(let ((layers (find-display-layers object)))
87e47dd6	24	(<ucw:a :action (call-display self object
d1b0ed7c DC	25	:type (find-display-type object)
	26	:layers layers)
	27
	28	(call-next-method))))