16 lines
689 B
EmacsLisp
16 lines
689 B
EmacsLisp
;;; ~/.dotfiles/emacs/.config/doom/+mpd.el -*- lexical-binding: t; -*-
|
|
(defun mpdel-playlist-play ()
|
|
"Start playing the song at point."
|
|
(interactive)
|
|
(if (derived-mode-p 'mpdel-playlist-current-playlist-mode)
|
|
(libmpdel-play-song (navigel-entity-at-point))
|
|
(mpdel-core-insert-current-playlist)))
|
|
|
|
(map! :leader
|
|
(:prefix "-"
|
|
:desc "MPD Open playlist" "-" #'mpdel-playlist-open
|
|
:desc "MPD Remove at point" "d" #'mpdel-playlist-delete
|
|
:desc "MPD Start at point" "s" #'mpdel-playlist-play
|
|
:desc "MPD Next track" "n" #'libmpdel-playback-next
|
|
:desc "MPD Previous track" "p" #'libmpdel-playback-previous))
|