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