cal-china-x 实现数九天和伏天计算

[tommyjiang]

cal-china-x 的代码，可以计算阴历和节气，但没有数九天和伏天的计算。

之前一直想学 Lisp，正好借这个机会练练手，文件参考 我的配置。第一次写 Lisp，欢迎大家提意见。

效果如下：

另外友情提示，cal-china-x 中月和日的干支计算不准，需要用 emacs 自带的函数计算，计算方法参考：

(defun cal-china-x-chinese-day-celestial-stem-number (date)
  "String of Chinese date of Gregorian DATE.
Defaults to today's date if DATE is not given."
  (let* ((a-date (calendar-absolute-from-gregorian date)))
    (% (+ a-date 15) 10)))