[elpa] master 1eee0f3 18/36: hydra.el (hydra-get-property): New defun.

[Oleh Krehel]

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

    hydra.el (hydra-get-property): New defun.
    
    * hydra.el (hydra-set-property): Add doc.
---
 hydra.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/hydra.el b/hydra.el
index 67b1cb5..7166d32 100644
--- a/hydra.el
+++ b/hydra.el
@@ -782,6 +782,9 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
 (defvar hydra-props-alist nil)
 
 (defun hydra-set-property (name key val)
+  "Set hydra property.
+NAME is the symbolic name of the hydra.
+KEY and VAL are forwarded to `plist-put'."
   (let ((entry (assoc name hydra-props-alist))
         plist)
     (when (null entry)
@@ -790,6 +793,14 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
     (setq plist (cdr entry))
     (setcdr entry (plist-put plist key val))))
 
+(defun hydra-get-property (name key)
+  "Get hydra property.
+NAME is the symbolic name of the hydra.
+KEY is forwarded to `plist-get'."
+  (let ((entry (assoc name hydra-props-alist)))
+    (when entry
+      (plist-get (cdr entry) key))))
+
 (defun hydra-show-hint (hint caller)
   (let ((verbosity (plist-get (cdr (assoc caller hydra-props-alist))
                               :verbosity)))