blob: 0911df409fd9bab3387a07153b07efc8a13deb05 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
(require 'f)
(require 'json)
(require 'simple-httpd)
(defvar org-roam-ui/root-dir
(concat
(file-name-directory
(f-full (or
load-file-name
buffer-file-name))) "."))
(setq org-roam-ui/app-build-dir (expand-file-name "./web-build/" org-roam-ui/root-dir))
(define-minor-mode
org-roam-ui-mode
"Start the http API for org-roam-ui."
:lighter ""
:global t
:group 'org-roam-ui
:init-value nil
(cond
(org-roam-ui-mode
(setq-local httpd-port 35901)
(setq httpd-root org-roam-ui/app-build-dir)
(httpd-start))
(t
(httpd-stop))))
(defservlet* graph application/json ()
(let* (
(nodes-db-rows (org-roam-db-query `[:select [*] :from nodes]))
(links-db-rows (org-roam-db-query `[:select [*] :from links :where (= type "id")]))
(response (json-encode (list
(cons 'nodes (mapcar 'nodes-row-to-cons nodes-db-rows))
(cons 'links (mapcar 'links-row-to-cons links-db-rows))))))
(progn
(insert response)
(httpd-send-header t "text/plain" 200 :Access-Control-Allow-Origin "*"))))
(defun nodes-row-to-cons (row)
(list
(cons 'id (elt row 0))
(cons 'file (elt row 1))
(cons 'title (elt row 8))))
(defun links-row-to-cons (row)
(list
(cons 'source (elt row 1))
(cons 'target (elt row 2))))
(provide 'org-roam-ui)
|
