Permalink
Browse files

log

The entire project log file can now be saved to disk for further
perusal and distribution.

> (save-log)
79934 bytes written to "/emerald-city/academy/data/log.txt"
  • Loading branch information...
1 parent 6ea8e86 commit 05a08a0dff785f651936f39ed4c8d49886604465 @whalliburton whalliburton committed Dec 7, 2011
Showing with 13 additions and 1 deletion.
  1. +1 −0 academy.asd
  2. +10 −0 log.lisp
  3. +2 −1 packages.lisp
View
1 academy.asd
@@ -22,5 +22,6 @@
(:file "turtle-graphics")
#+sbcl (:file "sbcl-nuts-and-bolts")
#+sbcl (:file "git")
+ #+sbcl (:file "log")
(:file "welcome")))
View
10 log.lisp
@@ -0,0 +1,10 @@
+(in-package :academy)
+
+(defun print-log ()
+ (princ (git '("log" "--reverse" "--format=format:%s%n%n%b%n---%n")))
+ nil)
+
+(defun save-log ()
+ "Save the entire log to a file for reading."
+ (with-output-to-data-file "log.txt"
+ (print-log)))
View
3 packages.lisp
@@ -18,4 +18,5 @@
sun
multiplication-table
peace
- turtle-race))
+ turtle-race
+ save-log))

0 comments on commit 05a08a0

Please sign in to comment.