Remove unused org-music as an indexable content type from Khoj

Org-music was just a custom content type that worked with org-music.
It was mostly only useful for me.

Cleaning up that code will reduce number of content types for khoj to
manage.

src/interface/emacs/khoj.el

@@ -95,8 +95,7 @@
                  (const "markdown")
                  (const "ledger")
                  (const "image")
-                 (const "pdf")
-                 (const "music")))
+                 (const "pdf")))
 
 
 ;; --------------------------
@@ -122,7 +121,6 @@
 (declare-function org-element-type "org-mode" (ELEMENT))
 (declare-function beancount-mode "beancount" ())
 (declare-function markdown-mode "markdown-mode" ())
-(declare-function org-music-mode "org-music" ())
 (declare-function which-key--show-keymap "which-key" (KEYMAP-NAME KEYMAP &optional PRIOR-ARGS ALL
 NO-PAGING FILTER))
 
@@ -142,9 +140,7 @@ NO-PAGING FILTER))
      (when (member 'image enabled-content-types)
        "C-x i  | image\n")
      (when (member 'pdf enabled-content-types)
-       "C-x p  | pdf\n")
-     (when (member 'music enabled-content-types)
-       "C-x M  | music\n"))))
+       "C-x p  | pdf\n"))))
 
 (defvar khoj--rerank nil "Track when re-rank of results triggered.")
 (defvar khoj--reference-count 0 "Track number of references currently in chat bufffer.")
@@ -152,7 +148,6 @@ NO-PAGING FILTER))
 (defun khoj--search-org () "Set content-type to `org-mode'." (interactive) (setq khoj--content-type "org"))
 (defun khoj--search-ledger () "Set content-type to `ledger'." (interactive) (setq khoj--content-type "ledger"))
 (defun khoj--search-images () "Set content-type to image." (interactive) (setq khoj--content-type "image"))
-(defun khoj--search-music () "Set content-type to music." (interactive) (setq khoj--content-type "music"))
 (defun khoj--search-pdf () "Set content-type to pdf." (interactive) (setq khoj--content-type "pdf"))
 (defun khoj--improve-rank () "Use cross-encoder to rerank search results." (interactive) (khoj--incremental-search t))
 (defun khoj--make-search-keymap (&optional existing-keymap)
@@ -170,8 +165,6 @@ NO-PAGING FILTER))
       (define-key kmap (kbd "C-x i") #'khoj--search-images))
     (when (member 'pdf enabled-content-types)
       (define-key kmap (kbd "C-x p") #'khoj--search-pdf))
-    (when (member 'music enabled-content-types)
-      (define-key kmap (kbd "C-x M") #'khoj--search-music))
     kmap))
 
 (defvar khoj--keymap nil "Track Khoj keymap in this variable.")
@@ -621,7 +614,6 @@ CONFIG is json obtained from Khoj config API."
   (let ((enabled-content-types (khoj--get-enabled-content-types))
         (file-extension (file-name-extension buffer-name)))
     (cond
-     ((and (member 'music enabled-content-types) (equal buffer-name "Music.org")) "music")
      ((and (member 'ledger enabled-content-types) (or (equal file-extension "bean") (equal file-extension "beancount"))) "ledger")
      ((and (member 'org enabled-content-types) (equal file-extension "org")) "org")
      ((and (member 'org enabled-content-types) (equal file-extension "pdf")) "pdf")
@@ -678,7 +670,7 @@ Render results in BUFFER-NAME using QUERY, CONTENT-TYPE."
           (json-response (json-parse-buffer :object-type 'alist)))
       (erase-buffer)
       (insert
-       (cond ((or (equal content-type "org") (equal content-type "music")) (khoj--extract-entries-as-org json-response query))
+       (cond ((equal content-type "org") (khoj--extract-entries-as-org json-response query))
              ((equal content-type "markdown") (khoj--extract-entries-as-markdown json-response query))
              ((equal content-type "pdf") (khoj--extract-entries-as-pdf json-response query))
              ((equal content-type "ledger") (khoj--extract-entries-as-ledger json-response query))
@@ -697,8 +689,6 @@ Render results in BUFFER-NAME using QUERY, CONTENT-TYPE."
             ((equal content-type "markdown") (progn (markdown-mode)
                                                     (visual-line-mode)))
             ((equal content-type "ledger") (beancount-mode))
-            ((equal content-type "music") (progn (org-mode)
-                                                (org-music-mode)))
             ((equal content-type "image") (progn (shr-render-region (point-min) (point-max))
                                                 (goto-char (point-min))))
             (t (fundamental-mode))))
@@ -920,7 +910,7 @@ RECEIVE-DATE is the message receive date."
   (remove-hook 'minibuffer-exit-hook #'khoj--teardown-incremental-search))
 
 (defun khoj-incremental ()
-  "Natural, Incremental Search for your personal notes, transactions and music."
+  "Natural, Incremental Search for your personal notes and documents."
   (interactive)
   (let* ((khoj-buffer-name (get-buffer-create khoj--search-buffer-name)))
     ;; switch to khoj results buffer
@@ -1014,7 +1004,7 @@ Paragraph only starts at first text after blank line."
   ;; set content type to: last used > based on current buffer > default type
   :init-value (lambda (obj) (oset obj value (format "--content-type=%s" (or khoj--content-type (khoj--buffer-name-to-content-type (buffer-name))))))
   ;; dynamically set choices to content types enabled on khoj backend
-  :choices (or (ignore-errors (mapcar #'symbol-name (khoj--get-enabled-content-types))) '("all" "org" "markdown" "pdf" "ledger" "music" "image")))
+  :choices (or (ignore-errors (mapcar #'symbol-name (khoj--get-enabled-content-types))) '("all" "org" "markdown" "pdf" "ledger" "image")))
 
 (transient-define-suffix khoj--search-command (&optional args)
   (interactive (list (transient-args transient-current-command)))