blob: 57e3ddc3ef3f8e787d6ec07d96d183bbab8b6149 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
