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)