marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix some bugs in the incremental plugin.

Browse source
This commit is contained in:
Brit Butler 2014-06-03 17:18:24 -04:00
parent 1d18a32454
commit 6daa930366
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
plugins/incremental.lisp
View file

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