#+END_SRC
** Agenda Configuration
#+BEGIN_SRC emacs-lisp
- :mode "\\.\\(org\\|org_archive\\|txt\\)$"
+ :mode ("\\.\\(org\\|org_archive\\|txt\\)\\'" . org-mode)
:bind (("C-c l" . org-store-link)
("C-c a" . org-agenda)
- ("C-c b" . org-iswitchb)
+ ("C-c b" . org-iswitchb))
:config
(setq-default org-log-done 'time)
(setq-default org-agenda-ndays 5)
(defadvice org-save-all-org-buffers (after org-save-all-org-buffers-add-appts)
"Re-add appts after saving all org buffers"
(my/org-agenda-to-appt))
- ; Display appointments as a window manager notification
+ ;; Display appointments as a window manager notification
(setq appt-disp-window-function 'my/appt-display)
(setq appt-delete-window-function (lambda () t))
(defun my/appt-display (min-to-app new-time msg)
(if (atom min-to-app)
- (start-process "my/appt-notification-app" nil my/appt-notification-app min-to-app msg)
- (dolist (i (number-sequence 0 (1- (length min-to-app))))
- (start-process "my/appt-notification-app" nil my/appt-notification-app
- (nth i min-to-app) (nth i msg))))))
+ (start-process "my/appt-notification-app" nil my/appt-notification-app min-to-app msg)
+ (dolist (i (number-sequence 0 (1- (length min-to-app))))
+ (start-process "my/appt-notification-app" nil my/appt-notification-app
+ (nth i min-to-app) (nth i msg))))
+ )
+ )
#+END_SRC