mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-17 04:20:57 +01:00
83 lines
2.7 KiB
EmacsLisp
83 lines
2.7 KiB
EmacsLisp
(use-package emms
|
|
:defer nil
|
|
|
|
:config
|
|
(setq emms-source-file-default-directory "~/MP3"
|
|
emms-playlist-buffer-name "*Music*"
|
|
emms-player-mplayer-parameters '("-slave" "-quiet" "-really-quiet" "-novideo")
|
|
emms-toggle-repeat-playlist t
|
|
emms-toggle-random-playlist nil)
|
|
|
|
(emms-add-directory-tree "~/MP3/")
|
|
|
|
(require 'emms-player-simple)
|
|
(require 'emms-source-file)
|
|
(require 'emms-source-playlist)
|
|
(require 'emms-player-mplayer)
|
|
(require 'emms-browser)
|
|
|
|
(emms-browser-make-filter "recent"
|
|
(lambda (track) (< 30
|
|
(time-to-number-of-days
|
|
(time-subtract (current-time)
|
|
(emms-info-track-file-mtime track))))))
|
|
|
|
(emms-all)
|
|
(emms-default-players)
|
|
|
|
(defun tvd-emms-beginning-of-song
|
|
(interactive)
|
|
(emms-seek-to '00:00))
|
|
|
|
(defun audio-open-playlist (filename &optional wildcards)
|
|
"makes a new EMMS playlist buffer from the playlist of filename"
|
|
(interactive
|
|
(find-file-read-args "Find file: "
|
|
(confirm-nonexistent-file-or-buffer)))
|
|
(emms-playlist-new (file-name-base filename))
|
|
(switch-to-buffer (file-name-base filename))
|
|
(emms-playlist-set-playlist-buffer)
|
|
(emms-play-playlist filename))
|
|
|
|
(defun audio-create-playlist(name)
|
|
"Create a new audio playlist for EMMS player."
|
|
(interactive "sPlaylist name: ")
|
|
(emms-playlist-new name)
|
|
(switch-to-buffer name)
|
|
(emms-playlist-set-playlist-buffer name)
|
|
(let ((read-answer-short t)
|
|
(answer (read-answer "add [D]irectory or [F]ile? "
|
|
'(("dir" ?d "add dir")
|
|
("file" ?f "add file"))))
|
|
(done nil))
|
|
(message answer)
|
|
(cond
|
|
((equal answer "dir")
|
|
(emms-add-directory-tree (read-directory-name "Select directory:")))
|
|
((equal answer "file")
|
|
(while (not done)
|
|
;; FIXME: ask to continue
|
|
(emms-playlist-set-playlist-buffer name)
|
|
(let ((file (read-file-name "Select audio file:")))
|
|
(if file
|
|
(emms-add-file file)
|
|
(setq done t))))))
|
|
(emms-playlist-save 'native (expand-file-name (format "playlist-%s" name) "~/MP3"))
|
|
(emms-playlist-mode)))
|
|
|
|
:bind (:map emms-playlist-mode-map
|
|
( "<right>" . 'emms-seek-forward)
|
|
( "<left>" . 'emms-seek-backward)
|
|
( "<SPC>" . 'emms-pause)
|
|
( "c" . 'emms-playlist-set-playlist-buffer)
|
|
( "b" . 'tvd-emms-beginning-of-song)
|
|
( "r" . 'emms-toggle-repeat-track)
|
|
( "R" . 'emms-toggle-repeat-playlist)))
|
|
|
|
;; TODO: check consult-emms functions, already installed with elget)
|
|
|
|
(defalias 'audio 'emms)
|
|
|
|
(provide 'init-audio)
|
|
;;; init-audio.el ends here
|