Tidy up, update readme.

[emus.git] / emus.el

diff --git a/emus.el b/emus.el
index c96fa59..22ac2a8 100644 (file)
--- a/emus.el
+++ b/emus.el
@@ -149,15 +149,10 @@ be used by `emus--load-library'."
   "Kill any existing mpg123 process."
   (let ((emus-process (get-process "emus-process")))
     (if emus-process
-        (kill-process emus-process))))
-
-(defun emus-restart ()
-  "Restart emus, regardless of current state."
-  (interactive)
-  (emus-kill-process)
-  (setq emus-state 'stopped
-        emus--proc-in-use nil
-        emus-tracks nil))
+        (kill-process emus-process))
+    (setq emus-state 'stopped
+          emus--proc-in-use nil
+          emus-tracks nil)))
 
 ;;; Library
 ;;
@@ -765,13 +760,15 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha
 (defun emus-restart-browse ()
   "Restart the emus process, then refresh the browse window."
   (interactive)
-  (emus-restart)
+  (message "Restarting mpg123.")
+  (emus-kill-process)
   (run-at-time 0.1 nil #'emus-browse)) ;Slight delay to wait for kill signal to take effect
 
 (defun emus-restart-status ()
   "Restart the emus process, then display the status."
   (interactive)
-  (emus-restart)
+  (message "Restarting mpg123.")
+  (emus-kill-process)
   (run-at-time 0.1 nil #'emus-display-status)) ;Slight delay to wait for kill signal to take effect
 
 
@@ -793,7 +790,7 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha
     (define-key map (kbd ">") 'emus-jump-1m-forward-status)
     (define-key map (kbd "c") 'emus-goto-current-status)
     (define-key map (kbd "#") 'emus-toggle-progress-status)
-    (define-key map (kbd "!") 'emus-restart-refresh)
+    (define-key map (kbd "!") 'emus-restart-browse)
     (when (fboundp 'evil-define-key*)
       (evil-define-key* 'motion map
         (kbd "SPC") 'emus-playpause-status
@@ -812,7 +809,7 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha
         (kbd ">") 'emus-jump-1m-forward-status
         (kbd "c") 'emus-goto-current-status
         (kbd "#") 'emus-toggle-progress-status
-        (kbd "!") 'emus-restart-refresh))
+        (kbd "!") #'emus-restart-browse))
     map)
   "Keymap for emus browser.")