branch: externals/hydra
commit cf961400796aea8b385b64ac0ad31c1e2500cf6a
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
hydra-test.el: Regenerate tests for the last commit
Re #281
---
hydra-test.el | 134 +++++++++++++++++++++++++++++++---------------------------
1 file changed, 72 insertions(+), 62 deletions(-)
diff --git a/hydra-test.el b/hydra-test.el
index ec6a0c48ec..3ecfb047f8 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -104,16 +104,16 @@
31 32 (face hydra-face-red)
42 45 (face hydra-face-red)))))
(defun hydra-error/first-error nil
- "Create a hydra with a \"M-g\" body and the heads:
+ "Call the head `first-error' in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
\"h\": `first-error',
\"j\": `next-error',
\"k\": `previous-error',
\"SPC\": `hydra-repeat'
-The body can be accessed via `hydra-error/body'.
-
-Call the head: `first-error'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
(interactive)
(hydra-default-pre)
(let ((hydra--ignore t))
@@ -140,16 +140,16 @@ Call the head: `first-error'."
nil)
nil))
(defun hydra-error/next-error nil
- "Create a hydra with a \"M-g\" body and the heads:
+ "Call the head `next-error' in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
\"h\": `first-error',
\"j\": `next-error',
\"k\": `previous-error',
\"SPC\": `hydra-repeat'
-The body can be accessed via `hydra-error/body'.
-
-Call the head: `next-error'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
(interactive)
(hydra-default-pre)
(let ((hydra--ignore t))
@@ -176,16 +176,16 @@ Call the head: `next-error'."
nil)
nil))
(defun hydra-error/previous-error nil
- "Create a hydra with a \"M-g\" body and the heads:
+ "Call the head `previous-error' in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
\"h\": `first-error',
\"j\": `next-error',
\"k\": `previous-error',
\"SPC\": `hydra-repeat'
-The body can be accessed via `hydra-error/body'.
-
-Call the head: `previous-error'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
(interactive)
(hydra-default-pre)
(let ((hydra--ignore t))
@@ -225,14 +225,16 @@ Call the head: `previous-error'."
(quote
hydra-error/previous-error))
(defun hydra-error/body nil
- "Create a hydra with a \"M-g\" body and the heads:
+ "Call the body in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
\"h\": `first-error',
\"j\": `next-error',
\"k\": `previous-error',
\"SPC\": `hydra-repeat'
-The body can be accessed via `hydra-error/body'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
(interactive)
(hydra-default-pre)
(let ((hydra--ignore nil))
@@ -322,16 +324,16 @@ The body can be accessed via `hydra-error/body'."
35 36 (face hydra-face-blue)
48 49 (face hydra-face-blue)))))
(defun hydra-toggle/toggle-truncate-lines-and-exit nil
- "Create a hydra with no body and the heads:
+ "Call the head `toggle-truncate-lines' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
\"q\": `nil'
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `toggle-truncate-lines'."
+The body can be accessed via `hydra-toggle/body'."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
@@ -344,16 +346,16 @@ Call the head: `toggle-truncate-lines'."
(function
toggle-truncate-lines))))
(defun hydra-toggle/auto-fill-mode-and-exit nil
- "Create a hydra with no body and the heads:
+ "Call the head `auto-fill-mode' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
\"q\": `nil'
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `auto-fill-mode'."
+The body can be accessed via `hydra-toggle/body'."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
@@ -365,16 +367,16 @@ Call the head: `auto-fill-mode'."
(hydra--call-interactively-remap-maybe
(function auto-fill-mode))))
(defun hydra-toggle/abbrev-mode-and-exit nil
- "Create a hydra with no body and the heads:
+ "Call the head `abbrev-mode' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
\"q\": `nil'
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `abbrev-mode'."
+The body can be accessed via `hydra-toggle/body'."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
@@ -386,23 +388,25 @@ Call the head: `abbrev-mode'."
(hydra--call-interactively-remap-maybe
(function abbrev-mode))))
(defun hydra-toggle/nil nil
- "Create a hydra with no body and the heads:
+ "Call the head `nil' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
\"a\": `abbrev-mode',
\"q\": `nil'
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `nil'."
+The body can be accessed via `hydra-toggle/body'."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
(setq hydra-curr-body-fn
(quote hydra-toggle/body)))
(defun hydra-toggle/body nil
- "Create a hydra with no body and the heads:
+ "Call the body in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
\"t\": `toggle-truncate-lines',
\"f\": `auto-fill-mode',
@@ -494,15 +498,15 @@ The body can be accessed via `hydra-toggle/body'."
7 8 (face hydra-face-amaranth)
11 12 (face hydra-face-teal)))))
(defun hydra-vi/next-line nil
- "Create a hydra with no body and the heads:
+ "Call the head `next-line' in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
\"j\": `next-line',
\"k\": `previous-line',
\"q\": `nil'
-The body can be accessed via `hydra-vi/body'.
-
-Call the head: `next-line'."
+The body can be accessed via `hydra-vi/body'."
(interactive)
(hydra-default-pre)
(set-cursor-color "#e52b50")
@@ -530,15 +534,15 @@ Call the head: `next-line'."
(set-cursor-color "#ffffff"))
(quote warn)))
(defun hydra-vi/previous-line nil
- "Create a hydra with no body and the heads:
+ "Call the head `previous-line' in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
\"j\": `next-line',
\"k\": `previous-line',
\"q\": `nil'
-The body can be accessed via `hydra-vi/body'.
-
-Call the head: `previous-line'."
+The body can be accessed via `hydra-vi/body'."
(interactive)
(hydra-default-pre)
(set-cursor-color "#e52b50")
@@ -566,15 +570,15 @@ Call the head: `previous-line'."
(set-cursor-color "#ffffff"))
(quote warn)))
(defun hydra-vi/nil nil
- "Create a hydra with no body and the heads:
+ "Call the head `nil' in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
\"j\": `next-line',
\"k\": `previous-line',
\"q\": `nil'
-The body can be accessed via `hydra-vi/body'.
-
-Call the head: `nil'."
+The body can be accessed via `hydra-vi/body'."
(interactive)
(hydra-default-pre)
(set-cursor-color "#e52b50")
@@ -582,7 +586,9 @@ Call the head: `nil'."
(setq hydra-curr-body-fn
(quote hydra-vi/body)))
(defun hydra-vi/body nil
- "Create a hydra with no body and the heads:
+ "Call the body in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
\"j\": `next-line',
\"k\": `previous-line',
@@ -674,15 +680,15 @@ The body can be accessed via `hydra-vi/body'."
7 8 (face hydra-face-red)
9 10 (face hydra-face-blue)))))
(defun hydra-zoom/lambda-r nil
- "Create a hydra with no body and the heads:
+ "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
\"r\": `(text-scale-set 0)',
\"0\": `(text-scale-set 0)',
\"1\": `(text-scale-set 0)'
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
(interactive)
(hydra-default-pre)
(let ((hydra--ignore t))
@@ -709,15 +715,15 @@ Call the head: `(text-scale-set 0)'."
nil)
nil))
(defun hydra-zoom/lambda-0-and-exit nil
- "Create a hydra with no body and the heads:
+ "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
\"r\": `(text-scale-set 0)',
\"0\": `(text-scale-set 0)',
\"1\": `(text-scale-set 0)'
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
@@ -729,7 +735,9 @@ Call the head: `(text-scale-set 0)'."
(interactive)
(text-scale-set 0)))))
(defun hydra-zoom/body nil
- "Create a hydra with no body and the heads:
+ "Call the body in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
\"r\": `(text-scale-set 0)',
\"0\": `(text-scale-set 0)',
@@ -820,15 +828,15 @@ The body can be accessed via `hydra-zoom/body'."
7 8 (face hydra-face-red)
9 10 (face hydra-face-blue)))))
(defun hydra-zoom/lambda-r nil
- "Create a hydra with no body and the heads:
+ "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
\"r\": `(text-scale-set 0)',
\"0\": `(text-scale-set 0)',
\"1\": `(text-scale-set 0)'
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
(interactive)
(hydra-default-pre)
(let ((hydra--ignore t))
@@ -855,15 +863,15 @@ Call the head: `(text-scale-set 0)'."
nil)
nil))
(defun hydra-zoom/lambda-0-and-exit nil
- "Create a hydra with no body and the heads:
+ "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
\"r\": `(text-scale-set 0)',
\"0\": `(text-scale-set 0)',
\"1\": `(text-scale-set 0)'
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
(interactive)
(hydra-default-pre)
(hydra-keyboard-quit)
@@ -875,7 +883,9 @@ Call the head: `(text-scale-set 0)'."
(interactive)
(text-scale-set 0)))))
(defun hydra-zoom/body nil
- "Create a hydra with no body and the heads:
+ "Call the body in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
\"r\": `(text-scale-set 0)',
\"0\": `(text-scale-set 0)',
