aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--config/shepherd/init.d/my-daemons.scm14
-rw-r--r--config/shepherd/init.scm2
-rw-r--r--scratch/semgrep/semgrep.el4
3 files changed, 17 insertions, 3 deletions
diff --git a/config/shepherd/init.d/my-daemons.scm b/config/shepherd/init.d/my-daemons.scm
index 6388850..1b5daf8 100644
--- a/config/shepherd/init.d/my-daemons.scm
+++ b/config/shepherd/init.d/my-daemons.scm
@@ -16,3 +16,17 @@
#:log-file "/tmp/habits.log")
#:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
#:respawn? #t))
+
+(let ((workdir (string-append (getenv "HOME") "/dev/dotfiles/scratch/semgrep/")))
+ (register-services
+ (make <service>
+ #:docstring "Roam semantic DB"
+ #:provides '(roam-semantic-db)
+ #:start (make-forkexec-constructor
+ (list "python"
+ (string-append workdir "server.py"))
+ #:directory workdir
+ #:environment-variables (list (string-append "PATH=" (getenv "HOME") "/.virtualenvs/language/bin"))
+ #:log-file "/tmp/roam-semantic.log")
+ #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+ #:respawn? #t)))
diff --git a/config/shepherd/init.scm b/config/shepherd/init.scm
index c94b034..3d47bd4 100644
--- a/config/shepherd/init.scm
+++ b/config/shepherd/init.scm
@@ -22,4 +22,4 @@
;; Services to start when shepherd starts:
;; Add the name of each service that should be started to the list
;; below passed to 'for-each'.
-(for-each start '(habit-logs))
+(for-each start '(habit-logs roam-semantic-db))
diff --git a/scratch/semgrep/semgrep.el b/scratch/semgrep/semgrep.el
index 37ba800..a93803b 100644
--- a/scratch/semgrep/semgrep.el
+++ b/scratch/semgrep/semgrep.el
@@ -67,7 +67,7 @@
(org-element-map
(org-element-parse-buffer)
'paragraph
- (semgrep--prepare-paragraph (org-id-get (point-min))))
+ (semgrep--prepare-paragraph (org-id-get (point-min) 'create)))
(cl-coerce it 'vector)
;; (json-serialize it)
;; (f-write it 'utf-8 "/tmp/out.json")
@@ -123,7 +123,7 @@
(format "* [[file:%s::%d][%s]]\n" file pos title)
"- Distance :: " (number-to-string d) "\n"
paragraph ?\n)
- (fill-paragraph))))
+ (org-fill-paragraph))))
entry-distances entry-document entry-metadatas)))
distances documents metadatas)
(goto-char (point-min))