Next: , Previous: Calendar Customizing, Up: Calendar   [Contents][Index]


39.2 ½Ëº×Æü¤Î¥«¥¹¥¿¥Þ¥¤¥º

Emacs¤Ï¡¢Ê£¿ô¤Î¥ê¥¹¥È¤ÎÃæ¤Î1¤Ä¤Î¥ê¥¹¥È¤ËÆþ¤Ã¤Æ¤¤¤ë¹àÌÜ·²¤Ç ÄêµÁ¤µ¤ì¤ë½Ëº×Æü¤òÇİ®¤·¤Æ¤¤¤Þ¤¹¡£ ¤³¤ì¤é¤Î½Ëº×Æü¤Î¥ê¥¹¥È¤Ë½Ëº×Æü¤òÄɲä·¤¿¤êºï½ü¤·¤Æ ¸Ä¿Í¤ÎÌÜŪ¤Ë¹ç¤¦¤è¤¦¤Ë¥«¥¹¥¿¥Þ¥¤¥º¤Ç¤­¤Þ¤¹¡£ Emacs¤¬»ÈÍѤ¹¤ë½Ëº×Æü¤Î¥ê¥¹¥È¤Ï¡¢ °ìÈÌ½Ëº×Æü¡Êgeneral-holidays¡Ë¡¢ Ãϰè½Ëº×Æü¡Êlocal-holidays¡Ë¡¢ ¥­¥ê¥¹¥È¶µ½Ëº×Æü¡Êchristian-holidays¡Ë¡¢ ¥Ø¥Ö¥é¥¤¡Ê¥æ¥À¥ä¶µ¡Ë½Ëº×Æü¡Êhebrew-holidays¡Ë¡¢ ¥¤¥¹¥é¥à¡Ê²ó¶µÅÌ¡Ë½Ëº×Æü¡Êislamic-holidays¡Ë¡¢ ¤½¤Î¾¤Î½Ëº×Æü¡Êother-holidays¡Ë¤Ç¤¹¡£

°ìÈÌ½Ëº×Æü¤Ï¡¢¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï¡¢¹ç½£¹ñ¤Ë¶¦ÄÌ¤Î½Ëº×Æü¤Ç¤¹¡£ ¤³¤ì¤é¤Î½Ëº×Æü¤òºï½ü¤¹¤ë¤Ë¤Ï¡¢general-holidays¤Ënil¤òÀßÄꤷ¤Þ¤¹¡£

¥Ç¥Õ¥©¥ë¥È¤ÎÃϰè½Ëº×Æü¤Ï¤¢¤ê¤Þ¤»¤ó¡Ê¥µ¥¤¥È¤Ë¤è¤Ã¤Æ¤Ï¤¢¤ë¡Ë¡£ °Ê²¼¤Ë½Ò¤Ù¤ë¤è¤¦¤Ë¡¢ ÊÑ¿ôlocal-holidays¤Ë½Ëº×Æü¤ÎǤ°Õ¤Î¥ê¥¹¥È¤òÀßÄê¤Ç¤­¤Þ¤¹¡£

¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï¡¢Emacs¤¬¾µÃΤ·¤Æ¤¤¤ë½¡¶µ¤Î¤¹¤Ù¤Æ¤Î½Ëº×Æü¤¬ Emacs¤ËÆþ¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Ï¤Ê¤¯¡¢À¤Â¯Åª¤Ê¥«¥ì¥ó¥À¡¼¤Ë¶¦Ä̤¹¤ë¤â¤Î¤À¤±¤Ç¤¹¡£ ½¡¶µ¾å¤Î½Ëº×Æü¤òÌÖÍåŪ¤ËÆþ¤ì¤ë¤Ë¤Ï¡¢ all-christian-calendar-holidays¡¢ all-hebrew-calendar-holidays¡¢ all-islamic-calendar-holidays¤ÎÊÑ¿ô¤Î¤¤¤º¤ì¤«¡Ê¤¢¤ë¤¤¤Ï¡¢¤¹¤Ù¤Æ¡Ë¤Ë t¤òÀßÄꤷ¤Þ¤¹¡£ ½¡¶µ¾å¤Î½Ëº×Æü¤òºï½ü¤¹¤ë¤Ë¤Ï¡¢Âбþ¤¹¤ë christian-holidays¡¢hebrew-holidays¡¢ islamic-holidays¤ÎÊÑ¿ô¤Î¤¤¤º¤ì¤«¡Ê¤¢¤ë¤¤¤Ï¡¢¤¹¤Ù¤Æ¡Ë¤Ë nil¤òÀßÄꤷ¤Þ¤¹¡£

