52 lines
1.5 KiB
EmacsLisp
52 lines
1.5 KiB
EmacsLisp
;;; 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)
|
|
:init
|
|
(defvar org-gcal-dir (concat doom-cache-dir "org-gcal/"))
|
|
(defvar org-gcal-token-file (concat org-gcal-dir "token.gpg"))
|
|
:config
|
|
;; hack to avoid the deferred.el error
|
|
(defun org-gcal--notify (title mes)
|
|
(message "org-gcal::%s - %s" title mes)))
|