-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathhydra.el
72 lines (61 loc) · 3.1 KB
/
hydra.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
;;; hydra.el --- packages almost in core -*- lexical-binding: t -*-
(use-package hydra
:commands hydra-resize/body
:config
;; window resize hydra
(defhydra hydra-resize ()
("+" text-scale-increase "zoom-in")
("-" text-scale-decrease "zoom-out")
("h" (lambda () (interactive) (shrink-window-horizontally 10)) "-narrower-")
("l" (lambda () (interactive) (enlarge-window-horizontally 10)) "-wider")
("j" (lambda () (interactive) (shrink-window 10)) "|shorter|")
("k" (lambda () (interactive) (enlarge-window 10)) "|longer|")
;; ("H" (lambda () (interactive) (shrink-window-horizontally 10)) "-narrower-")
;; ("L" (lambda () (interactive) (enlarge-window-horizontally 10)) "-wider")
;; ("J" (lambda () (interactive) (shrink-window 10)) "|shorter|")
;; ("K" (lambda () (interactive) (enlarge-window 10)) "|longer|")
("=" balance-windows "balance")
("q" nil "quit"))
;; from here https://github.com/rgrinberg/edebug-hydra/blob/master/edebug-hydra.el
;;;###autoload (autoload 'hydra-edebug/body "edebug-hydra" nil t)
(defhydra hydra-edebug (:hint t :foreign-keys run)
("q" nil "quit")
("b" #'edebug-backtrace "backtrace" :column "common")
("-" #'negative-argument "neg argument" :column "common")
;; breaking
("I" #'edebug-instrument-callee "instrument callee" :column "break")
("x" #'edebug-set-breakpoint "set breakpoint" :column "break")
("X" #'edebug-unset-breakpoint "unset breakpoint" :column "break")
("N" #'edebug-next-breakpoint "next breakpoint" :column "break")
("c" #'edebug-set-conditional-breakpoint "conditional bp" :column "break")
("C" #'edebug-set-global-break-condition "global conditional bp"
:column "break")
;; navigation
("w" #'edebug-where "where" :column "common")
("z" #'edebug-bounce-point "bounce point" :column "common")
;; stepping
("h" #'edebug-goto-here "continue until point" :column "step")
("s" #'edebug-stop "stop" :column "step")
("o" #'edebug-step-out "step out" :column "step")
("i" #'edebug-step-in "step in" :column "step")
("f" #'edebug-forward "forward" :column "step")
;; sexp oriented
("l" #'edeug-forward-sexp "forward sexp" :column "sexp")
("e" #'edebug-eval-expression "eval expression" :column "sexp")
("E" #'edebug-eval-last-sexp "eval expression" :column "sexp")
("r" #'edebug-previous-result "previous result" :column "sexp")
(";" #'edebug-visit-eval-list "visit eval list" :column "sexp")
;; exiting
("a" #'abort-recursive-edit "abort recursive edit" :column "common")
("Q" #'edebug-top-level-nonstop "toplevel non stop" :column "common")
("S" #'edebug-stop "edebug stop" :column "common")
;; modes
("1" #'edebug-Go-nonstop-mode "go nonstop" :column "modes")
("2" #'edebug-go-mode "go until break" :column "modes")
("3" #'edebug-step-mode "step mode" :column "modes")
("4" #'edebug-next-mode "next mode" :column "modes")
("5" #'edebug-continue-mode "continue" :column "modes")
("6" #'edebug-Continue-fast-mode "continue fast" :column "modes")
("7" #'edebug-trace-mode "trace" :column "modes")
("8" #'edebug-Trace-fast-mode "trace fast" :column "modes")))
(provide 'config-hydra)