From f9ee146c9bf9a7808b3184feda4eed29a8bbf839 Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Wed, 1 Apr 2020 14:15:49 -0400 Subject: [PATCH] Make vuiet hydra sexy --- emacs/init.org | 37 +++++++++++++++++++++++++++---------- 1 file changed, 27 insertions(+), 10 deletions(-) diff --git a/emacs/init.org b/emacs/init.org index e58952a..b50e0ee 100755 --- a/emacs/init.org +++ b/emacs/init.org @@ -5777,16 +5777,7 @@ A music browser and player: (jdormit/define-prefix "av" "vuiet") (jdormit/define-prefix "avp" "player") (jdormit/define-prefix "avb" "browser") - (defhydra hydra-vuiet (:hint nil) - " - Player - ^^^^^^------------------------ - _s_top | _p_lay/pause | _n_ext - " - ("s" vuiet-stop :color blue) - ("p" vuiet-play-pause) - ("n" vuiet-next) - ("q" nil "quit" :color blue)) + :config (advice-add 'vuiet-update-mode-line :around (lambda (oldfn &rest args) @@ -5815,3 +5806,29 @@ A music browser and player: (vuiet-interactive-map "l" #'vuiet-play-loved-tracks) (vuiet-interactive-map "L" #'vuiet-play-loved-tracks-similar)) #+END_SRC + +And a handy hydra for it: +#+BEGIN_SRC emacs-lisp + (defhydra hydra-vuiet (:hint nil) + " + --- ^^ ^^ ^^ ^^ --- + +------------------/ / ^^ ^^ ^^ ^^+------------------/ / + | - ------- / / ^^ ^^ ^^ ^^| - ------- / / + |(-) .d########b. //)|+------------^^----------------^^------------^^-----+^^|(-) .d########b. //)| + | .d############// || ^^ ^^ ^^ |^^| .d############// | + | .d######''####//b. || ^^ ^^ ^^ |^^| .d######''####//b. | + | 9######( )#-//##P || ^^ ^^ ^^ |^^| 9######( )#-//##P | + | 'b######++#/-/##d' || ^^ ^^ ^^ |^^| 'b######++#/-/##d' | + | '9############P' || ^^ ^^ ^^ |^^| '9############P' | + | -'9a#######aP' || +---------^^+---------------^^--+---------^^--+ |^^| -'9a#######aP' | + | |-| `'''''' || | _s_top | _p_lay/pause | _n_ext | |^^| |-| `'''''' | + | ---..----------- || +---------^^+---------------^^--+---------^^--+ |^^| ---..----------- | + | |---||-----------| |+------------^^----------------^^------------^^-----+^^| |---||-----------| | + | | ^^ ^^ ^^ ^^| | + +--------------------+ [_q_]uit ^^ ^^ ^^ +--------------------+ + " + ("s" vuiet-stop :color blue) + ("p" vuiet-play-pause) + ("n" vuiet-next) + ("q" nil :color blue)) +#+END_SRC