[Cl-darcs-cvs] r94 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Feb 15 23:49:19 2007
New Revision: 94

Modified:
   cl-darcs/trunk/get.lisp
   cl-darcs/trunk/pull.lisp
Log:
Print MOTD when getting and pulling


Modified: cl-darcs/trunk/get.lisp
==============================================================================
--- cl-darcs/trunk/get.lisp	(original)
+++ cl-darcs/trunk/get.lisp	Thu Feb 15 23:49:19 2007
@@ -35,6 +35,10 @@
 	 ;; We should probably download checkpoint patches, btw...
 	 (checkpoint (when partial
 		       (car (last (read-checkpoint-list repodir))))))
+    (let ((motd (get-preflist repodir "motd")))
+      (when motd
+	(format t "~{~&~A~}" motd)))
+
     ;; Create directories...
     (prepare-new-repo outname)
     (set-default-repo outname inrepodir)

Modified: cl-darcs/trunk/pull.lisp
==============================================================================
--- cl-darcs/trunk/pull.lisp	(original)
+++ cl-darcs/trunk/pull.lisp	Thu Feb 15 23:49:19 2007
@@ -26,6 +26,9 @@
     (unless theirrepo
       (error "No remote repositiory specified, and no default available.")))
   (add-to-preflist ourrepo "repos" theirrepo)
+  (let ((motd (get-preflist theirrepo "motd")))
+    (when motd
+      (format t "~{~&~A~}" motd)))
   (let ((our-patchinfo (read-repo-patch-list ourrepo))
 	(their-patchinfo (read-repo-patch-list theirrepo)))
     (multiple-value-bind (common only-ours only-theirs)