ÊÑ¿ôother-holidays¤Ë¤Ï¡¢½Ëº×Æü¤ÎǤ°Õ¤Î¥ê¥¹¥È¤òÀßÄê¤Ç¤­¤Þ¤¹¡£ ¤³¤Î¥ê¥¹¥È¤Ï¡¢ÉáÄ̤϶õ¤Ç¤¹¤¬¡¢¸Ä¿ÍŪ¤Ê»ÈÍѤò°Õ¿Þ¤·¤Æ¤¤¤Þ¤¹¡£

¥ê¥¹¥È¡Êgeneral-holidays¡¢local-holidays¡¢ christian-holidays¡¢hebrew-holidays¡¢ islamic-holidays¡¢other-holidays¡Ë¤Î¤ª¤Î¤ª¤Î¤Ï¡¢ ½Ëº×Æü¡Ê¤¢¤ë¤¤¤Ï½Ëº×Æü¤Î¥ê¥¹¥È¡Ë¤òµ­½Ò¤¹¤ë ½Ëº×Æü·Á¼°¡Êholiday form¡Ë¤«¤éÀ®¤ë¥ê¥¹¥È¤Ç¤¹¡£

²Äǽ¤Ê½Ëº×Æü·Á¼°¤Î°ìÍ÷¤ò¤Ä¤®¤Ë¼¨¤·¤Þ¤¹¡£ ·î¤ÈÆü¤Ï1¤«¤é¿ô¤¨¤Þ¤¹¤¬¡¢¡ØÍËÆü¡Ù¤ÏÆüÍËÆü¤ò0¤È¿ô¤¨¤Þ¤¹¡£ Í×ÁÇstring¤Ï¡¢Ê¸»úÎó¤Çɽ¤·¤¿½Ëº×Æü¤Î̾¾Î¤Ç¤¹¡£

(holiday-fixed month day string)

¥°¥ì¥´¥ê¥ªÎñ¤Î¸ÇÄꤷ¤¿ÆüÉÕ¡£

(holiday-float month dayname k string)

¥°¥ì¥´¥ê¥ªÎñ¤Îmonth·î¤ÎkÈÖÌܤÎÍËÆüdayname¡£ ¡ÊÆüÍËÆü¤Ïdayname=0¡¢¡Ä¡£¡Ë k¤¬Éé¤Ç¤¢¤ë¤È¡¢·îËö¤«¤é¿ô¤¨¤ë¡£

(holiday-hebrew month day string)

¥Ø¥Ö¥é¥¤Îñ¤Î¸ÇÄꤷ¤¿ÆüÉÕ¡£

(holiday-islamic month day string)

¥¤¥¹¥é¥àÎñ¤Î¸ÇÄꤷ¤¿ÆüÉÕ¡£

(holiday-julian month day string)

¥æ¥ê¥¦¥¹Îñ¤Î¸ÇÄꤷ¤¿ÆüÉÕ¡£

(holiday-sexp sexp string)

