coleslaw/examples/dump-db.lisp

examples/dump-db.lisp (585 bytes)
1 (eval-when (:compile-toplevel :load-toplevel :execute)
2   (ql:quickload '(coleslaw cl-store)))
3 
4 (in-package :coleslaw)
5 
6 (defun main ()
7   (let ((db-file (rel-path (user-homedir-pathname) ".coleslaw.db")))
8     (format t "~%~%Coleslaw loaded. Attempting to load config file.~%")
9     (load-config "")
10     (format t "~%Config loaded. Attempting to load blog content.~%")
11     (load-content)
12     (format t "~%Content loaded. Attempting to dump content database.~%")
13     (cl-store:store *site* db-file)
14     (format t "~%Content database saved to ~s!~%~%" (namestring db-file))))
15 
16 (main)
17 (exit)