From a7c7d9f0c29b7cb564d6eda2e6b11d3cdad2d351 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Fri, 1 Dec 2023 20:28:41 +0100
Subject: emacs client
---
scratch/semgrep/semgrep.el | 63 +++++++++++++++++++++++++++++-----------------
1 file changed, 40 insertions(+), 23 deletions(-)
(limited to 'scratch/semgrep')
diff --git a/scratch/semgrep/semgrep.el b/scratch/semgrep/semgrep.el
index 5752a20..37ba800 100644
--- a/scratch/semgrep/semgrep.el
+++ b/scratch/semgrep/semgrep.el
@@ -23,6 +23,9 @@
(require 'org-roam-db)
(require 'dash)
+;; Silence byte-compiler.
+(defvar url-http-end-of-headers)
+
(defun semgrep--connect (method data)
(let ((url-request-method "POST")
(url-request-extra-headers '(("Content-Type" . "application/json")))
@@ -35,15 +38,18 @@
(json-read))))
(defun semgrep--get-node-id (paragraph &optional default)
- (thread-first
- (org-element-map
- (org-element-property :parent paragraph)
- 'node-property
- (lambda (np)
- (org-element-property :value np)))
- (car)
- (org-string-nw-p)
- (or default)))
+ (-->
+ (org-element-map
+ (org-element-property :parent paragraph)
+ 'node-property
+ (lambda (np)
+ (cons
+ (org-element-property :key np)
+ (org-element-property :value np))))
+ (assoc 'ID it #'string=)
+ (cdr it)
+ (org-string-nw-p it)
+ (or it default)))
(defun semgrep--prepare-paragraph (file-id)
(lambda (paragraph)
@@ -66,7 +72,7 @@
;; (json-serialize it)
;; (f-write it 'utf-8 "/tmp/out.json")
;; (message "%S" it)
- (semgrep--connect :store it))
+ (semgrep--connect :insert it))
(user-error "This only works on org-mode")))
(defun semgrep--roam-data (entries)
@@ -76,12 +82,24 @@
entries)
(delete-dups)
(vconcat)
- (org-roam-db-query [:select [id title]
+ (org-roam-db-query [:select [id title file]
:from nodes
:where (in id $v1)])))
+(defun semgrep-pick-org-element ()
+ (when-let ((context (ignore-errors (org-element-context))))
+ (filter-buffer-substring (org-element-property :begin context)
+ (org-element-property :end context))))
+
+(defun semgrep--sync-db ()
+ (org-roam-dolist-with-progress (file (nreverse (org-roam-list-files)))
+ "importing to semantic search"
+ (org-roam-with-file file nil
+ (semgrep--add-buffer))))
+
+;; (semgrep--sync-db)
(defun semgrep-search (text)
- (interactive (list (or (thing-at-point 'paragraph)
+ (interactive (list (or (semgrep-pick-org-element)
(read-from-minibuffer "What are you looking for? "))))
(-let (((&alist 'distances 'documents 'metadatas)
(semgrep--connect :query text)))
@@ -94,23 +112,22 @@
(let ((data (semgrep--roam-data entry-metadatas)))
(cl-mapc
(lambda (d paragraph meta)
- (let* ((node-id (or (alist-get 'node-id meta) ""))
- (title (cadr (assoc node-id data #'string=))))
- (unless (zerop d)
+ (unless (zerop d)
+ (-let* ((node-id (alist-get 'node-id meta))
+ ((_ title file) (assoc node-id data #'string=))
+ (pos
+ (with-temp-buffer
+ (insert-file-contents file)
+ (line-number-at-pos (or (alist-get 'start-point meta) 1)))))
(insert
- (format "* [[id:%s][%s]]\n" node-id title)
+ (format "* [[file:%s::%d][%s]]\n" file pos title)
"- Distance :: " (number-to-string d) "\n"
- "- point :: " (number-to-string (or (alist-get 'start-point meta) -1)) "\n"
- (string-trim paragraph) ?\n))))
+ paragraph ?\n)
+ (fill-paragraph))))
entry-distances entry-document entry-metadatas)))
distances documents metadatas)
(goto-char (point-min))
(display-buffer (current-buffer)))))
-;; (org-roam-dolist-with-progress (file (org-roam-list-files))
-;; "importing to semantic search"
-;; (org-roam-with-file file nil
-;; (semgrep--add-buffer)))
-
(provide 'semgrep)
;;; semgrep.el ends here
--
cgit v1.2.3