[elpa] master a4c4eb6 36/72: Add example for `Buffer-menu-mode'

[Oleh Krehel]

branch: master
commit a4c4eb6acbe2a2de689a11bd6cfe1bd5f8d476eb
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Add example for `Buffer-menu-mode'
---
 hydra-examples.el |   31 +++++++++++++++++++++++++++++++
 1 files changed, 31 insertions(+), 0 deletions(-)

diff --git a/hydra-examples.el b/hydra-examples.el
index 586bb2f..fbe77ee 100644
--- a/hydra-examples.el
+++ b/hydra-examples.el
@@ -187,6 +187,37 @@ _w_ whitespace-mode:   %`whitespace-mode
 ;;     "foobar %`abbrev-mode" means roughly (format "foobar %S" abbrev-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)
+  "
+  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                                                                  
             ~~   ~~
+"
+  ("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)
+  ("c" nil "cancel")
+  ("v" Buffer-menu-select "select" :color blue)
+  ("o" Buffer-menu-other-window "other-window" :color blue)
+  ("q" quit-window "quit" :color blue))
+;; Recommended binding:
+;; (define-key Buffer-menu-mode-map "." 'hydra-buffer-menu/body)
 
 ;;* Windmove helpers
 (require 'windmove)