maciej/counsel-projectile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cp-org-agenda: add requier and fix for cp-switch-project

Browse source
This commit is contained in:
Eric Danan 2018-08-01 01:05:14 +02:00
parent 3aa0d8c1b1
commit a091875789
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
counsel-projectile.el
View file

@ -977,6 +977,7 @@ agenda files that do not belong to the current project.
Optional arguments ARG, ORG-KEYS, and RESTRICTION are as in Optional arguments ARG, ORG-KEYS, and RESTRICTION are as in
`org-agenda'." `org-agenda'."
(interactive "P") (interactive "P")
(require 'org-agenda)
(let* ((root (projectile-project-root)) (let* ((root (projectile-project-root))
(org-agenda-files (org-agenda-files
(cl-remove-if-not (lambda (file) (cl-remove-if-not (lambda (file)
@ -1043,7 +1044,7 @@ candidates list of `counsel-projectile-switch-project'."
"invoke term from project root") "invoke term from project root")
("Oc" counsel-projectile-switch-project-action-org-capture ("Oc" counsel-projectile-switch-project-action-org-capture
"capture into project") "capture into project")
("Oa" counsel-projectile-switch-project-action-org-capture ("Oa" counsel-projectile-switch-project-action-org-agenda
"open project agenda")) "open project agenda"))
'counsel-projectile) 'counsel-projectile)
@ -1181,12 +1182,17 @@ action."
(counsel-projectile-switch-project-by-name project))) (counsel-projectile-switch-project-by-name project)))
(defun counsel-projectile-switch-project-action-org-capture (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)) (let* ((from-buffer (ivy-state-buffer ivy-last))
(projectile-switch-project-action `(lambda () (projectile-switch-project-action `(lambda ()
(counsel-projectile-org-capture ,from-buffer)))) (counsel-projectile-org-capture ,from-buffer))))
(counsel-projectile-switch-project-by-name project))) (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 ;;;###autoload
(defun counsel-projectile-switch-project () (defun counsel-projectile-switch-project ()
"Switch project." "Switch project."