diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2023-12-07 11:24:09 +0100 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2024-01-13 02:27:42 +0100 |
| commit | 2d9291a7f24268ce58a3d98a4ad9a16a05665df0 (patch) | |
| tree | f3f60fbf2e9345d43f25daf842126a25b834f389 | |
| parent | a7c7d9f0c29b7cb564d6eda2e6b11d3cdad2d351 (diff) | |
| download | dotfiles-2d9291a7f24268ce58a3d98a4ad9a16a05665df0.tar.gz dotfiles-2d9291a7f24268ce58a3d98a4ad9a16a05665df0.tar.bz2 dotfiles-2d9291a7f24268ce58a3d98a4ad9a16a05665df0.zip | |
run roam semantic search as shepherd daemon
| -rw-r--r-- | config/shepherd/init.d/my-daemons.scm | 14 | ||||
| -rw-r--r-- | config/shepherd/init.scm | 2 | ||||
| -rw-r--r-- | scratch/semgrep/semgrep.el | 4 |
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)) |