From a091875789cd3dcf88164212103d7f783b6712c0 Mon Sep 17 00:00:00 2001 From: Eric Danan Date: Wed, 1 Aug 2018 01:05:14 +0200 Subject: [PATCH] cp-org-agenda: add requier and fix for cp-switch-project --- counsel-projectile.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/counsel-projectile.el b/counsel-projectile.el index b99a5e3..6625b82 100644 --- a/counsel-projectile.el +++ b/counsel-projectile.el @@ -977,6 +977,7 @@ agenda files that do not belong to the current project. Optional arguments ARG, ORG-KEYS, and RESTRICTION are as in `org-agenda'." (interactive "P") + (require 'org-agenda) (let* ((root (projectile-project-root)) (org-agenda-files (cl-remove-if-not (lambda (file) @@ -1043,7 +1044,7 @@ candidates list of `counsel-projectile-switch-project'." "invoke term from project root") ("Oc" counsel-projectile-switch-project-action-org-capture "capture into project") - ("Oa" counsel-projectile-switch-project-action-org-capture + ("Oa" counsel-projectile-switch-project-action-org-agenda "open project agenda")) 'counsel-projectile) @@ -1181,12 +1182,17 @@ action." (counsel-projectile-switch-project-by-name project))) (defun counsel-projectile-switch-project-action-org-capture (project) - "Org-capture into PROJECT." + "Capture into PROJECT." (let* ((from-buffer (ivy-state-buffer ivy-last)) (projectile-switch-project-action `(lambda () (counsel-projectile-org-capture ,from-buffer)))) (counsel-projectile-switch-project-by-name project))) +(defun counsel-projectile-switch-project-action-org-agenda (project) + "Open PROJECT agenda." + (let ((projectile-switch-project-action 'counsel-projectile-org-agenda)) + (counsel-projectile-switch-project-by-name project))) + ;;;###autoload (defun counsel-projectile-switch-project () "Switch project."