Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-china.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\301&\210\312\313\314\315\316\317\311\304&\210\320\313\321\322#\210\312\323\324\325\316\326\311\304&\210\312\327\330\331\316\332\311\304&\210\312\333\334\335\316\317\336\322\311\304& \210\312\337\340\341\316\326\311\304&\210\312\342\305\343\316\317\336\322\311\304& \210\312\344\305\345\316\317\336\322\311\304& \210\312\346\330\347\316\332\311\304&\210\312\350\330\351\316\332\311\304&\210\312\352\353\354\311\304\316\355&\210\312\356\357\360\311\304\316\361&\207" [require calendar lunar custom-declare-group calendar-chinese nil "Chinese calendar support." :prefix "calendar-chinese-" :group custom-declare-variable calendar-chinese-time-zone '(if (< year 1928) (+ 465 (/ 40.0 60.0)) 480) "Minutes difference between local standard time for Chinese calendar and UTC.\nDefault is for Beijing. This is an expression in `year' since it changed at\n1928-01-01 00:00:00 from UT+7:45:40 to UT+8." :type sexp put risky-local-variable t calendar-chinese-location-name "Beijing" "Name of location used for calculation of Chinese calendar." string calendar-chinese-daylight-time-offset 0 "Minutes difference between daylight saving and standard time.\nDefault is for no daylight saving time." integer calendar-chinese-standard-time-zone-name '(if (< year 1928) "PMT" "CST") "Abbreviated name of standard time zone used for Chinese calendar.\nThis is an expression depending on `year' because it changed\nat 1928-01-01 00:00:00 from `PMT' to `CST'." :risky calendar-chinese-daylight-time-zone-name "CDT" "Abbreviated name of daylight saving time zone used for Chinese calendar." calendar-chinese-daylight-saving-start "Sexp giving the date on which daylight saving time starts.\nDefault is for no daylight saving time. See documentation of\n`calendar-daylight-savings-starts'." calendar-chinese-daylight-saving-end "Sexp giving the date on which daylight saving time ends.\nDefault is for no daylight saving time. See documentation of\n`calendar-daylight-savings-ends'." calendar-chinese-daylight-saving-start-time "Number of minutes after midnight that daylight saving time starts.\nDefault is for no daylight saving time." calendar-chinese-daylight-saving-end-time "Number of minutes after midnight that daylight saving time ends.\nDefault is for no daylight saving time." calendar-chinese-celestial-stem ["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"] "Prefixes used by `calendar-chinese-sexagesimal-name'." (vector (string :tag "Jia") (string :tag "Yi") (string :tag "Bing") (string :tag "Ding") (string :tag "Wu") (string :tag "Ji") (string :tag "Geng") (string :tag "Xin") (string :tag "Ren") (string :tag "Gui")) calendar-chinese-terrestrial-branch ["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"] "Suffixes used by `calendar-chinese-sexagesimal-name'." (vector (string :tag "Zi") (string :tag "Chou") (string :tag "Yin") (string :tag "Mao") (string :tag "Chen") (string :tag "Si") (string :tag "Wu") (string :tag "Wei") (string :tag "Shen") (string :tag "You") (string :tag "Xu") (string :tag "Hai"))] 10)
#@176 The N-th name of the Chinese sexagesimal cycle.
N congruent to 1 gives the first name, N congruent to 2 gives the second name,
..., N congruent to 60 gives the sixtieth name.
(defalias 'calendar-chinese-sexagesimal-name #[(n) "\303\304 S\305\246H\n S\306\246H#\207" [calendar-chinese-celestial-stem n calendar-chinese-terrestrial-branch format "%s-%s" 10 12] 6 (#$ . 3531)])
#@146 Absolute date of first new Zodiac sign on or after absolute date D.
The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees.
(defalias 'calendar-chinese-zodiac-sign-on-or-after #[(d) "\306!\3078\262\310\n!\f \311\312\313\314!\315\"!!. \207" [d year calendar-chinese-time-zone calendar-time-zone calendar-chinese-daylight-time-offset calendar-daylight-time-offset calendar-gregorian-from-absolute 2 eval floor calendar-astro-to-absolute solar-date-next-longitude calendar-astro-from-absolute 30 calendar-chinese-standard-time-zone-name calendar-standard-time-zone-name calendar-chinese-daylight-time-zone-name calendar-daylight-time-zone-name calendar-chinese-daylight-saving-start calendar-daylight-savings-starts calendar-chinese-daylight-saving-end calendar-daylight-savings-ends calendar-chinese-daylight-saving-start-time calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-end-time calendar-daylight-savings-ends-time] 5 (#$ . 3914)])
#@62 Absolute date of first new moon on or after absolute date D.
(defalias 'calendar-chinese-new-moon-on-or-after #[(d) "\306!\3078\262\310\n!\f
\311\312\313\314!!!!. \207" [d year calendar-chinese-time-zone calendar-time-zone calendar-chinese-daylight-time-offset calendar-daylight-time-offset calendar-gregorian-from-absolute 2 eval floor calendar-astro-to-absolute lunar-new-moon-on-or-after calendar-astro-from-absolute calendar-chinese-standard-time-zone-name calendar-standard-time-zone-name calendar-chinese-daylight-time-zone-name calendar-daylight-time-zone-name calendar-chinese-daylight-saving-start calendar-daylight-savings-starts calendar-chinese-daylight-saving-end calendar-daylight-savings-ends calendar-chinese-daylight-saving-start-time calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-end-time calendar-daylight-savings-ends-time] 5 (#$ . 4929)])
#@61 List of starting dates of Chinese months from START to END.
(defalias 'calendar-chinese-month-list #[(start end) " X\205 \303!\211 X\205 \n\304\nT \"B)\207" [start end new-moon calendar-chinese-new-moon-on-or-after calendar-chinese-month-list] 5 (#$ . 5850)])
#@226 Assign month numbers to the lunar months in LIST, starting with START.
Numbers are assigned sequentially, START, START+1, ..., 11, with
half numbers used for leap months. First and last months of list
are never leap months.
(defalias 'calendar-chinese-number-months #[(list start) "\205G @D\302\303 G#\304U\203 \305A T\"\202F AA\203@ \3068\307A@!X\203@ \310\\A@D\305AA T\"B\202F \305A T\"B\207" [list start - 12 0 calendar-chinese-number-months 2 calendar-chinese-zodiac-sign-on-or-after 0.5] 5 (#$ . 6122)])
#@291 Compute the structure of the Chinese year for Gregorian year Y.
The result is a list of pairs (i d), where month i begins on absolute date d,
of the Chinese months from the Chinese month following the solstice in
Gregorian year Y-1 to the Chinese month of the solstice of Gregorian year Y.
(defalias 'calendar-chinese-compute-year #[(y) "\304\305\306E\211\3078\262\310\311U\203 \312\313!\202X\311V\203\216 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203y \211\316\317_\\\320\245Z\262\211\311W\203Z \321!S\262\211\317\246\311U\205p \211\322\246\311U?\206p \211\323\246\311U\262\203y \211T\262\266\203\262\324_\317\245\322\245[\323\245%\202X\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\353 \211\316\317_\\\320\245Z\262\211\311W\203\314 \321!S\262\211\317\246\311U\205\342 \211\322\246\311U?\206\342 \211\323\246\311U\262\203\353 \211T\262\266\203\262\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203R\211\316\317_\\\320\245Z\262\211\311W\2033\321!S\262\211\317\246\311U\205I\211\322\246\311U?\206I\211\323\246\311U\262\203R\211T\262\266\203\262&\266\203!\327\304\305\306SE\211\3078\262\310\311U\203v\312\313!\202\266\311V\203\354S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\327\211\316\317_\\\320\245Z\262\211\311W\203\270\321!S\262\211\317\246\311U\205\316\211\322\246\311U?\206\316\211\323\246\311U\262\203\327\211T\262\266\203\262\324_\317\245\322\245[\323\245%\202\266\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203I\211\316\317_\\\320\245Z\262\211\311W\203*\321!S\262\211\317\246\311U\205@\211\322\246\311U?\206@\211\323\246\311U\262\203I\211T\262\266\203\262\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\260\211\316\317_\\\320\245Z\262\211\311W\203\221\321!S\262\211\317\246\311U\205\247\211\322\246\311U?\206\247\211\323\246\311U\262\203\260\211T\262\266\203\262&\266\203!T \"\304\n@!\nG\305U\203\326\305\n@D\330\nA\331\"B\202!\n@ V\204\345 \nA@Y\203\372\332\333\n@D\305\nA@DD\330\nAA\331\"\"\202!\332\305\n@DC\304\nA@!\307\n8Y\203\334\nA@D\330\nAA\331\"B\202 \330\nA\331\"\"+\207" [y next-solstice list next-sign calendar-chinese-zodiac-sign-on-or-after 12 15 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-chinese-month-list calendar-chinese-number-months 1 append 11.5 12.5] 20 (#$ . 6652)])
#@139 Alist of Chinese year structures as determined by `chinese-year'.
The default can be nil, but some values are precomputed for efficiency.
(defvar calendar-chinese-year-cache '((2005 (12 731956) (1 731986) (2 732015) (3 732045) (4 732074) (5 732104) (6 732133) (7 732163) (8 732193) (9 732222) (10 732252) (11 732281)) (2006 (12 732311) (1 732340) (2 732370) (3 732399) (4 732429) (5 732458) (6 732488) (7 732517) (7.5 732547) (8 732576) (9 732606) (10 732636) (11 732665)) (2007 (12 732695) (1 732725) (2 732754) (3 732783) (4 732813) (5 732842) (6 732871) (7 732901) (8 732930) (9 732960) (10 732990) (11 733020)) (2008 (12 733049) (1 733079) (2 733109) (3 733138) (4 733167) (5 733197) (6 733226) (7 733255) (8 733285) (9 733314) (10 733344) (11 733374)) (2009 (12 733403) (1 733433) (2 733463) (3 733493) (4 733522) (5 733551) (5.5 733581) (6 733610) (7 733639) (8 733669) (9 733698) (10 733728) (11 733757)) (2010 (12 733787) (1 733817) (2 733847) (3 733876) (4 733906) (5 733935) (6 733965) (7 733994) (8 734023) (9 734053) (10 734082) (11 734112)) (2011 (12 734141) (1 734171) (2 734201) (3 734230) (4 734260) (5 734290) (6 734319) (7 734349) (8 734378) (9 734407) (10 734437) (11 734466)) (2012 (12 734496) (1 734525) (2 734555) (3 734584) (4 734614) (4.5 734644) (5 734673) (6 734703) (7 734732) (8 734762) (9 734791) (10 734821) (11 734850)) (2013 (12 734880) (1 734909) (2 734939) (3 734968) (4 734998) (5 735027) (6 735057) (7 735087) (8 735116) (9 735146) (10 735175) (11 735205)) (2014 (12 735234) (1 735264) (2 735293) (3 735323) (4 735352) (5 735382) (6 735411) (7 735441) (8 735470) (9 735500) (9.5 735530) (10 735559) (11 735589)) (2015 (12 735618) (1 735648) (2 735677) (3 735707) (4 735736) (5 735765) (6 735795) (7 735824) (8 735854) (9 735884) (10 735914) (11 735943)) (2016 (12 735973) (1 736002) (2 736032) (3 736061) (4 736091) (5 736120) (6 736149) (7 736179) (8 736208) (9 736238) (10 736268) (11 736297)) (2017 (12 736327) (1 736357) (2 736386) (3 736416) (4 736445) (5 736475) (6 736504) (6.5 736533) (7 736563) (8 736592) (9 736622) (10 736651) (11 736681)) (2018 (12 736711) (1 736741) (2 736770) (3 736800) (4 736829) (5 736859) (6 736888) (7 736917) (8 736947) (9 736976) (10 737006) (11 737035)) (2019 (12 737065) (1 737095) (2 737125) (3 737154) (4 737184) (5 737213) (6 737243) (7 737272) (8 737301) (9 737331) (10 737360) (11 737389)) (2020 (12 737419) (1 737449) (2 737478) (3 737508) (4 737538) (4.5 737568) (5 737597) (6 737627) (7 737656) (8 737685) (9 737715) (10 737744) (11 737774)) (2021 (12 737803) (1 737833) (2 737862) (3 737892) (4 737922) (5 737951) (6 737981) (7 738010) (8 738040) (9 738069) (10 738099) (11 738128)) (2022 (12 738158) (1 738187) (2 738217) (3 738246) (4 738276) (5 738305) (6 738335) (7 738365) (8 738394) (9 738424) (10 738453) (11 738483)) (2023 (12 738512) (1 738542) (2 738571) (2.5 738601) (3 738630) (4 738659) (5 738689) (6 738719) (7 738748) (8 738778) (9 738808) (10 738837) (11 738867)) (2024 (12 738896) (1 738926) (2 738955) (3 738985) (4 739014) (5 739043) (6 739073) (7 739102) (8 739132) (9 739162) (10 739191) (11 739221)) (2025 (12 739251) (1 739280) (2 739310) (3 739339) (4 739369) (5 739398) (6 739427) (6.5 739457) (7 739486) (8 739516) (9 739545) (10 739575) (11 739605))) (#$ . 9225))
#@352 The structure of the Chinese year for Gregorian year Y.
The result is a list of pairs (i d), where month i begins on absolute date d,
of the Chinese months from the Chinese month following the solstice in
Gregorian year Y-1 to the Chinese month of the solstice of Gregorian year Y.
The list is cached in `calendar-chinese-year-cache' for further use.
(defalias 'calendar-chinese-year #[(y) "\303 \"A\211\204 \304!\305 \nBC\"\n)\207" [y calendar-chinese-year-cache list assoc calendar-chinese-compute-year append] 5 (#$ . 12508)])
#@129 Insert an initialization value for `calendar-chinese-year-cache' after point.
Computes values for 10 years either side of YEAR.
(defalias 'calendar-chinese-year-cache-init #[(year) "\305Z\306\211\212\307c\210\310\311 \fW\2036 \312\313!Bp\"\210 \314U\203) \315\202* \316c\210T T\211\202 *`)\212` W\203S \317\320 \321#\203S \322\323!\210\316c\210\202; )\324` \"*\207" [year end calendar-chinese-year-cache n --dotimes-limit-- 10 nil "'(" 21 0 princ calendar-chinese-compute-year 20 ")" "\n" re-search-forward "^.\\{65,75\\})" t delete-char 1 indent-region] 5 (#$ . 13052)])
#@183 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
DATE is a Chinese date (cycle year month day). The Gregorian date
Sunday, December 31, 1 BC is imaginary.
(defalias 'calendar-chinese-to-absolute #[(date) "@A@\3068\3078 \310 S\311_\nS\312# \fS\313 \314\313\315\316
!\"\316
!>\316
T!\"\"A@\\-\207" [date cycle year month day g-year 2 3 + 60 -2636 assoc append 1 calendar-chinese-year] 8 (#$ . 13644)])
#@189 Compute Chinese date (cycle year month day) corresponding to absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-chinese-from-absolute #[(date) "\304!\3058\262\211\306\\\307\310 S!\310 !\310 T!#\211A@A@X\2038 A@@\311U\2031 \nT A\211\202 \nS\312\245\313\nS\312\"T @@ @A@ZTF+\207" [date g-year c-year list calendar-gregorian-from-absolute 2 2695 append calendar-chinese-year 1 60 mod] 6 (#$ . 14085)])
#@115 Date of Chinese New Year, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-new-year #[nil " \306 \307\306 \310W\203 T\311 _\f\312\313$\314
\"T
\245
\310W\2039 \f\313V\2039 S \313W\203B S*\f\315W\205e \316\317\320\313\321 !\"A@!\211!\205e \n\322\323\324 \325\\!\"DC+\207" [displayed-month displayed-year chinese-new-year y m macro-y nil 12 0 + -1 1 mod 5 calendar-date-is-visible-p calendar-gregorian-from-absolute assoc calendar-chinese-year format "Chinese New Year (%s)" calendar-chinese-sexagesimal-name 57 nmonths] 6 (#$ . 14599)])
#@124 Date of Chinese Qingming Festival, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-qingming #[nil "\302>\205h\303\304\305\306\304 E\211\3078\262\310\311U\203 \312\313!\202`\311V\203\226 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\201 \211\316\317_\\\320\245Z\262\211\311W\203b \321!S\262\211\317\246\311U\205x \211\322\246\311U?\206x \211\323\246\311U\262\203\201 \211T\262\266\203\262\324_\317\245\322\245[\323\245%\202`\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\363 \211\316\317_\\\320\245Z\262\211\311W\203\324 \321!S\262\211\317\246\311U\205\352 \211\322\246\311U?\206\352 \211\323\246\311U\262\203\363 \211T\262\266\203\262\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203Z\211\316\317_\\\320\245Z\262\211\311W\203;\321!S\262\211\317\246\311U\205Q\211\322\246\311U?\206Q\211\323\246\311U\262\203Z\211T\262\266\203\262&\266\203!\\!\327DC\207" [displayed-month displayed-year (3 4 5) calendar-gregorian-from-absolute 15 calendar-chinese-zodiac-sign-on-or-after 3 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Qingming Festival"] 21 (#$ . 15231)])
#@122 Date of Chinese winter solstice, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-winter-solstice #[nil "\302>\205q\303\304\305\306\307=\203 S\202 E\211\3108\262\311\312U\203* \313\314!\202j\312V\203\240 S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\213 \211\317\320_\\\321\245Z\262\211\312W\203l \322!S\262\211\320\246\312U\205\202 \211\323\246\312U?\206\202 \211\324\246\312U\262\203\213 \211T\262\266\203\262\325_\320\245\323\245[\324\245%\202j\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\375 \211\317\320_\\\321\245Z\262\211\312W\203\336 \322!S\262\211\320\246\312U\205\364 \211\323\246\312U?\206\364 \211\324\246\312U\262\203\375 \211T\262\266\203\262\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203d\211\317\320_\\\321\245Z\262\211\312W\203E\322!S\262\211\320\246\312U\205[\211\323\246\312U?\206[\211\324\246\312U\262\203d\211T\262\266\203\262&\266\203!!\330DC\207" [displayed-month displayed-year (11 12 1) calendar-gregorian-from-absolute calendar-chinese-zodiac-sign-on-or-after 12 15 1 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Winter Solstice Festival"] 20 (#$ . 16549)])
#@229 Holiday on Chinese MONTH, DAY called STRING.
If MONTH, DAY (Chinese) is visible, returns the corresponding
Gregorian date as the list (((month day year) STRING)).
Returns nil if it is not visible in the current calendar window.
(defalias 'holiday-chinese #[(month day string) "\306\307>\203\272\n \n \310\311 # $ \312W\203 T\313 $_ \314\211$#\315#$\"T#$\245#\312W\203G \316V\203G S \316W\203P S* \316 E\211\3178\262\311\312U\203h \320\321!\202\250\312V\203\336 S\262\313\211\211@\262\211A@\262\3178\262\322S_\\\317V\203\311 \211\323\324_\\\325\245Z\262\211\312W\203\252 \326!S\262\211\324\246\312U\205\300 \211\327\246\312U?\206\300 \211\330\246\312U\262\203\311 \211T\262\266\203\262\331_\324\245\327\245[\330\245%\202\250\326T!\262\332\211\211@\262\211A@\262\3178\262\322S_\\\317V\203;\211\323\324_\\\325\245Z\262\211\312W\203 \326!S\262\211\324\246\312U\2052\211\327\246\312U?\2062\211\330\246\312U\262\203;\211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3178\262\322S_\\\317V\203\242\211\323\324_\\\325\245Z\262\211\312W\203\203\326!S\262\211\324\246\312U\205\231\211\327\246\312U?\206\231\211\330\246\312U\262\203\242\211T\262\266\203\262&\266\203 %\310\311 # $
\312W\203\273
T\313
$_\f\314\316$#\315#$\"T#$\245#\312W\203\344\f\316V\203\344
S
\316W\203\355
S*\f\211
\317U\203%\211\211\312W\203\326!S\262\211\324\246\312U\205\211\327\246\312U?\206\211\330\246\312U\262\203%\334\266\202\202+\335SH\266\202
E\211\3178\262\311\312U\203@\320\321!\202\200\312V\203\266S\262\313\211\211@\262\211A@\262\3178\262\322S_\\\317V\203\241\211\323\324_\\\325\245Z\262\211\312W\203\202\326!S\262\211\324\246\312U\205\230\211\327\246\312U?\206\230\211\330\246\312U\262\203\241\211T\262\266\203\262\331_\324\245\327\245[\330\245%\202\200\326T!\262\332\211\211@\262\211A@\262\3178\262\322S_\\\317V\203\211\323\324_\\\325\245Z\262\211\312W\203\364\326!S\262\211\324\246\312U\205\n\211\327\246\312U?\206\n\211\330\246\312U\262\203\211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3178\262\322S_\\\317V\203z\211\323\324_\\\325\245Z\262\211\312W\203[\326!S\262\211\324\246\312U\205q\211\327\246\312U?\206q\211\330\246\312U\262\203z\211T\262\266\203\262&\266\203 &\336%! '\336&! ()\325W\203\234(\202\236'\211 *@ +*A@ ,\337+,)-F!. \202\307\340)\341\n!\"A@-S\\! .\342.!\205\327./DC)\207" [displayed-month m1 displayed-year y1 m2 y2 calendar-gregorian-from-absolute (12 1 2 3) 12 nil 0 + -1 mod 1 2 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-chinese-from-absolute calendar-chinese-to-absolute assoc calendar-chinese-year calendar-date-is-visible-p macro-y nmonths start-date end-date local-start local-end month local cycle year day date string] 20 (#$ . 17904)])
#@90 String of Chinese date of Gregorian DATE.
Defaults to today's date if DATE is not given.
(defalias 'calendar-chinese-date-string #[(&optional date) "\206 \306 \211\3078\262\310\311U\203 \312\313!\202Y\311V\203\217 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203z \211\316\317_\\\320\245Z\262\211\311W\203[ \321!S\262\211\317\246\311U\205q \211\322\246\311U?\206q \211\323\246\311U\262\203z \211T\262\266\203\262\324_\317\245\322\245[\323\245%\202Y\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\354 \211\316\317_\\\320\245Z\262\211\311W\203\315 \321!S\262\211\317\246\311U\205\343 \211\322\246\311U?\206\343 \211\323\246\311U\262\203\354 \211T\262\266\203\262\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203S\211\316\317_\\\320\245Z\262\211\311W\2034\321!S\262\211\317\246\311U\205J\211\322\246\311U?\206J\211\323\246\311U\262\203S\211T\262\266\203\262&\266\203\327 !\211@\nA@ \307\n8 \330\n8 )\331 \f
\332F! *\331\f\333U\203\205 T\202\206 \334
!\335U\203\223\fT\202\224\f\336\334
!\335\"T\332F! +\337\340 \f\341\f!
\250\204\260\342\202\277\343+*ZW\203\276\344\202\277\345\334
!
\250\203\326\337\346\341\314\335\f_
\347#!\"\202\327\345)\341 \350\\!& .\207" [date a-date c-date cycle year month calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-chinese-from-absolute 3 calendar-chinese-to-absolute 1 60 floor 12 mod format "Cycle %s, year %s (%s), %smonth %s%s, day %s (%s)" calendar-chinese-sexagesimal-name "second " 30 "first " "" " (%s)" 50 15 day this-month next-month] 19 (#$ . 20946)])
#@44 Show the Chinese date equivalents of date.
(defalias 'calendar-chinese-print-date #[nil "\300\301!\210\300\302\303\304\305!!\"\207" [message "Computing Chinese date..." "Chinese date: %s" calendar-chinese-date-string calendar-cursor-to-date t] 5 (#$ . 22673) nil])
#@43 Make list of months L into an assoc list.
(defalias 'calendar-chinese-months-to-alist #[(l) "\205P @\205P A\203H A@\203H @\301A@!U\2039 \302\303\304@\"@B\303\305@\"A@BD\306AA!\"\207\302\307@!@BC\306A!\"\207\307@!@BC\207" [l floor append format "%s (first)" "%s (second)" calendar-chinese-months-to-alist number-to-string] 5 (#$ . 22944)])
#@66 A list of the months in cycle C, year Y of the Chinese calendar.
(defalias 'calendar-chinese-months #[(c y) "\302\303\304\305\306\307\310 \302\211F!!\3118\262!\"\304\312\306\307\310 \313U\203% T\202& \313U\2030 \302\2021 \302\211F!!\3118\262!\"\">\207" [c y 1 append mapcar #[(x) "@\207" [x] 1] calendar-chinese-year calendar-gregorian-from-absolute calendar-chinese-to-absolute 2 #[(x) "@\301V\205 @\207" [x 11] 2] 60] 12 (#$ . 23305)])
#@79 Move cursor to Chinese date DATE.
Echo Chinese date unless NOECHO is non-nil.
(defalias 'calendar-chinese-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-chinese-to-absolute calendar-chinese-print-date] 4 (#$ . 23762) (let* ((c (calendar-chinese-from-absolute (calendar-absolute-from-gregorian (calendar-current-date)))) (cycle (calendar-read "Chinese calendar cycle number (>44): " #'(lambda (x) (> x 44)) (number-to-string (car c)))) (year (calendar-read "Year in Chinese cycle (1..60): " #'(lambda (x) (and (<= 1 x) (<= x 60))) (number-to-string (car (cdr c))))) (month-list (calendar-chinese-months-to-alist (calendar-chinese-months cycle year))) (month (cdr (assoc (completing-read "Chinese calendar month: " month-list nil t) month-list))) (last (if (= month (nth 2 (calendar-chinese-from-absolute (+ 29 (calendar-chinese-to-absolute (list cycle year month 1)))))) 30 29)) (day (calendar-read (format "Chinese calendar day (1-%d): " last) #'(lambda (x) (and (<= 1 x) (<= x last)))))) (list (list cycle year month day)))])
#@50 Chinese calendar equivalent of date diary entry.
(defalias 'diary-chinese-date #[nil "\301\302\303!\"\207" [date format "Chinese date: %s" calendar-chinese-date-string] 4 (#$ . 24897)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\207" [autoload calendar-mark-1 "diary-lib" diary-mark-entries-1 diary-list-entries-1 diary-insert-entry-1 diary-date-display-form diary-make-date diary-ordinal-suffix] 3)
(defvar calendar-chinese-month-name-array ["正月" "二月" "三月" "四月" "五月" "六月" "七月" "八月" "九月" "十月" "冬月" "臘月"])
(defalias 'calendar-chinese-from-absolute-for-diary #[(date) "\306!\211@ A\211@ A\211 @
A\211 \n@ \nA \f \f\n
\307!
\310_\\E.
\207" [date #1=#:val #2=#:x119 #3=#:x120 #4=#:x121 #5=#:x122 calendar-chinese-from-absolute floor 100 #6=#:x123 #7=#:x124 #8=#:x125 #9=#:x126 c y m d] 5])
(defalias 'calendar-chinese-to-absolute-for-diary #[(date &optional prefer-leap) "@A\211@\nA\211 @ \fA
\306\307\" \310\307\" \311\" \306!\312\\ \313\203U \314\"\203U F\202^ F!.
\207" [date #1=#:x127 #2=#:x128 #3=#:x129 #4=#:x130 #5=#:x131 floor 100 mod calendar-chinese-months 0.5 calendar-chinese-to-absolute memql #6=#:x132 m d y cycle year months lm prefer-leap] 6])
(defalias 'calendar-chinese-mark-date-pattern #[(month day year &optional color) "\304 \n\305\306 &\210\307U?\205 \304 \n\305\310 &\207" [month day year color calendar-mark-1 calendar-chinese-from-absolute-for-diary calendar-chinese-to-absolute-for-diary 0 #[(date) "\301\302\"\207" [date calendar-chinese-to-absolute-for-diary t] 3]] 7])
#@288 Mark days in the calendar window that have Chinese date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window. See `diary-chinese-list-entries' for more information.
This function is provided for use with `diary-nongregorian-marking-hook'.
(defalias 'diary-chinese-mark-entries #[nil "\302\303 \304$\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-mark-entries-1 calendar-chinese-mark-date-pattern calendar-chinese-from-absolute-for-diary] 5 (#$ . 26624)])
#@477 Add any Chinese date entries from the diary file to `diary-entries-list'.
Chinese date diary entries must be prefixed by `diary-chinese-entry-symbol'
(normally a `C'). The same `diary-date-forms' govern the style
of the Chinese calendar entries. If a Chinese date diary entry begins with
`diary-nonmarking-symbol', the entry will appear in the diary listing,
but will not be marked in the calendar.
This function is provided for use with `diary-nongregorian-listing-hook'.
(defalias 'diary-chinese-list-entries #[nil "\302 \303#\207" [calendar-chinese-month-name-array diary-chinese-entry-symbol diary-list-entries-1 calendar-chinese-from-absolute-for-diary] 4 (#$ . 27161)])
#@64 Like `diary-anniversary' (which see) but accepts Chinese date.
(defalias 'diary-chinese-anniversary #[(month day &optional year mark) "\306 \n#\n\203 \307\310 !!\202 \311\211 \211@\262 \211A@\262F\211 @ \fA\211 @ A\211 @ A\211 !@ \"!A #\"
$ % & '\307(\211\3128\262\311\313U\203h \314\315!\202\250\313V\203\336 S\262\316\211\211@\262\211A@\262\3128\262\317S_\\\312V\203\311 \211\320\321_\\\322\245Z\262\211\313W\203\252 \323!S\262\211\321\246\313U\205\300 \211\324\246\313U?\206\300 \211\325\246\313U\262\203\311 \211T\262\266\203\262\326_\321\245\324\245[\325\245%\202\250\323T!\262\327\211\211@\262\211A@\262\3128\262\317S_\\\312V\203;\211\320\321_\\\322\245Z\262\211\313W\203 \323!S\262\211\321\246\313U\2052\211\324\246\313U?\2062\211\325\246\313U\262\203;\211T\262\266\203\262\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3128\262\317S_\\\312V\203\242\211\320\321_\\\322\245Z\262\211\313W\203\203\323!S\262\211\321\246\313U\205\231\211\324\246\313U?\206\231\211\325\246\313U\262\203\242\211T\262\266\203\262&\266\203!\211 )@ *)A\211 +@ ,+A\211 -@ .-A\211 /@ 0/A 10.,* 2 3 4 5$\203\373%\203\373\3312$Z_3%Z\\\202\374\324\211 6\313V\205+&4U\204\332&\\4U\205+'5U\205+7\33386\3346!#B. \207" [month day year ddate #1=#:val #2=#:x141 diary-make-date calendar-chinese-from-absolute calendar-chinese-to-absolute-for-diary nil 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 60 0.5 format diary-ordinal-suffix #3=#:x142 #4=#:x143 #5=#:x144 #6=#:x145 #7=#:x146 #8=#:x147 #9=#:x148 dc dy dm dd date #10=#:val #11=#:x133 #12=#:x134 #13=#:x135 #14=#:x136 #15=#:x137 #16=#:x138 #17=#:x139 #18=#:x140 cc cy cm cd diff mark entry] 20 (#$ . 27847)])
#@114 Insert an anniversary diary entry for the Chinese date at point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-chinese-insert-anniversary-entry #[(&optional arg) "\303 \304\305\306 \307\310\311\312!\211\3138\262\314\315U\203 \316\317!\202_\315V\203\225 S\262\320\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\200 \211\322\323_\\\324\245Z\262\211\315W\203a \325!S\262\211\323\246\315U\205w \211\326\246\315U?\206w \211\327\246\315U\262\203\200 \211T\262\266\203\262\330_\323\245\326\245[\327\245%\202_\325T!\262\331\211\211@\262\211A@\262\3138\262\321S_\\\313V\203\362 \211\322\323_\\\324\245Z\262\211\315W\203\323 \325!S\262\211\323\246\315U\205\351 \211\326\246\315U?\206\351 \211\327\246\315U\262\203\362 \211T\262\266\203\262\330_\323\245\326\245[\327\245\332\211\211@\262\211A@\262\3138\262\321S_\\\313V\203Y\211\322\323_\\\324\245Z\262\211\315W\203:\325!S\262\211\323\246\315U\205P\211\326\246\315U?\206P\211\327\246\315U\262\203Y\211T\262\266\203\262&\266\203!!#\n\")\207" [calendar-date-display-form diary-sexp-entry-symbol arg diary-date-display-form diary-make-entry format "%s(diary-chinese-anniversary %s)" calendar-date-string calendar-chinese-from-absolute-for-diary calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 24 (#$ . 29675) "P"])
#@53 Insert a diary entry for the Chinese date at point.
(defalias 'diary-chinese-insert-entry #[(&optional arg) "\303\304 \n\305%\207" [arg calendar-chinese-month-name-array diary-chinese-entry-symbol diary-insert-entry-1 nil calendar-chinese-from-absolute-for-diary] 6 (#$ . 31100) "P"])
#@61 Insert a monthly diary entry for the Chinese date at point.
(defalias 'diary-chinese-insert-monthly-entry #[(&optional arg) "\303\304 \n\305%\207" [arg calendar-chinese-month-name-array diary-chinese-entry-symbol diary-insert-entry-1 monthly calendar-chinese-from-absolute-for-diary] 6 (#$ . 31392) "P"])
#@60 Insert a yearly diary entry for the Chinese date at point.
(defalias 'diary-chinese-insert-yearly-entry #[(&optional arg) "\303\304 \n\305%\207" [arg calendar-chinese-month-name-array diary-chinese-entry-symbol diary-insert-entry-1 yearly calendar-chinese-from-absolute-for-diary] 6 (#$ . 31704) "P"])
(provide 'cal-china)
Mini Shell