From 907c9983f65eac9dd2d2264b02db77d3d8f89c7a Mon Sep 17 00:00:00 2001
From: drewc <drewc@tech.coop>
Date: Thu, 5 Oct 2006 13:56:24 -0700
Subject: [PATCH] whitespace fixes

darcs-hash:20061005205624-39164-206674ae669bc65d167aad6f8b04d5af6babf35b.gz
---
 src/components/crud.lisp | 64 ++++++++++++++++++++--------------------
 1 file changed, 32 insertions(+), 32 deletions(-)

diff --git a/src/components/crud.lisp b/src/components/crud.lisp
index 7b72ca8..66ac06e 100644
--- a/src/components/crud.lisp
+++ b/src/components/crud.lisp
@@ -26,16 +26,16 @@
 	       :layers '(+ as-string)))))
 
 (defaction delete-instance ((self component) instance)
-    (when  (call 'option-dialog
-		 :message (format nil "Really Delete ~A" (display-as-string instance))
-		 :options '((t "Yes, really delete it,")
-			    (nil "No, i'll hold on to this one.")))
-      (let ((delete-failed (%delete-instance-and-return-nil instance)))
-	(if (not delete-failed)
-	(answer t)
-	(progn
-	  (call 'info-message :message delete-failed)
-	  (answer t))))))
+  (when  (call 'option-dialog
+	       :message (format nil "Really Delete ~A" (display-as-string instance))
+	       :options '((t "Yes, really delete it,")
+			  (nil "No, i'll hold on to this one.")))
+    (let ((delete-failed (%delete-instance-and-return-nil instance)))
+      (if (not delete-failed)
+	  (answer t)
+	  (progn
+	    (call 'info-message :message delete-failed)
+	    (answer t))))))
 
 
 (defmethod breadcrumb-name (component)
@@ -43,28 +43,28 @@
 
 (defun render-breadcrumb (self)
   (<:p :class "breadcrumb"
-      (let ((count 0)
-	    (trail-length 3))
-	(labels ((find-call-stack-for-crumbs (component list-of-parents)
-		   (cond ((and (not (null component))
-			       (> trail-length count))
-			  (incf count)		      
-			  (find-call-stack-for-crumbs
-			   (when (slot-boundp component 'ucw::calling-component)
-			     (slot-value component 'ucw::calling-component))
-			   (cons component list-of-parents)))
-			 (t
-			  list-of-parents))))
-	  (loop
-	     :for c
-	     :on (find-call-stack-for-crumbs self nil)
-	     :do (let ((c c))
-		   (<:as-html " / ")
-		   (if (cdr c)
-		       (<ucw:a
-			:action (answer-component (second c) nil)
-			(<:as-html (breadcrumb-name (first c))))
-		       (<:as-html (breadcrumb-name (first c))))))))))
+       (let ((count 0)
+	     (trail-length 3))
+	 (labels ((find-call-stack-for-crumbs (component list-of-parents)
+		    (cond ((and (not (null component))
+				(> trail-length count))
+			   (incf count)		      
+			   (find-call-stack-for-crumbs
+			    (when (slot-boundp component 'ucw::calling-component)
+			      (slot-value component 'ucw::calling-component))
+			    (cons component list-of-parents)))
+			  (t
+			   list-of-parents))))
+	   (loop
+	      :for c
+	      :on (find-call-stack-for-crumbs self nil)
+	      :do (let ((c c))
+		    (<:as-html " / ")
+		    (if (cdr c)
+			(<ucw:a
+			 :action (answer-component (second c) nil)
+			 (<:as-html (breadcrumb-name (first c))))
+			(<:as-html (breadcrumb-name (first c))))))))))
 
 (defcomponent crud ()
  ((instance :accessor instance :initarg :instance :initform nil))
-- 
2.20.1