colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Combine org-projectile projects and known org capture templates.

Browse Source
This commit is contained in:
Ivan Malison 2015-01-29 15:32:27 -08:00
parent 0ce016f667
commit 26c9d9d865
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
dotfiles/emacs.d/init.el
View File

@ -698,14 +698,17 @@ the same tree node, and the headline of the tree node in the Org-mode file."
(use-package org-projectile (use-package org-projectile
:ensure t :ensure t
:demand t :demand t
:bind (("C-c n p" . imalison:org-projectile:project-todo)) :bind (("C-c n p" . imalison:helm-org-todo))
:config :config
(progn (progn
(defun imalison:org-projectile:project-todo (&optional arg) (defun imalison:helm-org-todo (&optional arg)
(interactive "P") (interactive "P")
(org-projectile:project-todo-completing-read (helm :sources (list (helm-source-org-capture-templates)
(org-projectile:helm-source
(if arg (org-capture-make-linked-todo-template) (if arg (org-capture-make-linked-todo-template)
(org-capture-make-todo-template)))))) (org-capture-make-todo-template))))
:candidate-number-limit 99999
:buffer "*helm org capture templates*"))))
;; variable configuration ;; variable configuration
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
@ -771,7 +774,7 @@ the same tree node, and the headline of the tree node in the Org-mode file."
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p")) (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
(org-projectile:project-todo-entry "l" "* TODO %? %a\n")) (org-projectile:project-todo-entry "l" "* TODO %? %a\n" "Linked Project TODO"))
(let ((this-week-high-priority (let ((this-week-high-priority
;; The < in the following line works has behavior that is opposite ;; The < in the following line works has behavior that is opposite
@ -1114,6 +1117,17 @@ marking if it still had that."
(use-package helm-ag :ensure t)) (use-package helm-ag :ensure t))
:config :config
(progn (progn
(defun helm-source-org-capture-templates ()
(helm-build-sync-source "Org Capture Templates:"
:candidates (cl-loop for template in org-capture-templates
collect `(,(nth 1 template) . ,(nth 0 template)))
:action '(("Do capture" . (lambda (template-shortcut)
(org-capture nil template-shortcut))))))
(defun helm-org-capture-templates ()
(interactive)
(helm :sources (helm-source-org-capture-templates)
:candidate-number-limit 99999
:buffer "*helm org capture templates*"))
(cl-defun helm-org-headings-in-buffer () (cl-defun helm-org-headings-in-buffer ()
(interactive) (interactive)
(helm :sources (helm-source-org-headings-for-files (helm :sources (helm-source-org-headings-for-files