From 5535308fffdd58ac17937d676c096fe889acb77e Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Fri, 28 Dec 2012 20:24:20 +0100
Subject: Restructure

Put all source files in `src/' and add the `conkeror/' directory from
the old project.
---
 convert.scm | 51 ---------------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 convert.scm

(limited to 'convert.scm')

diff --git a/convert.scm b/convert.scm
deleted file mode 100644
index cb38385..0000000
--- a/convert.scm
+++ /dev/null
@@ -1,51 +0,0 @@
-;;; convert.scm -- Convert the old database into a new one
-(declare (uses paths))
-
-(require-extension sqlite3)
-(require-library srfi-4)
-
-(define (blob->seconds blob)
-  (if (u32vector? blob)
-      (u32vector-ref (blob->u32vector blob) 0)
-      0))
-
-(define (convert-table db name converter #!optional select)
-  (let ((count (first-result db (string-append "SELECT COUNT(*) FROM " name)))
-        (progress 0))
-    (for-each-row (lambda args
-                    (apply converter args)
-                    (set! progress (+ progress 1))
-                    (format #t "Converted ~s of ~s ~a rows\r~!" progress count name))
-                  db (or select (string-append "SELECT * FROM " name)))
-    (newline)))
-
-(define (convert)
-  (let ((old-db (open-database (data-file "linkwave.db")))
-        (new-db (open-database (data-file "nlinkwave.db"))))
-    (execute new-db "CREATE TABLE bookmark (url VARCHAR(255) UNIQUE, date INTEGER, name VARCHAR(255), description TEXT)")
-    (execute new-db "CREATE TABLE tag (name VARCHAR(255) UNIQUE)")
-    (execute new-db "CREATE TABLE bookmark_tag (bookmark_id INTEGER REFERENCES bookmark(rowid), tag_id INTEGER REFERENCES tag(rowid), PRIMARY KEY (bookmark_id, tag_id))")
-
-    (convert-table old-db "bookmark"
-                   (lambda (url dateblob name description)
-                     (execute new-db "INSERT INTO bookmark VALUES (?, ?, ?, ?)"
-                              url (blob->seconds dateblob) name description)))
-
-    (convert-table old-db "tag"
-                   (lambda (name)
-                     (execute new-db "INSERT INTO tag VALUES (?)" name)))
-
-    (convert-table old-db "bookmark_tag"
-                   (lambda (url tag)
-                     (execute new-db "INSERT INTO bookmark_tag VALUES (?, ?)"
-                              (first-result new-db "SELECT rowid FROM bookmark WHERE url = ?" url)
-                              (first-result new-db "SELECT rowid FROM tag WHERE name = ?" tag)))
-                   "SELECT url, name FROM bookmark_tag JOIN tag ON (tag_id = tag.rowid)")
-
-    (rename-file (data-file "linkwave.db") (data-file "old-linkwave.db"))
-    (rename-file (data-file "nlinkwave.db") (data-file "linkwave.db"))
-    (format #t "Database converted.~%")))
-
-(if (file-exists? "/home/slash/.local/share/linkwave/nlinkwave.db")
-    (format #t "Converted database already exists.~%")
-    (convert))
-- 
cgit v1.3-2-g0d8e