diff --git a/NEWS.md b/NEWS.md index aabe513..0bb0ae2 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,9 @@ +## Changes for 0.9.5-dev (20xx): + +* Coleslaw now exports a `get-updated-files` function which can be + used to get a list of file-status/file-name pairs that were changed + in the last git push. + ## Changes for 0.9.4 (2014-05-05): * **SITE-BREAKING CHANGE**: Coleslaw now supports user-defined routing. diff --git a/coleslaw.asd b/coleslaw.asd index f7f4ab2..40ab023 100644 --- a/coleslaw.asd +++ b/coleslaw.asd @@ -1,7 +1,7 @@ (defsystem #:coleslaw :name "coleslaw" :description "Flexible Lisp Blogware" - :version "0.9.4" + :version "0.9.5-dev" :license "BSD" :author "Brit Butler " :pathname "src/" diff --git a/src/packages.lisp b/src/packages.lisp index af3b745..9084c48 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -10,7 +10,6 @@ (:export #:main #:preview #:*config* - #:*last-revision* #:content #:post #:index diff --git a/src/util.lisp b/src/util.lisp index 3ca3611..f5e3a09 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -97,7 +97,7 @@ along with any missing parent directories otherwise." :external-format '(:utf-8)) (write text :stream out :escape nil))) -(defun get-updated-files (revision) +(defun get-updated-files (&optional (revision *last-revision*)) "Return a plist of (file-status file-name) for files that were changed in the git repo since REVISION." (flet ((split-on-whitespace (str)