google-calendar-layer/funcs.el at master · BenedictHW/google-calendar-layer · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
;;; funcs.el --- google-calendar Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
;;
;; Author: Markus Johansson markus.johansson@me.com
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(when (configuration-layer/package-usedp 'calfw)
  (defun google-calendar/calfw-view ()
    "Open calfw calendar view."
    (interactive)
    (let ((org-agenda-window-setup calfw-calendar-window-setup))
      (google-calendar/calfw-prepare-window)
      ;;; If non nil, overload agenda window setup with the desired setup for calfw
      (org-agenda nil calfw-org-agenda-view)
      (cfw:open-org-calendar)))

  (defun google-calendar/calfw-prepare-window ()
    "Store current window layout in before opening calfw."
    (when-let ((is-not-cal-buffer (not (member (buffer-name) '("*cfw-calendar*" "*Org Agenda*"))))
               (is-not-conf (not (equal calfw-window-conf '(current-window-configuration)))))
      (setq calfw-window-conf (current-window-configuration))))

  (defun google-calendar/calfw-restore-windows ()
    "Bury current buffer and restore window layout."
    (interactive)
    (bury-buffer)
    (if (and (not (eq calfw-window-conf nil))
             (eq calfw-restore-windows-after-quit 't))
        (progn (set-window-configuration calfw-window-conf)
               (setq calfw-window-conf nil)))))