("SPC" hydra-repeat "rep" :bind nil)))
'(progn
(set (defvar hydra-error/keymap nil "Keymap for hydra-error.")
- (quote (keymap (7 . hydra-keyboard-quit)
- (32 . hydra-repeat)
- (107 . hydra-error/previous-error)
- (106 . hydra-error/next-error)
- (104 . hydra-error/first-error)
- (switch-frame . hydra--handle-switch-frame)
- (kp-subtract . hydra--negative-argument)
- (kp-9 . hydra--digit-argument)
- (kp-8 . hydra--digit-argument)
- (kp-7 . hydra--digit-argument)
- (kp-6 . hydra--digit-argument)
- (kp-5 . hydra--digit-argument)
- (kp-4 . hydra--digit-argument)
- (kp-3 . hydra--digit-argument)
- (kp-2 . hydra--digit-argument)
- (kp-1 . hydra--digit-argument)
- (kp-0 . hydra--digit-argument)
- (57 . hydra--digit-argument)
- (56 . hydra--digit-argument)
- (55 . hydra--digit-argument)
- (54 . hydra--digit-argument)
- (53 . hydra--digit-argument)
- (52 . hydra--digit-argument)
- (51 . hydra--digit-argument)
- (50 . hydra--digit-argument)
- (49 . hydra--digit-argument)
- (48 . hydra--digit-argument)
- (45 . hydra--negative-argument)
- (21 . hydra--universal-argument))))
+ (quote (keymap (7 . hydra-keyboard-quit)
+ (32 . hydra-repeat)
+ (107 . hydra-error/previous-error)
+ (106 . hydra-error/next-error)
+ (104 . hydra-error/first-error)
+ (switch-frame . hydra--handle-switch-frame)
+ (kp-subtract . hydra--negative-argument)
+ (kp-9 . hydra--digit-argument)
+ (kp-8 . hydra--digit-argument)
+ (kp-7 . hydra--digit-argument)
+ (kp-6 . hydra--digit-argument)
+ (kp-5 . hydra--digit-argument)
+ (kp-4 . hydra--digit-argument)
+ (kp-3 . hydra--digit-argument)
+ (kp-2 . hydra--digit-argument)
+ (kp-1 . hydra--digit-argument)
+ (kp-0 . hydra--digit-argument)
+ (57 . hydra--digit-argument)
+ (56 . hydra--digit-argument)
+ (55 . hydra--digit-argument)
+ (54 . hydra--digit-argument)
+ (53 . hydra--digit-argument)
+ (52 . hydra--digit-argument)
+ (51 . hydra--digit-argument)
+ (50 . hydra--digit-argument)
+ (49 . hydra--digit-argument)
+ (48 . hydra--digit-argument)
+ (45 . hydra--negative-argument)
+ (21 . hydra--universal-argument))))
(defun hydra-error/first-error nil "Create a hydra with a \"M-g\" body and the heads:
\"h\": `first-error',
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-error/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-error/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(defun hydra-error/next-error nil "Create a hydra with a \"M-g\" body and the heads:
\"h\": `first-error',
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-error/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-error/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(defun hydra-error/previous-error nil "Create a hydra with a \"M-g\" body and the heads:
\"h\": `first-error',
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-error/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-error/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(unless (keymapp (lookup-key global-map (kbd "M-g")))
(define-key global-map (kbd "M-g")
nil))
(catch (quote hydra-disable)
(when hydra-is-helpful (hydra-error/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-error/keymap)
- t (lambda nil (hydra-cleanup))))
+ t (lambda nil (hydra-keyboard-quit))))
(setq prefix-arg current-prefix-arg)))))))
(ert-deftest hydra-blue-toggle ()
("q" nil "cancel")))
'(progn
(set (defvar hydra-toggle/keymap nil "Keymap for hydra-toggle.")
- (quote (keymap (7 . hydra-keyboard-quit)
- (113 . hydra-toggle/nil)
- (97 . hydra-toggle/abbrev-mode-and-exit)
- (102 . hydra-toggle/auto-fill-mode-and-exit)
- (116 . hydra-toggle/toggle-truncate-lines-and-exit)
- (switch-frame . hydra--handle-switch-frame)
- (kp-subtract . hydra--negative-argument)
- (kp-9 . hydra--digit-argument)
- (kp-8 . hydra--digit-argument)
- (kp-7 . hydra--digit-argument)
- (kp-6 . hydra--digit-argument)
- (kp-5 . hydra--digit-argument)
- (kp-4 . hydra--digit-argument)
- (kp-3 . hydra--digit-argument)
- (kp-2 . hydra--digit-argument)
- (kp-1 . hydra--digit-argument)
- (kp-0 . hydra--digit-argument)
- (57 . hydra--digit-argument)
- (56 . hydra--digit-argument)
- (55 . hydra--digit-argument)
- (54 . hydra--digit-argument)
- (53 . hydra--digit-argument)
- (52 . hydra--digit-argument)
- (51 . hydra--digit-argument)
- (50 . hydra--digit-argument)
- (49 . hydra--digit-argument)
- (48 . hydra--digit-argument)
- (45 . hydra--negative-argument)
- (21 . hydra--universal-argument))))
+ (quote (keymap (7 . hydra-keyboard-quit)
+ (113 . hydra-toggle/nil)
+ (97 . hydra-toggle/abbrev-mode-and-exit)
+ (102 . hydra-toggle/auto-fill-mode-and-exit)
+ (116 . hydra-toggle/toggle-truncate-lines-and-exit)
+ (switch-frame . hydra--handle-switch-frame)
+ (kp-subtract . hydra--negative-argument)
+ (kp-9 . hydra--digit-argument)
+ (kp-8 . hydra--digit-argument)
+ (kp-7 . hydra--digit-argument)
+ (kp-6 . hydra--digit-argument)
+ (kp-5 . hydra--digit-argument)
+ (kp-4 . hydra--digit-argument)
+ (kp-3 . hydra--digit-argument)
+ (kp-2 . hydra--digit-argument)
+ (kp-1 . hydra--digit-argument)
+ (kp-0 . hydra--digit-argument)
+ (57 . hydra--digit-argument)
+ (56 . hydra--digit-argument)
+ (55 . hydra--digit-argument)
+ (54 . hydra--digit-argument)
+ (53 . hydra--digit-argument)
+ (52 . hydra--digit-argument)
+ (51 . hydra--digit-argument)
+ (50 . hydra--digit-argument)
+ (49 . hydra--digit-argument)
+ (48 . hydra--digit-argument)
+ (45 . hydra--negative-argument)
+ (21 . hydra--universal-argument))))
(defun hydra-toggle/toggle-truncate-lines-and-exit nil "Create a hydra with no body and the heads:
\"t\": `toggle-truncate-lines',
(interactive)
(hydra-default-pre)
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(call-interactively (function toggle-truncate-lines))))
(defun hydra-toggle/auto-fill-mode-and-exit nil "Create a hydra with no body and the heads:
(interactive)
(hydra-default-pre)
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(call-interactively (function auto-fill-mode))))
(defun hydra-toggle/abbrev-mode-and-exit nil "Create a hydra with no body and the heads:
(interactive)
(hydra-default-pre)
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(call-interactively (function abbrev-mode))))
(defun hydra-toggle/nil nil "Create a hydra with no body and the heads:
(interactive)
(hydra-default-pre)
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)))
(defun hydra-toggle/hint nil
(if hydra-lv (lv-message (format #("toggle: [t]: truncate, [f]: fill, [a]: abbrev, [q]: cancel." 9 10 (face hydra-face-blue)
(catch (quote hydra-disable)
(when hydra-is-helpful (hydra-toggle/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-toggle/keymap)
- t (lambda nil (hydra-cleanup))))
+ t (lambda nil (hydra-keyboard-quit))))
(setq prefix-arg current-prefix-arg)))))))
(ert-deftest hydra-amaranth-vi ()
(hydra-default-pre)
(set-cursor-color "#e52b50")
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(call-interactively (function hydra-keyboard-quit))
(set-cursor-color "#ffffff")))
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-vi/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-vi/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(defun hydra-vi/previous-line nil "Create a hydra with no body and the heads:
\"\a\": `hydra-keyboard-quit',
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-vi/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-vi/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(defun hydra-vi/nil nil "Create a hydra with no body and the heads:
\"\a\": `hydra-keyboard-quit',
(hydra-default-pre)
(set-cursor-color "#e52b50")
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(set-cursor-color "#ffffff")))
(defun hydra-vi/hint nil
(catch (quote hydra-disable)
(when hydra-is-helpful (hydra-vi/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-vi/keymap)
- t (lambda nil (hydra-cleanup))))
+ t (lambda nil (hydra-keyboard-quit))))
(setq prefix-arg current-prefix-arg)))))))
(ert-deftest defhydradio ()
(hydra-disable)
(catch (quote hydra-disable)
(condition-case err (call-interactively (function (lambda nil (interactive)
- (text-scale-set 0))))
+ (text-scale-set 0))))
((quit error)
(message "%S" err)
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-zoom/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-zoom/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(defun hydra-zoom/lambda-0-and-exit nil "Create a hydra with no body and the heads:
\"r\": `(text-scale-set 0)',
(interactive)
(hydra-default-pre)
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(call-interactively (function (lambda nil (interactive)
- (text-scale-set 0))))))
+ (text-scale-set 0))))))
(defun hydra-zoom/hint nil
(if hydra-lv (lv-message (format #("zoom: [r 0]: reset." 7 8 (face hydra-face-red)
9 10 (face hydra-face-blue))))
(catch (quote hydra-disable)
(when hydra-is-helpful (hydra-zoom/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-zoom/keymap)
- t (lambda nil (hydra-cleanup))))
+ t (lambda nil (hydra-keyboard-quit))))
(setq prefix-arg current-prefix-arg)))))))
(ert-deftest hydra-zoom-duplicate-2 ()
(unless hydra-lv (sit-for 0.8))))
(when hydra-is-helpful (hydra-zoom/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-zoom/keymap)
- t (lambda nil (hydra-cleanup))))))
+ t (lambda nil (hydra-keyboard-quit))))))
(defun hydra-zoom/lambda-0-and-exit nil "Create a hydra with no body and the heads:
\"r\": `(text-scale-set 0)',
(interactive)
(hydra-default-pre)
(hydra-disable)
- (hydra-cleanup)
+ (hydra-keyboard-quit)
(catch (quote hydra-disable)
(call-interactively (function (lambda nil (interactive)
(text-scale-set 0))))))
(catch (quote hydra-disable)
(when hydra-is-helpful (hydra-zoom/hint))
(setq hydra-last (hydra-set-transient-map (setq hydra-curr-map hydra-zoom/keymap)
- t (lambda nil (hydra-cleanup))))
+ t (lambda nil (hydra-keyboard-quit))))
(setq prefix-arg current-prefix-arg)))))))
(ert-deftest hydra--pad ()