From 94f56cd473dfc950c9263753d3a991b92eff128e Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 20 Mar 2013 21:58:10 +0100
Subject: Initial commit

---
 clark.lisp | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 clark.lisp

(limited to 'clark.lisp')

diff --git a/clark.lisp b/clark.lisp
new file mode 100644
index 0000000..c233a5a
--- /dev/null
+++ b/clark.lisp
@@ -0,0 +1,39 @@
+(in-package :org.ryuslash.clark)
+
+(export '(clark))
+
+(defvar *db* nil
+  "The database connection.")
+
+(defun db-connect (name)
+  "Connect to the database, possibly creating it."
+  (let ((db-exists (probe-file name)))
+    (connect (list name) :database-type :sqlite3)
+    (unless db-exists
+      (create-view-from-class 'bookmark)
+      (create-view-from-class 'tag)
+      (create-view-from-class 'bookmark-tag))))
+
+(defun print-bookmark (bm)
+  "Print information about bookmark BM.
+
+BM should be a list containing the url and name of the bookmark."
+  (destructuring-bind (url name) bm
+    (format t "~A~%~A~%~%" url name)))
+
+(defun get-bookmarks ()
+  "Get a list of all bookmarks.
+
+The result contains the url and the name of the bookmark."
+  (loop
+     with statement = (prepare-statement
+                       *db* "select url, name from bookmark")
+     while (step-statement statement)
+     collect (list (statement-column-value statement 0)
+                   (statement-column-value statement 1))
+     finally (finalize-statement statement)))
+
+(defun clark ()
+  (setf *db* (connect "test.db"))
+  (map nil #'print-bookmark (get-bookmarks))
+  (disconnect *db*))
-- 
cgit v1.2.3-54-g00ecf