From d2db3be0e3d4ad4b5b2b24802bc468dd5498032d Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 27 Dec 2023 10:13:55 +0200 Subject: Add gnosis-dev.el Functoins to make testing/development of gnosis-dev.el easier --- gnosis-dev.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 gnosis-dev.el diff --git a/gnosis-dev.el b/gnosis-dev.el new file mode 100644 index 0000000..57e3ddc --- /dev/null +++ b/gnosis-dev.el @@ -0,0 +1,21 @@ + +;; Random functions to make development/testing of gnosis.el easier + +;;; Code: + +(require 'gnosis) + +(defun gnosis-dev-test () + "Start testing env." + (interactive) + (let ((ask (y-or-n-p "Start development env?"))) + (if ask + (progn (setf gnosis-testing-dir (concat gnosis-dir "/testing")) + (unless (file-exists-p gnosis-testing-dir) + (make-directory gnosis-testing-dir)) + (setf gnosis-db (emacsql-sqlite-open (concat gnosis-testing-dir "/testing.db"))) + (gnosis-init)) + (setf gnosis-db (emacsql-sqlite-open (concat gnosis-dir "/" "gnosis.db")))))) + +(provide 'gnosis-dev) +;;; gnosis-dev.el ends here -- cgit v1.2.3