[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
- [elpa] master updated (231ac7f -> 32b8352), Oleh Krehel, 2017/07/22
- [elpa] master 69529ad 01/36: hydra.el (hydra-default-hint): Add option, Oleh Krehel, 2017/07/22
- [elpa] master f01f4a4 04/36: hydra.el (hydra-key-regex): Extract from hydra--format, Oleh Krehel, 2017/07/22
- [elpa] master 83b9019 07/36: hydra.el (hydra-width-spec-regex): Update, Oleh Krehel, 2017/07/22
- [elpa] master 9fd53ba 08/36: hydra.el (hydra-doc-format-spec): New defcustom, Oleh Krehel, 2017/07/22
- [elpa] master f668f4c 06/36: hydra.el (hydra-key-regex): Add "↓←→⌫⌦⏎", Oleh Krehel, 2017/07/22
- [elpa] master f877855 12/36: hydra-examples.el (org-agenda-cts): Add,
Oleh Krehel <=
- [elpa] master 0a5074a 09/36: hydra.el (hydra--format): Avoid inf loops, Oleh Krehel, 2017/07/22
- [elpa] master 270b917 14/36: hydra.el (defhydra): Don't eval hints during the definition, Oleh Krehel, 2017/07/22
- [elpa] master 200a444 10/36: hydra.el (hydra--hint): Revert return "" for :hint nil, Oleh Krehel, 2017/07/22
- [elpa] master 798684a 13/36: hydra-examples.el: Don't byte-compile, Oleh Krehel, 2017/07/22
- [elpa] master 1eee0f3 18/36: hydra.el (hydra-get-property): New defun., Oleh Krehel, 2017/07/22
- [elpa] master 272dc4a 05/36: hydra.el (hydra-docstring-keys-translate-alist): Update, Oleh Krehel, 2017/07/22
- [elpa] master 5be27f4 02/36: Add a shortcut to supply a head's eval-able docstring, Oleh Krehel, 2017/07/22
- [elpa] master 585db09 17/36: hydra-examples.el: Add example of setting verbosity, Oleh Krehel, 2017/07/22
- [elpa] master 6d5bdf7 11/36: Introduce (:hint none), Oleh Krehel, 2017/07/22
- [elpa] master 76d51ec 23/36: Fix compile warnings, Oleh Krehel, 2017/07/22