chiark / gitweb /
el/dot-emacs.el: Bind some additional MPC keys.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 20 Jul 2017 00:21:50 +0000 (01:21 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 20 Jul 2017 00:21:50 +0000 (01:21 +0100)
Search (didn't know that was there), and jump-to, which I lost when I
replaced the keymap.

el/dot-emacs.el

index 744b9c846a8991fc94ee846b1b18f596e7d43bcb..4c2af202959aa781fe07686404693ea67b5ab7e9 100644 (file)
@@ -3900,11 +3900,13 @@      (define-key mpc-mode-map "\177" 'mdw-mpc-unselect-backwards)
      (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.