From 0470175b6be382cf710667a6185a85dd17bff5b7 Mon Sep 17 00:00:00 2001 From: Raphael Roberts Date: Wed, 9 Oct 2019 17:11:53 -0500 Subject: [PATCH] Added meghanada-hydra --- settings.org | 36 +++++++++++++++++++++++++++++++++++- 1 file changed, 35 insertions(+), 1 deletion(-) diff --git a/settings.org b/settings.org index 9e6c478..9a20a2a 100644 --- a/settings.org +++ b/settings.org @@ -201,12 +201,46 @@ This handy function is a customized ripoff of custom-save-all (setq indent-tabs-mode nil) (setq meghanada-server-remote-debug t) (setq meghanada-javac-xlint "-Xlint:all,-processing") + (defhydra hydra-meghanada (:hint nil :exit t) + " + ^Edit^ ^Tast or Task^ + ^^^^^^------------------------------------------------------- + _f_: meghanada-compile-file _m_: meghanada-restart + _c_: meghanada-compile-project _t_: meghanada-run-task + _o_: meghanada-optimize-import _j_: meghanada-run-junit-test-case + _s_: meghanada-switch-test-case _J_: meghanada-run-junit-class + _v_: meghanada-local-variable _R_: meghanada-run-junit-recent + _i_: meghanada-import-all _r_: meghanada-reference + _g_: magit-status _T_: meghanada-typeinfo + _q_: exit + " + ("f" meghanada-compile-file) + ("m" meghanada-restart) + + ("c" meghanada-compile-project) + ("o" meghanada-optimize-import) + ("s" meghanada-switch-test-case) + ("v" meghanada-local-variable) + ("i" meghanada-import-all) + + ("g" magit-status) + + ("t" meghanada-run-task) + ("T" meghanada-typeinfo) + ("j" meghanada-run-junit-test-case) + ("J" meghanada-run-junit-class) + ("R" meghanada-run-junit-recent) + ("r" meghanada-reference) + + ("q" exit) + ("z" nil "leave")) :bind (:map meghanada-mode-map ("C-S-t" . meghanada-switch-testcase) ("M-RET" . meghanada-local-variable) ("M-r" . meghanada-reference) - ("M-t" . meghanada-typeinfo)) + ("M-t" . meghanada-typeinfo) + ("C-z" . hydra-meghanada/body)) :commands (meghanada-mode)) #+END_SRC