emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 9623625 02/28: hydra-ox.el (hydra-ox): Update parameter li


From: Oleh Krehel
Subject: [elpa] master 9623625 02/28: hydra-ox.el (hydra-ox): Update parameter list
Date: Sun, 22 Mar 2015 16:34:38 +0000

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

    hydra-ox.el (hydra-ox): Update parameter list
    
    The `defhydradio' spec for each parameter was updated to:
    
        (name &optional doc value)
    
    This way, it's easy to define this type of hydra:
    
    (defhydradio hydra-tng ()
      (picard "_p_ Captain Jean Luc Picard:")
      (riker "_r_ Commander William Riker:")
      (data "_d_ Lieutenant Commander Data:")
      (worf "_w_ Worf:")
      (la-forge "_f_ Geordi La Forge:")
      (troi "_t_ Deanna Troi:")
      (dr-crusher "_c_ Doctor Beverly Crusher:")
      (phaser "_h_ Set phasers to " [stun kill]))
    
    (defhydra hydra-tng (:color pink)
      (concat (hydra--table hydra-tng/names 7 2 '("  % -30s %% -3`%s" "%s 
%%`%s"))
              "\n\n")
      ("p" (hydra-tng/picard) nil)
      ("r" (hydra-tng/riker) nil)
      ("d" (hydra-tng/data) nil)
      ("w" (hydra-tng/worf) nil)
      ("f" (hydra-tng/la-forge) nil)
      ("t" (hydra-tng/troi) nil)
      ("c" (hydra-tng/dr-crusher) nil)
      ("h" (hydra-tng/phaser) nil)
      ("b" beam-down "beam down" :exit t)
      ("o" (hydra-reset-radios hydra-tng/names) "reset")
      ("q" nil "cancel"))
---
 hydra-ox.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/hydra-ox.el b/hydra-ox.el
index 4053081..5f1a5c9 100644
--- a/hydra-ox.el
+++ b/hydra-ox.el
@@ -27,11 +27,11 @@
 (require 'org)
 
 (defhydradio hydra-ox ()
-  (body-only)
-  (export-scope [buffer subtree])
-  (async-export)
-  (visible-only)
-  (force-publishing))
+  (body-only "Export only the body.")
+  (export-scope "Export scope." [buffer subtree])
+  (async-export "When non-nil, export async.")
+  (visible-only "When non-nil, export visible only")
+  (force-publishing "Toggle force publishing"))
 
 (defhydra hydra-ox-html (:color blue)
   "ox-html"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]