X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=emus.el;h=cfa674a86ea8b49a1142003d5b40738dbeb3d607;hb=2da3ca6418339e37c7ba8c801492b99ac6faed37;hp=84a9b9c6f8dcb776d25ba09adc73c60ec02464ed;hpb=d4eebf1137e4a66c79c107bdf763f44297d27be7;p=emus.git

diff --git a/emus.el b/emus.el
index 84a9b9c..cfa674a 100644
--- a/emus.el
+++ b/emus.el
@@ -57,11 +57,13 @@
   :type '(string))
 
 (defface emus-artist
-  '((t :inherit font-lock-string-face :background "#333"))
+  '(((background dark) :inherit font-lock-string-face :inverse-video t :extend t)
+    (t :inherit font-lock-string-face :background "#ddd" :extend t))
   "Face used for artist names in browser.")
 
 (defface emus-album
-  '((t :inherit font-lock-constant-face :background "#222"))
+  '(((background dark) :inherit font-lock-constant-face :inverse-video t :extend t)
+    (t :inherit font-lock-constant-face :background "#eee" :extend t))
   "Face used for album names in browser.")
 
 (defface emus-track
@@ -115,7 +117,6 @@ Used to prevent commands from interfering with library construction.")
         emus-process
       (let ((proc
              (make-process :name "emus-process"
-                           ;; :buffer (get-buffer-create "*emus-process*")
                            :command `(,emus-mpg123-program "-R"))))
         (set-process-query-on-exit-flag proc nil)
         (process-send-string proc "silence\n")
@@ -141,7 +142,10 @@ be used by `emus--load-library'."
 
 (defun emus-get-audio-files ()
   "Get all mp3 files in main emus directory."
-  (directory-files-recursively emus-directory ".*\\.mp3"))
+  (mapcar
+   (lambda (f)
+     (expand-file-name f))
+   (directory-files-recursively emus-directory ".*\\.mp3")))
 
 (defun emus-make-track (artist album title filename &optional pos)
   "Create an object representing an emus track.
@@ -238,7 +242,7 @@ by the filesystem."
 (defmacro emus--with-library (&rest body)
   "Evaluate BODY with the library initialized."
   `(if emus-tracks
-       (progn ,@body)
+       (unless emus--proc-in-use ,@body)
      (emus--load-library
       (lambda () ,@body))))