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

emacs stuff.

Browse Source
This commit is contained in:
Ivan Malison 2014-12-02 14:14:34 -08:00
parent 4086cadf8c
commit ef69a4ab6f
1 changed files with 28 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
init.el
View File

@ -135,6 +135,12 @@
(interactive) (interactive)
(org-todo 0)) (org-todo 0))
(defun org-project-heading (heading)
(org-insert-or-goto-heading heading)
(hide-subtree)
(org-beginning-of-line)
(org-set-property "CATEGORY" heading))
(defun org-insert-or-goto-heading (heading) (defun org-insert-or-goto-heading (heading)
(interactive (interactive
(list (read-string "Heading: "))) (list (read-string "Heading: ")))
@ -149,7 +155,7 @@
(goto-char (point-at-bol)) (goto-char (point-at-bol))
(goto-char (point-max)) (goto-char (point-max))
(or (bolp) (insert "\n")) (or (bolp) (insert "\n"))
(insert "* " heading "\n"))) (insert "* " heading)))
(defun org-make-habit () (defun org-make-habit ()
(interactive) (interactive)
@ -525,7 +531,8 @@ The current directory is assumed to be the project's root otherwise."
("C-c n s" . org-insert-todo-subheading) ("C-c n s" . org-insert-todo-subheading)
("C-c n h" . org-insert-habit) ("C-c n h" . org-insert-habit)
("C-c n m" . org-make-habit) ("C-c n m" . org-make-habit)
("C-c C-S-t" . org-todo-no-note)) ("C-c C-S-t" . org-todo-no-note)
("C-c C-S-t" . org-todo))
:config :config
(progn (progn
(unless (boundp 'org-gtd-file) (unless (boundp 'org-gtd-file)
@ -549,25 +556,26 @@ The current directory is assumed to be the project's root otherwise."
`("t" "Life Todo" entry (file+headline ,org-gtd-file "Tasks") `("t" "Life Todo" entry (file+headline ,org-gtd-file "Tasks")
"* TODO %?\n")) "* TODO %?\n"))
(add-to-list 'org-capture-templates (defun org-get-project-name-of-capture-file ()
'("p" "Project Todo" entry (org-project-heading
`(file+function ,org-projects-file
(lambda ()
(org-insert-or-goto-heading
(file-name-nondirectory (file-name-nondirectory
(directory-file-name (project-root-of-file (directory-file-name (project-root-of-file
(plist-get org-capture-plist :original-file))))) (plist-get org-capture-plist :original-file)))))
(org-end-of-line))) (org-end-of-line))
(add-to-list 'org-capture-templates
`("p" "Project Todo" entry
(file+function ,org-projects-file org-get-project-name-of-capture-file)
"* TODO %?\n")) "* TODO %?\n"))
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
(let ((this-week-high-priority (let ((this-week-high-priority
'(tags-todo "+PRIORITY=\"A\"+DEADLINE<\"<+1w>\"" '(tags-todo "+PRIORITY=\"A\"+DEADLINE<\"<+1w>\"DEADLINE>\"<+0d>\""
((org-agenda-overriding-header ((org-agenda-overriding-header
"Upcoming high priority tasks:")))) "Upcoming high priority tasks:"))))
(overdue-tasks '(tags-todo (due-today '(tags-todo
"+DEADLINE<\"<+0d>\"" "+DEADLINE=<\"<+0d>\""
((org-agenda-overriding-header ((org-agenda-overriding-header
"Overdue tasks:")))) "Due today:"))))
(missing-deadline (missing-deadline
'(tags-todo "-DEADLINE={.}/!" '(tags-todo "-DEADLINE={.}/!"
((org-agenda-overriding-header ((org-agenda-overriding-header
@ -579,7 +587,7 @@ The current directory is assumed to be the project's root otherwise."
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
`(("M" "Main agenda view" `(("M" "Main agenda view"
(,overdue-tasks (,due-today
,this-week-high-priority ,this-week-high-priority
(agenda "" (agenda ""
((org-agenda-overriding-header "Agenda:") ((org-agenda-overriding-header "Agenda:")
@ -589,7 +597,7 @@ The current directory is assumed to be the project's root otherwise."
,missing-priority) ,missing-priority)
nil nil) nil nil)
,(cons "A" (cons "High priority upcoming" this-week-high-priority)) ,(cons "A" (cons "High priority upcoming" this-week-high-priority))
,(cons "od" (cons "Overdue tasks" overdue-tasks))))) ,(cons "od" (cons "Overdue tasks and due today" due-today)))))
;; Record changes to todo states ;; Record changes to todo states
(setq org-log-into-drawer t) (setq org-log-into-drawer t)
(setq org-todo-keywords (setq org-todo-keywords
@ -603,7 +611,7 @@ The current directory is assumed to be the project's root otherwise."
(progn (progn
;; Automatically sync with mobile ;; Automatically sync with mobile
(defvar my-org-mobile-sync-timer nil) (defvar my-org-mobile-sync-timer nil)
(defvar my-org-mobile-sync-secs 60) (defvar my-org-mobile-sync-secs 120)
(defun my-org-mobile-sync-pull-and-push () (defun my-org-mobile-sync-pull-and-push ()
(org-mobile-pull) (org-mobile-pull)
(org-mobile-push) (org-mobile-push)