2018-02-18 16:10:09 +08:00
|
|
|
;;; app/calendar/config.el -*- lexical-binding: t; -*-
|
2018-01-13 17:26:40 +08:00
|
|
|
|
|
|
|
(defvar +calendar-org-gcal-secret-file "~/.emacs.d/modules/private/org/secret.el")
|
|
|
|
(defvar +calendar-open-calendar-function '+calendar/open-calendar)
|
|
|
|
(def-package! calfw
|
|
|
|
:commands (cfw:open-calendar-buffer)
|
|
|
|
:config
|
|
|
|
|
|
|
|
;; better frame for calendar
|
|
|
|
(setq
|
|
|
|
cfw:face-item-separator-color nil
|
2018-01-13 17:57:38 +08:00
|
|
|
cfw:render-line-breaker 'cfw:render-line-breaker-none
|
2018-01-13 17:26:40 +08:00
|
|
|
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 ?┓)
|
|
|
|
|
|
|
|
|
|
|
|
(defun cfw:render-button (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))
|
|
|
|
|
2018-01-14 10:06:36 +08:00
|
|
|
(map! :map cfw:calendar-mode-map
|
|
|
|
"q" #'+calendar/quit)
|
2018-01-13 17:26:40 +08:00
|
|
|
(add-hook! 'cfw:calendar-mode-hook (solaire-mode +1)
|
2018-01-13 17:57:38 +08:00
|
|
|
(doom-hide-modeline-mode))
|
|
|
|
(map!
|
|
|
|
:map cfw:calendar-mode-map
|
|
|
|
"q" #'+calendar/quit))
|
2018-01-13 17:26:40 +08:00
|
|
|
|
|
|
|
(def-package! calfw-org
|
|
|
|
:commands (cfw:open-org-calendar
|
|
|
|
cfw:org-create-source
|
|
|
|
cfw:open-org-calendar-withkevin
|
|
|
|
my-open-calendar))
|
|
|
|
|
|
|
|
(def-package! org-gcal
|
|
|
|
:commands (org-gcal-sync
|
|
|
|
org-gcal-fetch
|
|
|
|
org-gcal-post-at-point
|
|
|
|
org-gcal-delete-at-point)
|
|
|
|
:config
|
2018-01-13 17:57:38 +08:00
|
|
|
(load-file +calendar-org-gcal-secret-file)
|
2018-01-13 17:26:40 +08:00
|
|
|
;; hack to avoid the deferred.el error
|
|
|
|
(defun org-gcal--notify (title mes)
|
|
|
|
(message "org-gcal::%s - %s" title mes)))
|
|
|
|
|
|
|
|
;; (def-package! alert)
|