From 7d5514ecaafe0006859618115916463242b463e1 Mon Sep 17 00:00:00 2001 From: Debanjum Singh Solanky Date: Fri, 10 Sep 2021 00:54:10 -0700 Subject: [PATCH] Allow user to override inferred search type with other valid options --- src/interface/emacs/semantic-search.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/interface/emacs/semantic-search.el b/src/interface/emacs/semantic-search.el index 185e73e8..9ecef3c5 100644 --- a/src/interface/emacs/semantic-search.el +++ b/src/interface/emacs/semantic-search.el @@ -78,7 +78,8 @@ (defun semantic-search (query) "Semantic search on org-mode content via semantic-search API" (interactive "sQuery: ") - (let* ((search-type (semantic-search--buffer-name-to-search-type (buffer-name))) + (let* ((default-type (semantic-search--buffer-name-to-search-type (buffer-name))) + (search-type (completing-read "Type: " '("notes" "ledger" "music") nil t default-type)) (url (semantic-search--construct-api-query query search-type)) (buff (get-buffer-create "*semantic-search*"))) ;; get json response from api