Moving to Doom Emacs!

.emacs.d/modules/app/calendar/README.org

@@ -0,0 +1,66 @@
+#+TITLE:   app/calendar
+#+DATE:    January 13, 2018
+#+SINCE:   v2.1
+#+STARTUP: inlineimages
+
+* Table of Contents :TOC:
+- [[#description][Description]]
+  - [[#module-flags][Module Flags]]
+  - [[#packages][Packages]]
+- [[#configuration][Configuration]]
+  - [[#changing-calendar-sources][Changing calendar sources]]
+  - [[#synchronizing-org-and-google-calendar][Synchronizing Org and Google Calendar]]
+
+* Description
+This module adds a calendar view for Emacs, with org and google calendar sync
+support.
+
+** Module Flags
+This module provides no flags.
+
+** Packages
++ [[https://github.com/kiwanami/emacs-calfw][calfw]]
++ [[https://github.com/kiwanami/emacs-calfw][calfw-org]]
++ [[https://github.com/myuhe/org-gcal.el][org-gcal]]
+
+* Configuration
+** Changing calendar sources
+By defining your own calendar commands, you can control what sources to pull
+calendar data from:
+
+#+BEGIN_SRC emacs-lisp
+(defun my-open-calendar ()
+  (interactive)
+  (cfw:open-calendar-buffer
+   :contents-sources
+   (list
+    (cfw:org-create-source "Green")  ; orgmode source
+    (cfw:howm-create-source "Blue")  ; howm source
+    (cfw:cal-create-source "Orange") ; diary source
+    (cfw:ical-create-source "Moon" "~/moon.ics" "Gray")  ; ICS source1
+    (cfw:ical-create-source "gcal" "https://..../basic.ics" "IndianRed") ; google calendar ICS
+   )))
+#+END_SRC
+
+To control what org files ~clfw:org-create-source~ will use, ~let~-bind
+~org-agenda-files~ around a call to ~+calendar/open-calendar~ like so:
+
+#+BEGIN_SRC emacs-lisp
+;;;###autoload
+(defun cfw:open-org-calendar-with-cal1 ()
+  (interactive)
+  (let ((org-agenda-files '("/path/to/org/" "/path/to/cal1.org")))
+    (call-interactively #'+calendar/open-calendar)))
+
+;;;###autoload
+(defun cfw:open-org-calendar-with-cal2 ()
+  (interactive)
+  (let ((org-agenda-files '("/path/to/org/" "/path/to/cal2.org")))
+    (call-interactively #'+calendar/open-calendar)))
+#+END_SRC
+
+The [[https://github.com/kiwanami/emacs-calfw][kiwanami/emacs-calfw]] project readme contains more examples.
+
+** Synchronizing Org and Google Calendar
+The [[https://github.com/myuhe/org-gcal.el][myuhe/org-gcal.el]] project README contains more detailed instructions on how
+to link your calendar with Google calendars.

.emacs.d/modules/app/calendar/autoload.el

@@ -0,0 +1,61 @@
+;;; app/calendar/autoload.el -*- lexical-binding: t; -*-
+
+(defvar +calendar--wconf nil)
+
+(defun +calendar--init ()
+  (if-let* ((win (cl-loop for win in (doom-visible-windows)
+                          if (string-match-p "^\\*cfw:" (buffer-name (window-buffer win)))
+                          return win)))
+      (select-window win)
+    (call-interactively +calendar-open-function)))
+
+;;;###autoload
+(defun =calendar ()
+  "Activate (or switch to) `calendar' in its workspace."
+  (interactive)
+  (if (featurep! :ui workspaces)
+      (progn
+        (+workspace-switch "Calendar" t)
+        (doom/switch-to-scratch-buffer)
+        (+calendar--init)
+        (+workspace/display))
+    (setq +calendar--wconf (current-window-configuration))
+    (delete-other-windows)
+    (switch-to-buffer (doom-fallback-buffer))
+    (+calendar--init)))
+
+;;;###autoload
+(defun +calendar/quit ()
+  "TODO"
+  (interactive)
+  (if (featurep! :ui workspaces)
+      (+workspace/delete "Calendar")
+    (doom-kill-matching-buffers "^\\*cfw:")
+    (set-window-configuration +calendar--wconf)
+    (setq +calendar--wconf nil)))
+
+;;;###autoload
+(defun +calendar/open-calendar ()
+  "TODO"
+  (interactive)
+  (cfw:open-calendar-buffer
+   ;; :custom-map cfw:my-cal-map
+   :contents-sources
+   (list
+    (cfw:org-create-source (face-foreground 'default))  ; orgmode source
+    )))
+
+;;;###autoload
+(defun +calendar-cfw:render-button-a (title command &optional state)
+  "render-button
+ TITLE
+ COMMAND
+ STATE"
+  (let ((text (concat " " title " "))
+        (keymap (make-sparse-keymap)))
+    (cfw:rt text (if state 'cfw:face-toolbar-button-on
+                   'cfw:face-toolbar-button-off))
+    (define-key keymap [mouse-1] command)
+    (cfw:tp text 'keymap keymap)
+    (cfw:tp text 'mouse-face 'highlight)
+    text))

.emacs.d/modules/app/calendar/config.el

@@ -0,0 +1,51 @@
+;;; app/calendar/config.el -*- lexical-binding: t; -*-
+
+(defvar +calendar-open-function #'+calendar/open-calendar
+  "TODO")
+
+
+;;
+;; Packages
+
+(use-package! calfw
+  :commands cfw:open-calendar-buffer
+  :config
+  ;; better frame for calendar
+  (setq cfw:face-item-separator-color nil
+        cfw:render-line-breaker 'cfw:render-line-breaker-none
+        cfw:fchar-junction ?╋
+        cfw:fchar-vertical-line ?┃
+        cfw:fchar-horizontal-line ?━
+        cfw:fchar-left-junction ?┣
+        cfw:fchar-right-junction ?┫
+        cfw:fchar-top-junction ?┯
+        cfw:fchar-top-left-corner ?┏
+        cfw:fchar-top-right-corner ?┓)
+
+  (define-key cfw:calendar-mode-map "q" #'+calendar/quit)
+
+  (add-hook 'cfw:calendar-mode-hook #'doom-mark-buffer-as-real-h)
+  (add-hook 'cfw:calendar-mode-hook 'hide-mode-line-mode)
+
+  (advice-add #'cfw:render-button :override #'+calendar-cfw:render-button-a))
+
+
+(use-package! calfw-org
+  :commands (cfw:open-org-calendar
+             cfw:org-create-source
+             cfw:open-org-calendar-withkevin
+             my-open-calendar))
+
+
+(use-package! org-gcal
+  :commands (org-gcal-sync
+             org-gcal-fetch
+             org-gcal-post-at-point
+             org-gcal-delete-at-point)
+  :config
+  ;; hack to avoid the deferred.el error
+  (defun org-gcal--notify (title mes)
+    (message "org-gcal::%s - %s" title mes)))
+
+
+;; (use-package! alert)

.emacs.d/modules/app/calendar/packages.el

@@ -0,0 +1,6 @@
+;; -*- no-byte-compile: t; -*-
+;;; app/calendar/packages.el
+
+(package! calfw)
+(package! calfw-org)
+(package! org-gcal)