The following example is from my own init.el configuration:
- (defhydra hydra-ecmus (:color red :hint nil
- :pre (emus-display-status)
- :post (message nil))
- "
- Volume: _-_/[_+__=_] (down/up) Tracks: _p_/_P_ (prev track/album) _n_/_N_ (next track/album)
- Playback: _SPC_ (play/pause) _o_ (stop) _,_/_._ (skip forward/backward) Browser: _b_ (open browser)
- "
- ("<ESC>" "quit" :color blue)
- ("q" "quit" :color blue)
- ("RET" "quit" :color blue)
- ("SPC" emus-playpause-status)
- ("p" emus-play-prev-status)
- ("n" emus-play-next-status)
- ("P" emus-play-prev-album-status)
- ("N" emus-play-next-album-status)
- ("," emus-jump-10s-backward-status)
- ("." emus-jump-10s-forward-status)
- ("-" emus-volume-down-status)
- ("+" emus-volume-up-status)
- ("=" emus-volume-up-status)
- ("o" emus-stop-status)
- ("!" emus-toggle-progress-status)
- ("b" emus-browse :color blue))
+ (defhydra hydra-ecmus (:color red :hint nil
+ :pre (emus-display-status)
+ :post (message nil))
+ "
+ Volume: _-_/[_+__=_] Tracks: _p_/_P_ _n_/_N_ (prev/next track/album) Progress: _#_
+ Playback: _SPC_ (play/pause) _o_ (stop) _,_/_._ (skip +/-) Browse: _b_ Restart: _!_
+ "
+ ("<ESC>" "quit" :color blue)
+ ("q" "quit" :color blue)
+ ("RET" "quit" :color blue)
+ ("SPC" emus-playpause-status)
+ ("p" emus-play-prev-status)
+ ("n" emus-play-next-status)
+ ("P" emus-play-prev-album-status)
+ ("N" emus-play-next-album-status)
+ ("," emus-jump-10s-backward-status)
+ ("." emus-jump-10s-forward-status)
+ ("<" emus-jump-1m-backward-status)
+ (">" emus-jump-1m-forward-status)
+ ("-" emus-volume-down-status)
+ ("+" emus-volume-up-status)
+ ("=" emus-volume-up-status)
+ ("o" emus-stop-status)
+ ("!" emus-restart-status)
+ ("#" emus-toggle-progress-status)
+ ("b" emus-browse :color blue))
(bind-key* (kbd "s-m") 'hydra-ecmus/body)
-
License
-------