From 6daa930366395b306d0b6a36aa062be09a8694aa Mon Sep 17 00:00:00 2001
From: Brit Butler <redline6561@gmail.com>
Date: Tue, 3 Jun 2014 17:18:24 -0400
Subject: [PATCH] Fix some bugs in the incremental plugin.

---
 plugins/incremental.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/plugins/incremental.lisp b/plugins/incremental.lisp
index 4e30466..83bd1c6 100644
--- a/plugins/incremental.lisp
+++ b/plugins/incremental.lisp
@@ -4,7 +4,9 @@
 (defpackage :coleslaw-incremental
   (:use :cl)
   (:import-from :alexandria #:when-let)
-  (:import-from :coleslaw #:content
+  (:import-from :coleslaw #:*config*
+                          #:content
+                          #:index
                           #:discover
                           #:get-updated-files
                           #:find-content-by-path
@@ -13,8 +15,10 @@
                           ;; Private
                           #:all-subclasses
                           #:do-subclasses
+                          #:read-content
                           #:construct
                           #:rel-path
+                          #:repo
                           #:update-content-metadata)
   (:export #:enable))
 
@@ -36,7 +40,8 @@
   (let ((db-file (rel-path (user-homedir-pathname) ".coleslaw.db")))
     (setf coleslaw::*site* (cl-store:restore db-file))
     (loop for (status path) in (get-updated-files)
-       do (update-content status path))
+       for file-path = (rel-path (repo *config*) path)
+       do (update-content status file-path))
     (update-content-metadata)
     (do-subclasses (itype index)
       ;; Discover's before method will delete the possibly outdated indexes.