klbr/khoj
1
0
Fork 0
mirror of https://github.com/khoaliber/khoj.git synced 2026-03-02 21:19:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve Rendering of Image Search Results in Emacs

Browse Source 
- Use shr to render image response from html in result buffer
  Earlier was using org-mode. But rendering HTML with shr seems cleaner
- Use Headings to Add highlights
- Use Random to Force fetch of Image. Similar to what was done for Web interface
- Remove trailing elisp brackets from response
- Show query match scores by image model for each image in results
This commit is contained in:
Debanjum Singh Solanky
2022-07-16 19:31:49 +04:00
parent 28ec9af589
commit 06b0c720d6
1 changed files with 23 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
src/interface/emacs/semantic-search.el
View File

@@ -61,13 +61,25 @@
"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 "* %s \n%s"
query
(mapcar
(lambda (args) (format "\n** \n [[%s%s]]" semantic-search--server-url (cdr (assoc 'entry args))))
json-response))))
"[\(\) ]$" ""
;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string
"^[\(\) ]" ""
;; extract entries from response as single string and convert to entries
(format "<html>\n<body>\n<h1>%s</h1>%s\n\n</body>\n</html>"
query
(mapcar
(lambda (args) (format
"\n\n<h2>Score: %s Meta: %s Image: %s</h2>\n\n<a href=\"%s%s\">\n<img src=\"%s%s?%s\" width=100 height=100>\n</a>"
(cdr (assoc 'score args))
(cdr (assoc 'metadata_score args))
(cdr (assoc 'image_score args))
semantic-search--server-url
(cdr (assoc 'entry args))
semantic-search--server-url
(cdr (assoc 'entry args))
(random 10000)))
json-response)))))
(defun semantic-search--extract-entries-as-ledger (json-response query)
"Convert json response from API to ledger entries"
@@ -118,15 +130,14 @@
(cond ((or (equal search-type "notes") (equal search-type "music")) (semantic-search--extract-entries-as-org json-response query))
((equal search-type "ledger") (semantic-search--extract-entries-as-ledger json-response query))
((equal search-type "image") (semantic-search--extract-entries-as-images json-response query))
(t (format "%s" json-response)))))
(t (format "%s" json-response))))
(cond ((equal search-type "notes") (org-mode))
((equal search-type "ledger") (beancount-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)))
((equal search-type "image") (progn (shr-render-region (point-min) (point-max))
(goto-char (point-min))))
(t (fundamental-mode))))
(read-only-mode t))
(switch-to-buffer buff)))