dired-add-to-smplayer-playlist

dired-add-to-smplayer-playlist.el

(defun dired-add-to-smplayer-playlist ()
  "Add a multimedia file or all multimedia files under a directory into SMPlayer's playlist via Dired."
  (interactive)
  (require 'cl)
  (let* (PATTERN FILE full-path-FILE n)
    (setq PATTERN "\\(\\.mp4\\|\\.flv\\|\\.rmvb\\|\\.mkv\\|\\.avi\\|\\.rm\\|\\.mp3\\|\\.wav\\|\\.wma\\|\\.m4a\\|\\.mpeg\\|\\.aac\\|\\.ogg\\|\\.flac\\|\\.ape\\|\\.mp2\\|\\.wmv\\)$")
    (setq FILE (dired-get-filename nil t))
    (setq n 0)
    (if (file-directory-p FILE)		;if it's a dir.
	(progn
	  (setq full-path-FILE (cl-loop for i in (directory-files FILE nil PATTERN)
					collect (concat FILE "/" i)))
	  (message "Opening %s files..." (list-length full-path-FILE)) 
	  (cl-loop for i in full-path-FILE
		   do (call-process "smplayer" nil 0 nil "-add-to-playlist" i)
		   (sit-for 0.1))	;Or playlist will be not in order.
	  (dired-next-line 1)
	  )
      (if (string-match PATTERN FILE)	;if it's a file
	  (progn 
	    (call-process "smplayer" nil 0 nil "-add-to-playlist" FILE)
	    (dired-next-line 1))
	(progn
	  (message "This is not a supported audio or video file.")
	  (dired-next-line 1))))))


    (define-key dired-mode-map (kbd "M-a") 'dired-add-to-smplayer-playlist)