请问如何不显示星座
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))))
成功,多谢作者:)