README.md: Update `hydra-zoom/body'

README.md

@@ -176,41 +176,21 @@ Here's what `hydra-zoom/body` looks like, if you're interested:
 
 The body can be accessed via `hydra-zoom/body'."
   (interactive)
-  (hydra-disable)
+  (hydra-default-pre)
-  (catch (quote hydra-disable)
+  (when hydra-is-helpful
-    (when hydra-is-helpful (hydra-zoom/hint))
+    (if hydra-lv
-    (setq hydra-last
+        (lv-message
-          (hydra-set-transient-map
+         (eval hydra-zoom/hint))
-           (setq hydra-curr-map
+      (message
-                 (quote
+       (eval hydra-zoom/hint))))
-                  (keymap (7 . hydra-keyboard-quit)
+  (hydra-set-transient-map
-                          (108 . hydra-zoom/text-scale-decrease)
+   hydra-zoom/keymap
-                          (103 . hydra-zoom/text-scale-increase)
+   (lambda nil
-                          (kp-subtract . hydra--negative-argument)
+     (hydra-keyboard-quit)
-                          (kp-9 . hydra--digit-argument)
+     nil)
-                          (kp-8 . hydra--digit-argument)
+   nil)
-                          (kp-7 . hydra--digit-argument)
+  (setq prefix-arg
-                          (kp-6 . hydra--digit-argument)
+        current-prefix-arg))
-                          (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))))
-           t (lambda nil (hydra-cleanup))))
-    (setq prefix-arg current-prefix-arg)))
 ```
 
 ## `awesome-map` and `awesome-binding`