sij/khoj
1
0
Fork 0
mirror of https://github.com/khoj-ai/khoj.git synced 2024-11-27 09:25:06 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Allow semantic search on images from Emacs

Browse source 
Images are rendered inline a temporary org-mode buffer
This commit is contained in:
Debanjum Singh Solanky 2021-09-10 01:01:23 -07:00
parent 7d5514ecaa
commit 0e34c8f493
1 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/interface/emacs/semantic-search.el
View file

@ -40,6 +40,11 @@
:group 'semantic-search
:type 'string)
(defcustom semantic-search--image-width 156
"Width of rendered images returned by semantic search"
:group 'semantic-search
:type 'integer)
(defun semantic-search--extract-entries-as-org (json-response)
"Convert json response from API to org-mode entries"
;; remove leading (, ) or SPC from extracted entries string
@ -51,6 +56,17 @@
(lambda (args) (format "%s" (cdr (assoc 'Entry args))))
json-response))))
(defun semantic-search--extract-entries-as-images (json-response)
"Convert json response from API to org-mode entries with images"
;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string
"^[\(\) ]" ""
;; extract entries from response as single string and convert to entries
(format "* Results \n%s"
(mapcar
(lambda (args) (format "\n** \n [[%s]]" (cdr (assoc 'Entry args))))
json-response))))
(defun semantic-search--extract-entries-as-ledger (json-response)
"Convert json response from API to ledger entries"
;; remove leading (, ) or SPC from extracted entries string
@ -79,7 +95,7 @@
"Semantic search on org-mode content via semantic-search API"
(interactive "sQuery: ")
(let* ((default-type (semantic-search--buffer-name-to-search-type (buffer-name)))
(search-type (completing-read "Type: " '("notes" "ledger" "music") nil t default-type))
(search-type (completing-read "Type: " '("notes" "ledger" "music" "image") nil t default-type))
(url (semantic-search--construct-api-query query search-type))
(buff (get-buffer-create "*semantic-search*")))
;; get json response from api
@ -95,9 +111,14 @@
(insert
(cond ((or (equal search-type "notes") (equal search-type "music")) (semantic-search--extract-entries-as-org json-response))
((equal search-type "ledger") (semantic-search--extract-entries-as-ledger json-response))
((equal search-type "image") (semantic-search--extract-entries-as-images json-response))
(t (format "%s" json-response)))))
(cond ((equal search-type "notes") (org-mode))
((equal search-type "music") (progn (org-mode) (org-music-mode)))
((equal search-type "music") (progn (org-mode)
(org-music-mode)))
((equal search-type "image") (progn (org-mode)
(setq org-image-actual-width semantic-search--image-width)
(org-display-inline-images)))
(t (fundamental-mode)))
(read-only-mode t))
(switch-to-buffer buff)))