xwl / cal-china-x

chinese localization, prioritized holiday highlight, lunar, horoscope, zodiac, etc.

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

请问如何不显示星座

HomelandScenery opened this issue · comments

多谢作者的插件。在下做次伸手党,如何关闭状态栏中所显示的星座?谢谢!

没有选项直接支持。不过,你可以直接重定义这个函数成:

(defun cal-china-x-chinese-date-string (date)
  (let* ((cn-date (calendar-chinese-from-absolute
                   (calendar-absolute-from-gregorian date)))
         (cn-year  (cadr   cn-date))
         (cn-month (cl-caddr  cn-date))
         (cn-day   (cl-cadddr cn-date)))
    (format "%s%s年%s%s%s%s"
            (calendar-chinese-sexagesimal-name cn-year)
            (aref cal-china-x-zodiac-name (% (1- cn-year) 12))
            (aref cal-china-x-month-name (1-  (floor cn-month)))
            (if (integerp cn-month) "" "(闰月)")
            (aref cal-china-x-day-name (1- cn-day))
            ;(cal-china-x-get-horoscope (car date) (cadr date))
            (cal-china-x-get-solar-term date))))

成功,多谢作者:)