From bf4236278aa9c508c28d4d33c04ad0d6e0d75ccd Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 3 Apr 2019 22:23:24 -0400 Subject: [PATCH] added excorporate to pull outlook meetings --- conf.org | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/conf.org b/conf.org index d5f1256..0c888a0 100644 --- a/conf.org +++ b/conf.org @@ -3725,6 +3725,31 @@ Since mu4e is an external program, need to check that it is installed before loa (use-package ein :ensure t) #+END_SRC +** excorporate +#+BEGIN_SRC emacs-lisp +(use-package excorporate + :ensure t + :config + (require 'excorporate-org) + (setq excorporate-configuration + '("ndwarshuis3@gateh.edu" . + "https://outlook.office365.com/EWS/Exchange.asmx") + excorporate-org-buffer-name "exco.org")) + +(defun nd/exco-org-save-buffer (&rest args) + (with-current-buffer (get-buffer excorporate-org-buffer-name) + (write-file "/tmp/exco.org"))) + +;; these are nasty async functions so the advice needs to be globally +;; defined +(advice-add #'exco-org-finalize-buffer :after #'nd/exco-org-save-buffer) + +(defun nd/exco-org-pull-calendar () + (interactive) + (let ((date (or org-agenda-current-date (calendar-current-date)))) + (save-current-buffer + (apply #'nd/exco-org-show-day-save date)))) +#+END_SRC * keybindings For the sake of my sanity, all bindings go here. Note this means I don't use =:bind= in use-package forms. ** setup