blob: c6c6c55cb8ff2a52ff0efcc34f9d220d473e3661 (
plain)
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
36
37
38
39
40
41
42
43
44
|
;;; my-calendar.el --- Custom calendar configurations
;; -*- mode: emacs-lisp -*-
;; vim: set ts=8 sw=2 tw=0 fenc=utf-8 ft=lisp:
;;
;; Aaron LI
;; Created: 2017-03-01
;; Updated: 2017-03-14
;;
;;; Commentary:
;; Custom calendar configurations
;;
;;; Code:
(with-eval-after-load 'calendar
(require 'cal-china)
;; Date style: month/day/year (default)
(setq calendar-date-style 'american)
;; Wrapper function of `diary-chinese-anniversary' using an intuitive year
;; NOTE: Built-in `diary-chinese-anniversary' accepts an obscure year
;; notation consisting of the 60-year cycle number and year number
;; within this cycle.
;; Credit: https://emacs-china.org/t/agenda-list/2119/15
(defun my/diary-chinese-anniversary (month day &optional year mark)
"Like `diary-chinese-anniversary' but use an intuitive year argument."
(if year
(let* ((d-date (diary-make-date month day year))
(a-date (calendar-absolute-from-gregorian d-date))
(c-date (calendar-chinese-from-absolute a-date))
(cycle (car c-date))
(yy (cadr c-date))
(y (+ (* 100 cycle) yy)))
(diary-chinese-anniversary month day y mark))
(diary-chinese-anniversary month day year mark)))
;; END: `with-eval-after-load'
)
(provide 'my-calendar)
;;; my-calendar.el ends here
|