Lisp¼°sexp¤Ç·×»»¤µ¤ì¤ëÆüÉÕ¡£ ·×»»¼°¤Ç¤Ï¡¢Ç¯¤È¤·¤ÆÊÑ¿ôyear¤ò»È¤¤¡¢½Ëº×Æü¤ÎÆüÉÕ¤òÊÖ¤¹¡£ ¤¢¤ë¤¤¤Ï¡¢¤½¤Îǯ¤Ë³ºÅö¤¹¤ë½Ëº×Æü¤¬¤Ê¤±¤ì¤Ðnil¤òÊÖ¤¹¡£ sexp¤ÎÃͤϡ¢(month day year)¤Î·Á¤Î ¥ê¥¹¥È¤Çɽ¤·¤¿ÆüÉդǤ¢¤ë¤³¤È¡£

(if condition holiday-form)

¾ò·ïcondition¤¬¿¿¤Ç¤¢¤ë¾ì¹ç¤Ë¤Î¤ß½Ëº×Æü¤Ë¤Ê¤ë¡£

(function [args])

°ú¿ôargs¤Ç´Ø¿ôfunction¤ò¸Æ¤Ó½Ð¤·¤Æ·×»»¤µ¤ì¤ëÆüÉդΥꥹ¥È¡£

¤¿¤È¤¨¤Ð¡¢¥Õ¥é¥ó¥¹¤Ç7·î14Æü¤Ë½Ë¤ï¤ì¤ë³×Ì¿µ­Ç°Æü¡ÊBastille Day¡Ë¤ò °·¤¨¤ë¤è¤¦¤Ë¤¹¤ë¤Ë¤Ï¤Ä¤®¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£

(setq other-holidays '((holiday-fixed 7 14 "Bastille Day")))

½Ëº×Æü·Á¼° (holiday-fixed 7 14 "Bastille Day")¤Ï¡¢ 7¤Î·î¡Ê7·î¡Ë¤Î14ÆüÌܤò»ØÄꤷ¤Þ¤¹¡£

¿¤¯¤Î½Ëº×Æü¤Ï¡¢ÆÃÄê¤Î·î¤ÎÆÃÄê¤Î½µ¤Ë¤¢¤ê¤Þ¤¹¡£ ¥Ð¡¼¥¸¥ó½ôÅç¤Ç4·î¤ÎÂè4·îÍËÆü¤Ë½Ë¤ï¤ì¤ë ¥Ï¥ê¥±¡¼¥óµ§´êÆü¡ÊHurricane Supplication Day¡Ë¤òµ­½Ò¤¹¤ë ½Ëº×Æü·Á¼°¤Ï¤Ä¤®¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

(holiday-float 8 1 4 "Hurricane Supplication Day")

¤³¤³¤Ç¡¢8¤Ï8·î¡¢1¤Ï·îÍËÆü¡ÊÆüÍËÆü¤Ï0¡¢²ÐÍËÆü¤Ï2¤È¤¤¤Ã¤¿¶ñ¹ç¡Ë¡¢4¤Ï ¤½¤Î·î¤Î4²óÌÜ¡Ê1¤ÏºÇ½é¡¢2¤Ï2²óÌÜ¡¢-1¤ÏºÇ¸å¡¢-2¤ÏºÇ¸å¤Î1¤Ä¤Þ¤¨ ¤È¤¤¤Ã¤¿¶ñ¹ç¡Ë¤ò°ÕÌ£¤·¤Þ¤¹¡£

¥Ø¥Ö¥é¥¤Îñ¡¢¥¤¥¹¥é¥àÎñ¡¢¥æ¥ê¥¦¥¹Îñ¤Î¸ÇÄꤷ¤¿ÆüÉÕ¤Î½Ëº×Æü¤â»ØÄê¤Ç¤­¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¢

(setq other-holidays
      '((holiday-hebrew 10 2 "Last day of Hanukkah")
        (holiday-islamic 3 12 "Mohammed's Birthday")
        (holiday-julian 4 2 "Jefferson's Birthday")))

