X-Git-Url: https://njoseph.me/gitweb/nimcoon.git/blobdiff_plain/26229fac9c93a427a85e86b899ed54639116de9a..ff0a15bf2f06bd2380dce5c5584c5d871346a3c9:/nimcoon.el

diff --git a/nimcoon.el b/nimcoon.el
index 5146a91..90f15e4 100644
--- a/nimcoon.el
+++ b/nimcoon.el
@@ -1,5 +1,6 @@
 ;;; nimcoon.el -*- lexical-binding: t; -*-
 ;;;
+;;; Commentary
 ;;; Usage in Doom Emacs
 ;;; Place or symlink the file into ~/.doom.d/
 ;;; (load! "nimcoon")
@@ -19,6 +20,13 @@
   "Search by QUERY and play in NimCoon."
   (call-process "nimcoon" nil 0 nil args query))
 
+(defun nimcoon-search(args query)
+  "Search by QUERY with the given ARGS."
+  (with-output-to-temp-buffer "*NimCoon search results*"
+    (call-process "nimcoon" nil "*NimCoon search results*" t args query)
+    (with-current-buffer "*NimCoon search results*"
+      (org-mode))))
+
 ;;; Interactive functions
 (defun nimcoon-feeling-lucky-music(query)
   (interactive "sSearch query: ")
@@ -45,18 +53,12 @@
 (defun nimcoon-search-video(query)
   "Search for a video by QUERY."
   (interactive "sSearch query: ")
-  (with-output-to-temp-buffer "*NimCoon search results*"
-    (call-process "nimcoon" nil "*NimCoon search results*" t "--non-interactive" query)
-    (with-current-buffer "*NimCoon search results*"
-      (org-mode))))
+  (nimcoon-search "-n" query))
 
 (defun nimcoon-search-music(query)
   "Search for a video by QUERY."
   (interactive "sSearch query: ")
-  (with-output-to-temp-buffer "*NimCoon search results*"
-    (call-process "nimcoon" nil "*NimCoon search results*" t "--music" "--non-interactive" query)
-    (with-current-buffer "*NimCoon search results*"
-      (org-mode))))
+  (nimcoon-search "-nm" query))
 
 ;;; Keybindings
 (map! :leader
@@ -68,6 +70,8 @@
        (:prefix ("s" . "Search")
         :desc "Video" "v" #'nimcoon-search-video
         :desc "Music" "m" #'nimcoon-search-music)
-       :desc "Kill"  "k" #'nimcoon-kill-process
+       :desc "Kill"  "k" #'nimcoon-kill-background-processes
        :desc "Video" "v" #'nimcoon-feeling-lucky-video
        :desc "Music" "m" #'nimcoon-feeling-lucky-music))
+
+;;; nimcoon.el ends here