Add calfw config

diff --git a/config.org b/config.org
index f05194d04d8624068b86335f2df7aba6963521ee..50268b39cd43b3f9769d1f453006d4c88b44850d 100644 (file)
--- a/config.org
+++ b/config.org
@@ -498,6 +498,39 @@ Circe is a really nice IRC client, that claims to be above RCIRC and below ERC i
     :custom (circe-default-part-message "goodbye!")
     :bind (:map circe-mode-map ("C-c C-r" . circe-reconnect-all)))
 #+end_src
+** Calendar
+#+begin_src emacs-lisp
+  (defun sync-calendar ()
+    "Sync calendars with vdirsyncer"
+    (interactive)
+    (shell-command "vdirsyncer -vcritical sync"))
+
+  (use-package calfw
+    :bind (:map cfw:calendar-mode-map ("C-S-u" . sync-calendar)))
+  (use-package calfw-ical)
+  (use-package calfw-org)
+
+  (defun acheam-calendar ()
+    "Open calendars"
+    (interactive)
+    (cfw:open-calendar-buffer
+     :contents-sources (list
+                        (cfw:org-create-source "Green")
+                        (cfw:ical-create-source
+                         "Personal"
+                         "~/.local/share/vdirsyncer/mailbox/Y2FsOi8vMC8zMQ.ics"
+                         "Gray")
+                        (cfw:ical-create-source
+                         "Personal"
+                         "~/.local/share/vdirsyncer/mailbox/Y2FsOi8vMC8zMQ.ics"
+                         "Red")
+                        (cfw:ical-create-source
+                         "School"
+                         "~/.local/share/vdirsyncer/school/abhojwani22@nobles.edu.ics"
+                         "Cyan"))))
+
+  (global-set-key (kbd "C-c c") 'acheam-calendar)
+#+end_src
 * Emacs IDE
 ** Code cleanup
 #+begin_src emacs-lisp