tweak: beautify hydra menus

abougouffa · Jun 8, 2023 · d77704a · d77704a
1 parent f1c2442
commit d77704a
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 15 deletions.
diff --git a/modules/extras/me-realgud.el b/modules/extras/me-realgud.el
@@ -76,11 +76,14 @@
 ;;;###autoload(autoload '+realgud-hydra/body "../modules/extras/me-realgud" "Hydra keys for RealGUD." t)
 (defhydra +realgud-hydra (:color pink :hint nil :foreign-keys run)
   "
- Stepping  |  _n_: next      |  _i_: step    |  _o_: finish  |  _c_: continue  |  _R_: restart  |  _u_: until-here
- Revese    | _rn_: next      | _ri_: step    | _ro_: finish  | _rc_: continue  |
- Breakpts  | _ba_: break     | _bD_: delete  | _bt_: tbreak  | _bd_: disable   | _be_: enable   | _tr_: backtrace
- Eval      | _ee_: at-point  | _er_: region  | _eE_: eval    |
-           |  _!_: shell     | _Qk_: kill    | _Qq_: quit    | _Sg_: gdb       | _Ss_: start    | _Sr_: run
+[Flymake]                                                                                        [_q_] quit
+ ├───────────────────────────────────────────────────────────────────────────────────────────────────────╮
+ │ Stepping    [_n_] next        [_i_] step      [_o_] finish    [_c_] continue    [_R_] restart   [_u_] until-here  │
+ │ Revese     [_rn_] next       [_ri_] step     [_ro_] finish   [_rc_] continue                                  │
+ │ Breakpts   [_ba_] break      [_bD_] delete   [_bt_] tbreak   [_bd_] disable    [_be_] enable   [_tr_] backtrace   │
+ │ Eval       [_ee_] at-point   [_er_] region   [_eE_] eval                                                    │
+ │             [_!_] shell      [_Qk_] kill     [_Sg_] gdb      [_Ss_] start      [_Sr_] run                       │
+ ╰───────────────────────────────────────────────────────────────────────────────────────────────────────╯
 "
   ("n"  realgud:cmd-next)
   ("i"  realgud:cmd-step)
@@ -106,7 +109,7 @@
   ("Sg" realgud:gdb)
   ("Ss" +realgud:cmd-start)
   ("Sr" +realgud:cmd-run)
-  ("q"  nil "quit" :color blue) ;; :exit
+  ("q"  nil :color blue) ;; :exit
   ("Qq" realgud:cmd-quit :color blue)) ;; :exit
 
 ;;; me-realgud.el ends here
diff --git a/modules/me-prog.el b/modules/me-prog.el
@@ -320,15 +320,22 @@ the children of class at point."
     (add-hook 'xref-backend-functions #'dumb-jump-xref-activate 101))
   :config
   ;; Define Hydra keybinding (from the repo's examples)
-  (defhydra +dumb-jump-hydra (:color blue :columns 3)
-    "Dumb Jump."
-    ("j" dumb-jump-go "Go")
-    ("o" dumb-jump-go-other-window "Other window")
-    ("e" dumb-jump-go-prefer-external "Go external")
-    ("x" dumb-jump-go-prefer-external-other-window "Go external other window")
-    ("i" dumb-jump-go-prompt "Prompt")
-    ("l" dumb-jump-quick-look "Quick look")
-    ("b" dumb-jump-back "Back")))
+  (defhydra +dumb-jump-hydra (:color blue :hint nil :foreign-keys warn)
+    "
+[Dumb Jump]                                                                         [_q_] quit
+  ├─────────────────────────────────────────────────────────────────────────────────────────╮
+  │  [_j_] Go          [_o_] Go other window    [_e_] Go external   [_x_] Go external other window  │
+  │  [_i_] Go prompt   [_l_] Quici look         [_b_] Back                                        │
+  ╰─────────────────────────────────────────────────────────────────────────────────────────╯
+"
+    ("j" dumb-jump-go)
+    ("o" dumb-jump-go-other-window)
+    ("e" dumb-jump-go-prefer-external)
+    ("x" dumb-jump-go-prefer-external-other-window)
+    ("i" dumb-jump-go-prompt)
+    ("l" dumb-jump-quick-look)
+    ("b" dumb-jump-back)
+    ("q" nil :color blue)))
 
 (use-package hl-todo
   :straight (:host github :repo "tarsius/hl-todo")