contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Start defining sqlite3 backend

This commit is contained in:
contrapunctus 2020-11-10 00:12:41 +05:30
parent 9b570e100f
commit 0e9c6b37d4
2 changed files with 55 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
elisp/chronometrist-migrate.el
View File

@ -21,7 +21,6 @@
(require 'chronometrist-common)
(require 'chronometrist-time)
(require 'chronometrist-plist-pp)
(require 'emacsql-sqlite3)
(defvar chronometrist-file)
(defvar chronometrist-migrate-table (make-hash-table :test #'equal))
@ -130,38 +129,6 @@ See `chronometrist-file' for a description."
chronometrist-migrate-table)))
(unless (zerop index) index)))))
(defun chronometrist-migrate-to-sqlite3 ()
(cl-loop with count = 0
for events being the hash-values of chronometrist-events do
(cl-loop for event in events do
(let* ((keywords (seq-filter #'keywordp event))
(values (seq-remove #'keywordp event))
(columns (mapcar (lambda (keyword)
(--> (symbol-name keyword)
(s-chop-prefix ":" it)
;; emacsql seems to automatically
;; convert dashes in column names
;; to underscores, so we do the
;; same, lest we get a "column
;; already exists" error
(replace-regexp-in-string "-" "_" it)
(intern it)))
keywords)))
;; ensure all keywords in this plist exist as SQL columns
(cl-loop for column in columns do
(let* ((pragma (emacsql chronometrist-migrate-db [:pragma (funcall table_info events)]))
(column-exists (cl-loop for column-spec in pragma thereis
(eq column (second column-spec)))))
(unless column-exists
(emacsql chronometrist-migrate-db [:alter-table events :add-column $i1] column))))
(emacsql chronometrist-migrate-db [:insert-into events [$i1] :values $v2]
(vconcat columns) (vconcat values)))
(incf count)
(when (zerop (% count 5))
(message "chronometrist-migrate-migrate - %s events converted" count)))
finally do
(message "chronometrist-migrate - finished converting %s events." count)))
(defun chronometrist-migrate (input-format output-format &optional input-file output-file)
"Migrate a Chronometrist file from INPUT-FORMAT to OUTPUT-FORMAT.
Prompt for INPUT-FILE and OUTPUT-FILE if not provided.")

56
elisp/chronometrist-sqlite3.el
View File

@ -3,7 +3,61 @@
;;; Commentary:
;;
(defvar chronometrist-sqlite3 (chronometrist-backend :name "sqlite3" :ext "sqlite3"))
(require 'emacsql-sqlite3)
(require 'chronometrist-backend)
(defclass chronometrist-sqlite3 (chronometrist-backend) nil)
(defvar chronometrist-sqlite3-backend (make-instance chronometrist-sqlite3 :name "sqlite3" :ext "sqlite3"))
;; # Migration #
(cl-defmethod chronometrist-backend-to-hash ((backend chronometrist-sqlite3) table))
(cl-defmethod chronometrist-backend-from-hash ((backend chronometrist-sqlite3) table)
(cl-loop with count = 0
for events being the hash-values of table do
(cl-loop for event in events do
(let* ((keywords (seq-filter #'keywordp event))
(values (seq-remove #'keywordp event))
(columns (mapcar (lambda (keyword)
(--> (symbol-name keyword)
(s-chop-prefix ":" it)
;; emacsql seems to automatically
;; convert dashes in column names
;; to underscores, so we do the
;; same, lest we get a "column
;; already exists" error
(replace-regexp-in-string "-" "_" it)
(intern it)))
keywords)))
;; ensure all keywords in this plist exist as SQL columns
(cl-loop for column in columns do
(let* ((pragma (emacsql chronometrist-migrate-db [:pragma (funcall table_info events)]))
(column-exists (cl-loop for column-spec in pragma thereis
(eq column (second column-spec)))))
(unless column-exists
(emacsql chronometrist-migrate-db [:alter-table events :add-column $i1] column))))
(emacsql chronometrist-migrate-db [:insert-into events [$i1] :values $v2]
(vconcat columns) (vconcat values)))
(incf count)
(when (zerop (% count 5))
(message "chronometrist-migrate-migrate - %s events converted" count)))
finally do
(message "chronometrist-migrate - finished converting %s events." count)))
;; # Queries #
(cl-defmethod chronometrist-backend-open-file ((backend chronometrist-sqlite3)))
(cl-defmethod chronometrist-backend-latest-record ((backend chronometrist-sqlite3)))
(cl-defmethod chronometrist-backend-current-task ((backend chronometrist-sqlite3)))
;; # Modifications #
(cl-defmethod chronometrist-backend-create-file ((backend chronometrist-sqlite3)))
(cl-defmethod chronometrist-backend-add-new ((backend chronometrist-sqlite3) plist))
(cl-defmethod chronometrist-backend-replace-last ((backend chronometrist-sqlite3) plist))
(provide 'chronometrist-sqlite3)