¤Ï¡¢¥Ï¥Ì¥«¡¼º×¤ÎºÇ½ªÆü¡Ê¥Ø¥Ö¥é¥¤Îñ¤Î·î¤Ï¥Ë¥µ¥óNisan¤ò1¤È¿ô¤¨¤ë¡Ë¡¢ ¥¤¥¹¥é¥à¤¬½Ë¤¦¥â¥Ï¥á¥Ã¥É¤ÎÃÂÀ¸Æü ¡Ê¥¤¥¹¥é¥àÎñ¤Î·î¤Ï¥à¥Ï¥éMuharram¤ò1¤È¿ô¤¨¤ë¡Ë¡¢ ¥æ¥ê¥¦¥¹Îñ¤Î1743ǯ4·î2Æü¤Î¥È¡¼¥Þ¥¹¥¸¥§¥Õ¥¡¡¼¥½¥ó¤ÎÃÂÀ¸Æü¤ò Äɲä·¤Þ¤¹¡£

¾ò·ïÉÕ¤­¤Î½Ëº×Æü¤ò´Þ¤á¤ë¤Ë¤Ï¡¢Emacs Lisp¤Îif¤äholiday-sexp¤ò »È¤¤¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¢¥¢¥á¥ê¥«ÂçÅýÎÎÁªµó¤Ï¡¢4¤Ç³ä¤êÀÚ¤ì¤ëǯ¤Î11·î¤ÎÂè1·îÍËÆü¤Î ¤¢¤È¤ÎºÇ½é¤Î²ÐÍËÆü¤Ë¹Ô¤ï¤ì¤Þ¤¹¡£

(holiday-sexp (if (= 0 (% year 4))
                   (calendar-gregorian-from-absolute
                    (1+ (calendar-dayname-on-or-before
                          1 (+ 6 (calendar-absolute-from-gregorian
                                  (list 11 1 year))))))
              "US Presidential Election"))

¤¢¤ë¤¤¤Ï¡¢

(if (= 0 (% displayed-year 4))
    (fixed 11
           (extract-calendar-day
             (calendar-gregorian-from-absolute
               (1+ (calendar-dayname-on-or-before
                     1 (+ 6 (calendar-absolute-from-gregorian
                              (list 11 1 displayed-year)))))))
           "US Presidential Election"))

ÆÃÊ̤ʷ׻»¤òɬÍפȤ¹¤ë½Ëº×Æü¤Ï¡¢¤³¤ì¤Þ¤Ç¤Î·Á¼°¤Ë¤¢¤Æ¤Ï¤Þ¤ê¤Þ¤»¤ó¡£ ¤½¤Î¤è¤¦¤Ê¾ì¹ç¡¢·×»»¤ò¹Ô¤¦Lisp´Ø¿ô¤ò½ñ¤¯É¬Íפ¬¤¢¤ê¤Þ¤¹¡£ ¤¿¤È¤¨¤Ð¡¢Æü¿©·î¿©¤ò´Þ¤á¤ë¤Ë¤Ï¡¢ other-holidays¤Ë(eclipses)¤òÄɲ䷤ơ¢ °Ê²¼¤Î¤è¤¦¤Ê·Á¤Ç¥«¥ì¥ó¥À¡¼¥¦¥£¥ó¥É¥¦¤Î¸«¤¨¤Æ¤¤¤ëÈϰϤδü´ÖÆâ¤Î Âбþ¤¹¤ë¥°¥ì¥´¥ê¥ªÎñ¤ÎÆüÉդΡʶõ¤Ç¤¢¤ë²ÄǽÀ­¤â¤¢¤ë¡Ë¥ê¥¹¥È¤ò ÊÖ¤¹Emacs Lisp´Ø¿ô(eclipses)¤ò½ñ¤­¤Þ¤¹¡£

(((6 27 1991) "Lunar Eclipse") ((7 11 1991) "Solar Eclipse") ... )

Next: , Previous: Calendar Customizing, Up: Calendar   [Contents][Index]