[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 5c2f420 06/28: hydra-examples.el: Fixup
From: |
Oleh Krehel |
Subject: |
[elpa] master 5c2f420 06/28: hydra-examples.el: Fixup |
Date: |
Sun, 22 Mar 2015 16:34:40 +0000 |
branch: master
commit 5c2f42023973505118fe6b900e8f62ab25dad91b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
hydra-examples.el: Fixup
---
hydra-examples.el | 52 ++++++++++++++++++++++++++--------------------------
1 files changed, 26 insertions(+), 26 deletions(-)
diff --git a/hydra-examples.el b/hydra-examples.el
index 50773b0..4bfa3be 100644
--- a/hydra-examples.el
+++ b/hydra-examples.el
@@ -85,6 +85,7 @@
;;** Example 4: toggle rarely used modes
(when (bound-and-true-p hydra-examples-verbatim)
+ (defvar whitespace-mode nil)
(global-set-key
(kbd "C-c C-v")
(defhydra hydra-toggle (:color blue)
@@ -167,7 +168,6 @@
_a_ abbrev-mode: %`abbrev-mode
_d_ debug-on-error: %`debug-on-error
_f_ auto-fill-mode: %`auto-fill-function
-_g_ golden-ratio-mode: %`golden-ratio-mode
_t_ truncate-lines: %`truncate-lines
_w_ whitespace-mode: %`whitespace-mode
@@ -175,7 +175,6 @@ _w_ whitespace-mode: %`whitespace-mode
("a" abbrev-mode nil)
("d" toggle-debug-on-error nil)
("f" auto-fill-mode nil)
- ("g" golden-ratio-mode nil)
("t" toggle-truncate-lines nil)
("w" whitespace-mode nil)
("q" nil "quit"))
@@ -188,30 +187,31 @@ _w_ whitespace-mode: %`whitespace-mode
;;
;; This means that you actually see the state of the mode that you're changing.
;;** Example 8: the whole menu for `Buffer-menu-mode'
-(defhydra hydra-buffer-menu (:color pink)
+(defhydra hydra-buffer-menu (:color pink
+ :hint nil)
"
- Mark Unmark Actions Search
--------------------------------------------------------------------------
(__)
+^Mark^ ^Unmark^ ^Actions^ ^Search
+^^^^^^^^-----------------------------------------------------------------
(__)
_m_: mark _u_: unmark _x_: execute _R_: re-isearch
(oo)
_s_: save _U_: unmark up _b_: bury _I_: isearch
/------\\/
-_d_: delete _g_: refresh _O_: multi-occur
/ | ||
-_D_: delete up _T_: files only: %
-28`Buffer-menu-files-only * /\\---/\\
-_~_: modified
~~ ~~
+_d_: delete ^ ^ _g_: refresh _O_: multi-occur
/ | ||
+_D_: delete up ^ ^ _T_: files only: %
-28`Buffer-menu-files-only^^ * /\\---/\\
+_~_: modified ^ ^ ^ ^ ^^
~~ ~~
"
- ("m" Buffer-menu-mark nil)
- ("u" Buffer-menu-unmark nil)
- ("U" Buffer-menu-backup-unmark nil)
- ("d" Buffer-menu-delete nil)
- ("D" Buffer-menu-delete-backwards nil)
- ("s" Buffer-menu-save nil)
- ("~" Buffer-menu-not-modified nil)
- ("x" Buffer-menu-execute nil)
- ("b" Buffer-menu-bury nil)
- ("g" revert-buffer nil)
- ("T" Buffer-menu-toggle-files-only nil)
- ("O" Buffer-menu-multi-occur nil :color blue)
- ("I" Buffer-menu-isearch-buffers nil :color blue)
- ("R" Buffer-menu-isearch-buffers-regexp nil :color blue)
+ ("m" Buffer-menu-mark)
+ ("u" Buffer-menu-unmark)
+ ("U" Buffer-menu-backup-unmark)
+ ("d" Buffer-menu-delete)
+ ("D" Buffer-menu-delete-backwards)
+ ("s" Buffer-menu-save)
+ ("~" Buffer-menu-not-modified)
+ ("x" Buffer-menu-execute)
+ ("b" Buffer-menu-bury)
+ ("g" revert-buffer)
+ ("T" Buffer-menu-toggle-files-only)
+ ("O" Buffer-menu-multi-occur:color blue)
+ ("I" Buffer-menu-isearch-buffers :color blue)
+ ("R" Buffer-menu-isearch-buffers-regexp :color blue)
("c" nil "cancel")
("v" Buffer-menu-select "select" :color blue)
("o" Buffer-menu-other-window "other-window" :color blue)
@@ -221,12 +221,12 @@ _~_: modified
;;** Example 9: s-expressions in the docstring
;; You can inline s-expresssions into the docstring like this:
(when (bound-and-true-p hydra-examples-verbatim)
- (eval-after-load 'dired
- (defhydra hydra-marked-items (dired-mode-map "")
- "
+ (require 'dired)
+ (defhydra hydra-marked-items (dired-mode-map "")
+ "
Number of marked items: %(length (dired-get-marked-files))
"
- ("m" dired-mark "mark"))))
+ ("m" dired-mark "mark")))
;; This results in the following dynamic docstring:
;;
- [elpa] master updated (af29d76 -> 5aa7896), Oleh Krehel, 2015/03/22
- [elpa] master 9623625 02/28: hydra-ox.el (hydra-ox): Update parameter list, Oleh Krehel, 2015/03/22
- [elpa] master b840227 03/28: Update `golden-ratio-mode' work-around, Oleh Krehel, 2015/03/22
- [elpa] master 77c8e40 01/28: Add option to specify :hint in body, Oleh Krehel, 2015/03/22
- [elpa] master 88c7dc4 04/28: Fix wrong type argument in hydra-timeout, Oleh Krehel, 2015/03/22
- [elpa] master 5c2f420 06/28: hydra-examples.el: Fixup,
Oleh Krehel <=
- [elpa] master 58075f5 08/28: hydra-examples.el (hydra-buffer-menu): Fix example, Oleh Krehel, 2015/03/22
- [elpa] master bca2441 07/28: Makefile: Simplify, Oleh Krehel, 2015/03/22
- [elpa] master a867927 05/28: "C-g" (`hydra-keyboard-quit' ) should run :post, Oleh Krehel, 2015/03/22
- [elpa] master 7f4c835 11/28: README.md: finish up the rules, Oleh Krehel, 2015/03/22
- [elpa] master 556db52 14/28: Wiki link to the "Home" page instead., Oleh Krehel, 2015/03/22
- [elpa] master c9432e8 12/28: README.md: describe docstring, Oleh Krehel, 2015/03/22
- [elpa] master 3c4b3fd 16/28: lv.el: Update truncation rules, Oleh Krehel, 2015/03/22
- [elpa] master 3f11348 13/28: README.md: Add toc, Oleh Krehel, 2015/03/22
- [elpa] master 5e8c7f2 18/28: hydra.el (hydra--format): Extend key regex with "; :", Oleh Krehel, 2015/03/22
- [elpa] master 3a77bf6 20/28: hydra-examples.el (hydra-apropos): Add., Oleh Krehel, 2015/03/22