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

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

[elpa] master f877855 12/36: hydra-examples.el (org-agenda-cts): Add


From: Oleh Krehel
Subject: [elpa] master f877855 12/36: hydra-examples.el (org-agenda-cts): Add
Date: Sat, 22 Jul 2017 11:22:22 -0400 (EDT)

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

    hydra-examples.el (org-agenda-cts): Add
    
    Fixes #191
---
 hydra-examples.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/hydra-examples.el b/hydra-examples.el
index 413c937..f464ba1 100644
--- a/hydra-examples.el
+++ b/hydra-examples.el
@@ -291,6 +291,13 @@ _h_   _l_   _o_k        _y_ank
 ;; (global-set-key (kbd "C-x SPC") 'hydra-rectangle/body)
 
 ;;** Example 12: org-agenda-view
+(defun org-agenda-cts ()
+  (and (eq major-mode 'org-agenda-mode)
+       (let ((args (get-text-property
+                    (min (1- (point-max)) (point))
+                    'org-last-args)))
+         (nth 2 args))))
+
 (defhydra hydra-org-agenda-view (:hint none)
   "
 _d_: ?d? day        _g_: time grid=?g?  _a_: arch-trees



reply via email to

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