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

Enable semantic search for songs in org-music

Browse Source 
Org-Music: https://github.com/debanjum/org-music
This commit is contained in:
Debanjum Singh Solanky
2021-08-29 03:07:36 -07:00
parent fd7888f3d4
commit 0263d4d068
3 changed files with 47 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,6 +65,7 @@
(defun semantic-search--buffer-name-to-search-type (buffer-name)
(let ((file-extension (file-name-extension buffer-name)))
(cond
((equal buffer-name "Music.org") "music")
((equal file-extension "bean") "ledger")
((equal file-extension "org") "notes")
(t "notes"))))
@@ -90,10 +91,11 @@
(json-response (json-parse-buffer :object-type 'alist)))
(erase-buffer)
(insert
(cond ((equal search-type "notes") (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))
((equal search-type "ledger") (semantic-search--extract-entries-as-ledger json-response))
(t (format "%s" json-response)))))
(cond ((equal search-type "notes") (org-mode))
((equal search-type "music") (progn (org-mode) (org-music-mode)))
(t (fundamental-mode)))
(read-only-mode t))
(switch-to-buffer buff)))