emms setup

lisp/init-emms.el

@@ -239,7 +239,14 @@ If INPUT-P is t, `my-emms-playlist-random-track-keyword' is input by user."
   (emms-stop)
   (when (bufferp emms-playlist-buffer-name)
     (kill-buffer emms-playlist-buffer-name))
-  (emms-play-directory-tree my-music-root-directory)
+
+  (let ((m3u-files (my-lisp-find-file-or-directory my-music-root-directory ".*\\.m3u")))
+    (cond
+     ((car m3u-files)
+      (emms-play-playlist (car m3u-files)))
+     (t
+      (emms-play-directory-tree my-music-root-directory))))
+
   (unless no-shuffle-p
     (emms-shuffle))
   (emms-next))

lisp/init-utils.el

@@ -706,7 +706,7 @@ Copied from 3rd party package evil-textobj."
   "Visible window list."
   (cl-mapcan #'my-list-windows-in-frame (visible-frame-list)))
 
-(defun my-lisp-find-file-or-directory (root regexp prefer-directory-p)
+(defun my-lisp-find-file-or-directory (root regexp &optional prefer-directory-p)
   "Find files or directories in ROOT whose names match REGEXP.
 If PREFER-DIRECTORY-P is t, return directory; or else, returns file.
 This function is written in pure Lisp and slow."