(defun mdw-mpc-select (&optional arg interactivep)
(interactive (list current-prefix-arg t))
- (mdw-mpc-hack-lines arg interactivep 'mdw-mpc-select-one)
- (mpc-selection-refresh))
+ (mdw-mpc-hack-lines arg interactivep 'mdw-mpc-select-one))
(defun mdw-mpc-unselect (&optional arg interactivep)
(interactive (list current-prefix-arg t))
- (mdw-mpc-hack-lines arg interactivep 'mdw-mpc-unselect-one)
- (mpc-selection-refresh))
+ (mdw-mpc-hack-lines arg interactivep 'mdw-mpc-unselect-one))
(defun mdw-mpc-unselect-backwards (arg)
(interactive "p")
- (mdw-mpc-hack-lines (- arg) t 'mdw-mpc-unselect-one)
- (mpc-selection-refresh))
+ (mdw-mpc-hack-lines (- arg) t 'mdw-mpc-unselect-one))
(defun mdw-mpc-unselect-all ()
(interactive)
(beginning-of-line)
(forward-line (- arg)))
+(defun mdw-mpc-hack-tagbrowsers ()
+ (setq-local mode-line-format
+ '("%e"
+ mode-line-frame-identification
+ mode-line-buffer-identification)))
+(add-hook 'mpc-tagbrowser-mode-hook 'mdw-mpc-hack-tagbrowsers)
+
(eval-after-load "mpc"
'(progn
(define-key mpc-mode-map "m" 'mdw-mpc-select)
(define-key mpc-mode-map "\e\177" 'mdw-mpc-unselect-all)
(define-key mpc-mode-map "n" 'mdw-mpc-next-line)
(define-key mpc-mode-map "p" 'mdw-mpc-previous-line)
+ (define-key mpc-mode-map "/" 'mpc-songs-search)
(setq mpc-songs-mode-map (make-sparse-keymap))
(set-keymap-parent mpc-songs-mode-map mpc-mode-map)
(define-key mpc-songs-mode-map "l" 'mpc-playlist)
(define-key mpc-songs-mode-map "+" 'mpc-playlist-add)
- (define-key mpc-songs-mode-map "-" 'mpc-playlist-delete)))
+ (define-key mpc-songs-mode-map "-" 'mpc-playlist-delete)
+ (define-key mpc-songs-mode-map "\r" 'mpc-songs-jump-to)))
;;;--------------------------------------------------------------------------
;;; Inferior Emacs Lisp.