wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Choose time for calendar events, notifications for org-mode events.

Browse Source
This commit is contained in:
Ivan Malison 2015-01-28 13:23:22 -08:00
parent 8a1fa52dbf
commit 9a56829795
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -617,6 +617,12 @@ The current directory is assumed to be the project's root otherwise."
("C-c C-S-t" . org-todo-force-notes)) ("C-c C-S-t" . org-todo-force-notes))
:config :config
(progn (progn
(defadvice org-agenda-to-appt (before wickedcool activate)
"Clear the appt-time-msg-list."
(setq appt-time-msg-list nil))
(appt-activate)
(org-agenda-to-appt)
(run-at-time "00:00" 60 'org-agenda-to-appt)
(defun org-archive-if (condition-function) (defun org-archive-if (condition-function)
(if (funcall condition-function) (if (funcall condition-function)
(org-archive-subtree))) (org-archive-subtree)))
@ -741,7 +747,7 @@ the same tree node, and the headline of the tree node in the Org-mode file."
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("c" "Calendar entry" entry `("c" "Calendar entry" entry
(file+headline ,org-calendar-file "Personal") (file+headline ,org-calendar-file "Personal")
"* %? %T "* %? %^T
:PROPERTIES: :PROPERTIES:
:CREATED: %U :CREATED: %U
:END:")) :END:"))
@ -749,7 +755,7 @@ the same tree node, and the headline of the tree node in the Org-mode file."
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("y" "Linked Calendar entry" entry `("y" "Linked Calendar entry" entry
(file+headline ,org-calendar-file "Personal") (file+headline ,org-calendar-file "Personal")
"* %? %A %T "* %? %A %^T
:PROPERTIES: :PROPERTIES:
:CREATED: %U :CREATED: %U
:END:")) :END:"))
@ -1644,6 +1650,8 @@ window is active in the perspective."
(defvar terminal-themes '(solarized-light monokai))) (defvar terminal-themes '(solarized-light monokai)))
(unless (boundp 'fonts) (unless (boundp 'fonts)
(defvar fonts '(monaco-9))) (defvar fonts '(monaco-9)))
(unless (boundp 'current-theme) (defvar current-theme))
(setq current-theme nil)
(defun random-choice (choices) (defun random-choice (choices)
(nth (random (length choices)) choices)) (nth (random (length choices)) choices))
@ -1656,9 +1664,6 @@ window is active in the perspective."
(random-choice dark-themes) (random-choice light-themes))) (random-choice dark-themes) (random-choice light-themes)))
(random-choice terminal-themes))) (random-choice terminal-themes)))
(setq current-theme nil)
(defun set-theme () (defun set-theme ()
(interactive) (interactive)
(let ((appropriate-theme (get-appropriate-theme))) (let ((appropriate-theme (get-appropriate-theme)))