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

Merge branch 'master' of github.com:debanjum/semantic-search

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2021-09-30 04:17:32 -07:00
parent c200189385 5db08c5293
commit 516f28b082
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -45,13 +45,14 @@
:group 'semantic-search
:type 'integer)
(defun semantic-search--extract-entries-as-org (json-response)
(defun semantic-search--extract-entries-as-org (json-response query)
"Convert json response from API to org-mode entries"
;; 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"
(format "* %s\n%s"
query
(mapcar
(lambda (args) (format "%s" (cdr (assoc 'Entry args))))
json-response))))
@@ -110,7 +111,7 @@
(json-response (json-parse-buffer :object-type 'alist)))
(erase-buffer)
(insert
(cond ((or (equal search-type "notes") (equal search-type "music")) (semantic-search--extract-entries-as-org json-response))
(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))
((equal search-type "image") (semantic-search--extract-entries-as-images json-response query))
(t (format "%s" json-response)))))