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

dbus issue and high-priority agenda command.

Browse Source
This commit is contained in:
Ivan Malison 2015-01-12 15:47:00 -08:00
parent 79be400a19
commit fd048222ec
1 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -630,7 +630,8 @@ The current directory is assumed to be the project's root otherwise."
(org-todo "TODO") (org-todo "TODO")
(org-set-property "CREATED" (org-set-property "CREATED"
(with-temp-buffer (with-temp-buffer
(org-insert-time-stamp (org-current-effective-time) t))) (org-insert-time-stamp
(org-current-effective-time) t)))
(remove-hook 'post-command-hook 'org-add-log-note) (remove-hook 'post-command-hook 'org-add-log-note)
(org-add-log-note) (org-add-log-note)
(buffer-substring-no-properties (point-min) (point-max)))) (buffer-substring-no-properties (point-min) (point-max))))
@ -686,6 +687,7 @@ The current directory is assumed to be the project's root otherwise."
(setq org-lowest-priority 69) ;; The character E (setq org-lowest-priority 69) ;; The character E
(setq org-completion-use-ido t) (setq org-completion-use-ido t)
(setq org-enforce-todo-dependencies t) (setq org-enforce-todo-dependencies t)
;;(add-to-list org-agenda-tag-filter-preset "+PRIORITY<\"C\"")
;; Agenda setup. ;; Agenda setup.
(unless (boundp 'org-gtd-file) (unless (boundp 'org-gtd-file)
@ -733,10 +735,13 @@ The current directory is assumed to be the project's root otherwise."
:END:")) :END:"))
(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 (org-projectile:project-todo-entry "l" "* TODO %? %a\n")) (add-to-list 'org-capture-templates
(org-projectile:project-todo-entry "l" "* TODO %? %a\n"))
(let ((this-week-high-priority (let ((this-week-high-priority
'(tags-todo "+PRIORITY=\"A\"+DEADLINE<\"<+1w>\"DEADLINE>\"<+0d>\"" ;; The < in the following line works has behavior that is opposite
;; to what one might expect.
'(tags-todo "+PRIORITY<\"C\"+DEADLINE<\"<+1w>\"DEADLINE>\"<+0d>\""
((org-agenda-overriding-header ((org-agenda-overriding-header
"Upcoming high priority tasks:")))) "Upcoming high priority tasks:"))))
(due-today '(tags-todo (due-today '(tags-todo
@ -770,7 +775,11 @@ The current directory is assumed to be the project's root otherwise."
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 "d" (cons "Overdue tasks and due today" due-today)) ,(cons "d" (cons "Overdue tasks and due today" due-today))
,(cons "r" (cons "Recently created" recently-created))))) ,(cons "r" (cons "Recently created" recently-created))
'("h" "A, B priority:" tags-todo "+PRIORITY<\"C\""
((org-agenda-overriding-header
"High Priority:"))))))
;; 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
@ -951,8 +960,18 @@ marking if it still had that."
:ensure t :ensure t
:defer t :defer t
:commands (sauron-start sauron-start-hidden) :commands (sauron-start sauron-start-hidden)
:init
(progn
(when (eq system-type 'darwin)
(setq sauron-modules '(sauron-erc sauron-org sauron-notifications
sauron-twittering sauron-jabber sauron-identica))
(defun sauron-dbus-start ()
nil)
(makunbound 'dbus-path-emacs)))
:config :config
(progn (progn
;; This should really check (featurep 'dbus) but for some reason
;; this is always true even if support is not there.
(setq sauron-prio-sauron-started 2) (setq sauron-prio-sauron-started 2)
(setq sauron-min-priority 3) (setq sauron-min-priority 3)
;; (setq sauron-dbus-cookie t) ;; linux only? ;; (setq sauron-dbus-cookie t) ;; linux only?
@ -975,7 +994,7 @@ marking if it still had that."
(t (lambda (&rest r) nil))))) (t (lambda (&rest r) nil)))))
(funcall handler origin priority message properties))) (funcall handler origin priority message properties)))
;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify) ;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify)
(sauron-start-hidden)
(add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter)) (add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter))
:idle (sauron-start-hidden) :idle (sauron-start-hidden)
:idle-priority 3) :idle-priority 3)