Choose time for calendar events, notifications for org-mode events.
This commit is contained in:
parent
8a1fa52dbf
commit
9a56829795
@ -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))
|
||||
:config
|
||||
(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)
|
||||
(if (funcall condition-function)
|
||||
(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
|
||||
`("c" "Calendar entry" entry
|
||||
(file+headline ,org-calendar-file "Personal")
|
||||
"* %? %T
|
||||
"* %? %^T
|
||||
:PROPERTIES:
|
||||
:CREATED: %U
|
||||
: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
|
||||
`("y" "Linked Calendar entry" entry
|
||||
(file+headline ,org-calendar-file "Personal")
|
||||
"* %? %A %T
|
||||
"* %? %A %^T
|
||||
:PROPERTIES:
|
||||
:CREATED: %U
|
||||
:END:"))
|
||||
@ -1644,6 +1650,8 @@ window is active in the perspective."
|
||||
(defvar terminal-themes '(solarized-light monokai)))
|
||||
(unless (boundp 'fonts)
|
||||
(defvar fonts '(monaco-9)))
|
||||
(unless (boundp 'current-theme) (defvar current-theme))
|
||||
(setq current-theme nil)
|
||||
|
||||
(defun random-choice (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 terminal-themes)))
|
||||
|
||||
|
||||
(setq current-theme nil)
|
||||
|
||||
(defun set-theme ()
|
||||
(interactive)
|
||||
(let ((appropriate-theme (get-appropriate-theme)))
|
||||
|
Loading…
Reference in New Issue
Block a user