doomemacs/modules/app/calendar/config.el

52 lines
1.4 KiB
EmacsLisp
Raw Normal View History

;;; app/calendar/config.el -*- lexical-binding: t; -*-
2018-01-13 17:26:40 +08:00
(defvar +calendar-open-function #'+calendar/open-calendar
2018-02-20 04:18:36 +08:00
"TODO")
;;
;; Packages
2018-02-20 04:18:36 +08:00
(use-package! calfw
:commands cfw:open-calendar-buffer
2018-01-13 17:26:40 +08:00
:config
;; better frame for calendar
2018-02-20 04:18:36 +08:00
(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)
2018-02-20 04:18:36 +08:00
(add-hook 'cfw:calendar-mode-hook #'doom-mark-buffer-as-real-h)
(add-hook 'cfw:calendar-mode-hook 'hide-mode-line-mode)
2018-02-20 04:18:36 +08:00
(advice-add #'cfw:render-button :override #'+calendar-cfw:render-button-a))
2018-02-20 04:18:36 +08:00
2018-01-13 17:26:40 +08:00
(use-package! calfw-org
2018-01-13 17:26:40 +08:00
:commands (cfw:open-org-calendar
cfw:org-create-source
cfw:open-org-calendar-withkevin
my-open-calendar))
2018-02-20 04:18:36 +08:00
(use-package! org-gcal
2018-01-13 17:26:40 +08:00
: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)))
2018-02-20 04:18:36 +08:00
;; (use-package! alert)