From 829738ba6f213e4b916772b4f8e6908e7df7fee8 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 15 Jun 2015 14:59:54 -0700 Subject: [PATCH] Move org-projectile stuff outside org-mode. --- dotfiles/emacs.d/init.el | 47 +++++++++++++++++++++------------------- 1 file changed, 25 insertions(+), 22 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index d695ac62..eb9c8c4c 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -713,22 +713,6 @@ the same tree node, and the headline of the tree node in the Org-mode file." ;; org-mode add-ons (use-package org-present :ensure t) (use-package org-pomodoro :ensure t) - (use-package org-projectile - :ensure t - :demand t - :bind (("C-c n p" . imalison:helm-org-todo)) - :config - (progn - (org-projectile:hybrid) - (setq org-confirm-elisp-link-function nil) - (defun imalison:helm-org-todo (&optional arg) - (interactive "P") - (helm :sources (list (helm-source-org-capture-templates) - (org-projectile:helm-source - (if arg (org-capture-make-linked-todo-template) - (org-capture-make-todo-template)))) - :candidate-number-limit 99999 - :buffer "*helm org capture templates*")))) ;; variable configuration (add-to-list 'org-modules 'org-habit) @@ -829,8 +813,7 @@ the same tree node, and the headline of the tree node in the Org-mode file." (setq org-agenda-files (append org-agenda-files (--filter (or (file-symlink-p it) (file-exists-p it)) - `(,org-gtd-file ,org-habits-file ,@(org-projectile:todo-files) - ,org-calendar-file)))) + `(,org-gtd-file ,org-habits-file ,org-calendar-file)))) (add-to-list 'org-capture-templates `("t" "GTD Todo (Linked)" entry (file ,org-gtd-file) @@ -867,10 +850,6 @@ the same tree node, and the headline of the tree node in the Org-mode file." :STYLE: habit :END:")) - (add-to-list 'org-capture-templates - (org-projectile:project-todo-entry "l" "* TODO %? %a\n" "Linked Project TODO")) - (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p")) - (let ((this-week-high-priority ;; The < in the following line works has behavior that is opposite ;; to what one might expect. @@ -939,6 +918,30 @@ the same tree node, and the headline of the tree node in the Org-mode file." (add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t))) (add-hook 'org-agenda-mode-hook 'disable-linum-mode))) +(use-package org-projectile + :ensure t + :demand t + :bind (("C-c n p" . imalison:helm-org-todo)) + :config + (progn + (org-projectile:prompt) + (add-to-list 'org-capture-templates + (org-projectile:project-todo-entry "l" "* TODO %? %a\n" "Linked Project TODO")) + (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p")) + (setq org-confirm-elisp-link-function nil) + (cl-loop for filepath in (org-projectile:todo-files) do + (when (and filepath (or (file-symlink-p filepath) (file-exists-p filepath)) + (not (-contains-p org-agenda-files filepath))) + (add-to-list 'org-agenda-files filepath))) + (defun imalison:helm-org-todo (&optional arg) + (interactive "P") + (helm :sources (list (helm-source-org-capture-templates) + (org-projectile:helm-source + (if arg (org-capture-make-linked-todo-template) + (org-capture-make-todo-template)))) + :candidate-number-limit 99999 + :buffer "*helm org capture templates*")))) + (use-package epg :ensure t :config