when_exe 0.4.1 → 0.4.2

data/lib/when_exe/region/christian.rb

@@ -10,22 +10,28 @@ module When
   class BasicTypes::M17n
 
     Christian = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Christian=]",
-      "[Julian=en:Julian_calendar,                ユリウス暦    ]",
-      "[Gregorian=en:Gregorian_calendar,          グレゴリオ暦  ]",
-      "[RevisedJulian=en:Revised_Julian_calendar, 修正ユリウス暦]",
-      "[Swedish=en:Swedish_calendar,              スウェーデン暦]",
-      "[Civil in the West=en:Civil_calendar, 西暦, *alias:Civil]"
+      "namespace:[wiki=http://www2u.biglobe.ne.jp/~suchowan/wiki/]",
+      "locale:[=en:, ja=ja:, zh=zh:, kr=ko:, kp=ko:, ko=ko:, alias]",
+      "names:[Christian=en:Christianity, キリスト教, 基督教]",
+      "[Julian=en:Julian_calendar,                ユリウス暦    , 儒略曆, era:J]",
+      "[Gregorian=en:Gregorian_calendar,          グレゴリオ暦  , 格里曆, era:G]",
+      "[RevisedJulian=en:Revised_Julian_calendar, 修正ユリウス暦, 儒略改革曆]",
+      "[Swedish=en:Swedish_calendar,              スウェーデン暦, 瑞典曆]",
+      "[Customizable Western=wiki:pref_examples_en.html," +
+      "西暦(カスタマイズ可能)=wiki:pref_examples.html," +
+      "西元(可定制)=wiki:pref_examples.html," +
+      "서력기원(사용자정의)=wiki:pref_examples.html," +
+      "서력기원(사용자정의)=wiki:pref_examples.html," +
+      "서력기원(사용자정의)=wiki:pref_examples.html, *alias:Civil]"
     ]]
   end
 
   class TM::CalendarEra
     # Anno Mundi Era
     Byzantine = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "period:[Byzantine=en:Byzantine_calendar, ビザンティン暦=ja:%%<世界創造紀元>]",
-      ["[AM=en:Anno_Mundi, 世界創造紀元, alias:Anno_Mundi]6497*9.1",
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "period:[Byzantine=en:Byzantine_calendar, ビザンティン暦=ja:%%<世界創造紀元>, 拜占庭曆=]",
+      ["[AM=en:Anno_Mundi, 世界創造紀元, 世界創造紀元=en:Anno_Mundi, alias:Anno_Mundi]6497*9.1",
        '@CE', "989*09-01^Julian?border=0*9-1&note=Roman", "1453-5-29"]
     ]]
   end
@@ -542,24 +548,24 @@ module When
 
     Notes = [When::BasicTypes::M17n, [
       "locale:[=en:, ja=ja:, alias]",
-      "names:[Christian]",
+      "names:[Christian=en:Christianity, キリスト教]",
 
       # 年の暦注 ----------------------------
       [When::BasicTypes::M17n,
-        "names:[year]"
+        "names:[note for year=, 年の暦注=, *year]"
       ],
 
       # 月の暦注 ----------------------------
       [When::BasicTypes::M17n,
-        "names:[month]",
+        "names:[note for month=, 月の暦注=, *month]",
         [When::BasicTypes::M17n,
-          "names:[Month]"
+          "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, zh:該月的名稱=, *alias:Month=]"
         ]
       ],
 
       # 日の暦注 ----------------------------
       [When::BasicTypes::M17n,
-        "names:[day]",
+        "names:[note for day=, 日の暦注=, *day]",
         [When::BasicTypes::M17n, "names:[Week,           七曜]"      ],
         [When::BasicTypes::M17n, "names:[Easter,         復活祭]"    ],
         [When::BasicTypes::M17n, "names:[Christmas,      クリスマス]"],

data/lib/when_exe/region/coptic.rb

@@ -1,106 +1,107 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2014 Takashi SUGA
-
-  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
-=end
-
-module When
-
-  class BasicTypes::M17n
-
-    Coptic = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Coptic=]",
-      "[Coptic=en:Coptic_calendar,       コプト暦    ]",
-      "[Ethiopian=en:Ethiopian_calendar, エチオピア暦=en:Ethiopian_calendar]",
-      "[Ptolemaic=en:Ptolemaic_dynasty, プトレマイオス朝]",
-
-      # Remarks
-      '[based on Chris Bennett "Egyptian Dates" (Retrieved 2014-06-29)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/egyptian/chron_eg_intro.htm,' +
-       '典拠 - Chris Bennett "Egyptian Dates" (2014-06-29 閲覧)=]',
-
-      [self,
-        "names:[EgyptianMonth=, 月=ja:%%<月_(暦)>]",
-        "[tut=,      トート=      ]",
-        "[baba=,     バーバ=      ]",
-        "[hatur=,    ハートール=  ]",
-        "[kiyahak=,  キヤハーク=  ]",
-        "[tuba=,     トーバ=      ]",
-        "[amshir=,   アムシール=  ]",
-        "[baramhat=, バラムハート=]",
-        "[barmuda=,  バルムーダ=  ]",
-        "[bashans=,  バシャンス=  ]",
-        "[ba'una=,   バウーナ=    ]",
-        "[abib=,     アビーブ=    ]",
-        "[misra=,    ミスラー=    ]",
-        "[epagomen=, エパゴメネ=  ]"
-      ],
-
-      [self,
-        "names:[EthiopianMonth=, 月=ja:%%<月_(暦)>]",
-        "[Mäskäräm=, マスカラム=  ]",
-        "[Ṭəqəmt=,   テケルト=    ]",
-        "[Ḫədar=,    ヘダル=      ]",
-        "[Taḫśaś=,   ターサス=    ]",
-        "[Ṭərr=,     テル=        ]",
-        "[Yäkatit=,  イェカティト=]",
-        "[Mägabit=,  メガビト=    ]",
-        "[Miyazya=,  ミアジア=    ]",
-        "[Gənbot=,   ゲエンポト=  ]",
-        "[Säne=,     セネ=        ]",
-        "[Ḥamle=,    ハムレ=      ]",
-        "[Nähase=,   ネハッセ=    ]",
-        "[Ṗagʷəmen=, パゴウメン=  ]"
-      ]
-    ]]
-  end
-
-  module CalendarTypes
-
-    _egyptian_month_indices  = [
-      When.Index('Coptic::EgyptianMonth', {:unit =>13}),
-      When::Coordinates::DefaultDayIndex
-    ]
-
-    _ethiopian_month_indices = [
-      When.Index('Coptic::EthiopianMonth', {:unit =>13}),
-      When::Coordinates::DefaultDayIndex
-    ]
-
-    #
-    # Coptic Calendar in Egypt and Ethiopia
-    #
-    Coptic =  [{'Epoch'=>{'284Y'=>{'origin_of_MSC' =>   1},
-                            '0Y'=>{'origin_of_MSC' => 285},
-                            '8Y'=>{'origin_of_MSC' => 277,
-                                   'label'         => 'Coptic::Ethiopian',
-                                   'indices'       => _ethiopian_month_indices}}}, CyclicTableBased, {
-      'label'         => 'Coptic::Coptic',
-      'origin_of_LSC' => 1825030,
-      'origin_of_MSC' =>       1,
-      'diff_to_CE'    =>     285,
-      'indices'       => _egyptian_month_indices,
-      'rule_table' => {
-        'T' => {'Rule'  =>[365,365,366,365]},
-        365 => {'Length'=>[30]*12+[5]},
-        366 => {'Length'=>[30]*12+[6]}
-      }
-    }]
-
-    #
-    # Egyptian Calendar based on Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/babylonian/chron_bab_intro_fr.htm
-    #
-    Ptolemaic =  [CyclicTableBased, {
-      'label'         => 'Coptic::Ptolemaic',
-      'remarks'       => When.M17n('Coptic::based on Chris Bennett "Egyptian Dates" (Retrieved 2014-06-29)'),
-      'origin_of_LSC' => 1600478,
-      'origin_of_MSC' =>    -330,
-      'indices'       => _egyptian_month_indices,
-      'rule_table' => {
-        'T' => {'Rule'  =>[365]},
-        365 => {'Length'=>[30]*12+[5]}
-      }
-    }]
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2015 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When
+
+  class BasicTypes::M17n
+
+    Coptic = [self, [
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "names:[Coptic=en:Copts, コプト, 科普特=zh:科普特人]",
+      "[Coptic=en:Coptic_calendar,       コプト暦,                           科普特曆     ]",
+      "[Ethiopian=en:Ethiopian_calendar, エチオピア暦=en:Ethiopian_calendar, 埃塞俄比亞曆=]",
+      "[Egyptian=en:Egypt,               エジプト,                           埃及         ]",
+      "[Ptolemaic=en:Ptolemaic_dynasty,  プトレマイオス朝,                   托勒密王朝   ]",
+
+      # Remarks
+      '[based on Chris Bennett "Egyptian Dates" (Retrieved 2014-06-29)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/egyptian/chron_eg_intro.htm,' +
+       '典拠 - Chris Bennett "Egyptian Dates" (2014-06-29 閲覧)=]',
+
+      [self,
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:EgyptianMonth=]",
+        "[tut=,      トート=      ]",
+        "[baba=,     バーバ=      ]",
+        "[hatur=,    ハートール=  ]",
+        "[kiyahak=,  キヤハーク=  ]",
+        "[tuba=,     トーバ=      ]",
+        "[amshir=,   アムシール=  ]",
+        "[baramhat=, バラムハート=]",
+        "[barmuda=,  バルムーダ=  ]",
+        "[bashans=,  バシャンス=  ]",
+        "[ba'una=,   バウーナ=    ]",
+        "[abib=,     アビーブ=    ]",
+        "[misra=,    ミスラー=    ]",
+        "[epagomen=, エパゴメネ=  ]"
+      ],
+
+      [self,
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:EthiopianMonth=]",
+        "[Mäskäräm=, マスカラム=  ]",
+        "[Ṭəqəmt=,   テケルト=    ]",
+        "[Ḫədar=,    ヘダル=      ]",
+        "[Taḫśaś=,   ターサス=    ]",
+        "[Ṭərr=,     テル=        ]",
+        "[Yäkatit=,  イェカティト=]",
+        "[Mägabit=,  メガビト=    ]",
+        "[Miyazya=,  ミアジア=    ]",
+        "[Gənbot=,   ゲエンポト=  ]",
+        "[Säne=,     セネ=        ]",
+        "[Ḥamle=,    ハムレ=      ]",
+        "[Nähase=,   ネハッセ=    ]",
+        "[Ṗagʷəmen=, パゴウメン=  ]"
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    _egyptian_month_indices  = [
+      When.Index('Coptic::EgyptianMonth', {:unit =>13}),
+      When::Coordinates::DefaultDayIndex
+    ]
+
+    _ethiopian_month_indices = [
+      When.Index('Coptic::EthiopianMonth', {:unit =>13}),
+      When::Coordinates::DefaultDayIndex
+    ]
+
+    #
+    # Coptic Calendar in Egypt and Ethiopia
+    #
+    Coptic =  [{'Epoch'=>{'284Y'=>{'origin_of_MSC' =>   1},
+                            '0Y'=>{'origin_of_MSC' => 285},
+                            '8Y'=>{'origin_of_MSC' => 277,
+                                   'label'         => 'Coptic::Ethiopian',
+                                   'indices'       => _ethiopian_month_indices}}}, CyclicTableBased, {
+      'label'         => 'Coptic::Coptic',
+      'origin_of_LSC' => 1825030,
+      'origin_of_MSC' =>       1,
+      'diff_to_CE'    =>     285,
+      'indices'       => _egyptian_month_indices,
+      'rule_table' => {
+        'T' => {'Rule'  =>[365,365,366,365]},
+        365 => {'Length'=>[30]*12+[5]},
+        366 => {'Length'=>[30]*12+[6]}
+      }
+    }]
+
+    #
+    # Egyptian Calendar based on Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/babylonian/chron_bab_intro_fr.htm
+    #
+    Ptolemaic =  [CyclicTableBased, {
+      'label'         => 'Coptic::Ptolemaic',
+      'remarks'       => When.M17n('Coptic::based on Chris Bennett "Egyptian Dates" (Retrieved 2014-06-29)'),
+      'origin_of_LSC' => 1600478,
+      'origin_of_MSC' =>    -330,
+      'indices'       => _egyptian_month_indices,
+      'rule_table' => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[30]*12+[5]}
+      }
+    }]
+  end
+end

data/lib/when_exe/region/discordian.rb

@@ -1,218 +1,218 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2014 Takashi SUGA
-
-  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
-=end
-
-module When
-
-  class BasicTypes::M17n
-
-    Discordian = [self, [
-      "locale:[=en:, ja]",
-      "names:[Discordian=en:Discordian_calendar, ディスコーディアン暦=]",
-      [self,
-        "names:[IntercalaryDay=en:Intercalation, 閏日=ja:%%<閏>]",
-        "[%0sSt. Tib's Day=, %0s閏日=]"
-      ]
-    ]]
-  end
-
-  #
-  # Discordian Note
-  #
-  class CalendarNote::DiscordianWeek < CalendarNote::Week
-
-    Notes = [When::BasicTypes::M17n, [
-      "namespace:[en=http://en.wiktionary.org/wiki/]",
-      "locale:[=en:]",
-      "names:[Discordian]",
-
-      # Notes for year ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[year]"
-      ],
-
-      # Notes for month ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[month]",
-        [When::BasicTypes::M17n,
-          "names:[Month=en:month]",
-          "[Chaos=en:chaos            ]",
-          "[Discord=en:discord        ]",
-          "[Confusion=en:confusion    ]",
-          "[Bureaucracy=en:bureaucracy]",
-          "[The Aftermath=en:aftermath]"
-        ]
-      ],
-
-      # Notes for day ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-        [When::BasicTypes::M17n,
-          "names:[Week=en:week]",
-          [DayOfWeek, "label:[Sweetmorn=      ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Boomtime=       ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Pungenday=      ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Prickle-Prickle=]", {'delta'=>5}],
-          [DayOfWeek, "label:[Setting Orange= ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Out of Week=    ]", {'delta'=>1461}]
-        ],
-
-        [When::BasicTypes::M17n,
-          "names:[Holyday=]",
-          "[St. Tib's Day=]", # 02-29 St. Tib's Day
-          "[Mungday=      ]", # 01-05 Chaos 5
-          "[Chaoflux=     ]", # 02-19 Chaos 50
-          "[Mojoday=      ]", # 03-19 Discord 5
-          "[Discoflux=    ]", # 05-03 Discord 50
-          "[Syaday=       ]", # 05-31 Confusion 5
-          "[Confuflux=    ]", # 07-15 Confusion 50
-          "[Zaraday=      ]", # 08-12 Bureaucracy 5
-          "[Bureflux=     ]", # 09-26 Bureaucracy 50
-          "[Maladay=      ]", # 10-24 The Aftermath 5
-          "[Afflux=       ]"  # 12-08 The Aftermath 50
-        ],
-
-        "[Common_Week=]"
-      ]
-    ]]
-
-    # @private
-    IndexOfWeek = [0, 1, 2, 3, 5, 4]
-
-    # Just or last sweetmorn
-    #
-    # @param [When::TM::TemporalPosition] date
-    # @param [nil] parameter (not used)
-    #
-    # @return [When::TM::TemporalPosition]
-    #
-    def sweetmorn(date, parameter=nil)
-      date  = _to_date_for_note(date)
-      y,m,d = date.cal_date
-      date -= When::P1D if date.length(When::MONTH) == 74 && +d == 60
-      dow   = ((m-1)*73+d*1-1) % 5
-      date -= When::P1D * dow unless dow == 0
-      date.events = [@days_of_week[0]]
-      date
-    end
-
-    # Erisian week
-    #
-    # @param [When::TM::CalDate] date
-    # @param [When::TM::CalDate] base
-    #
-    # @return [String]
-    #
-    def week(date, base=nil)
-      date   = _to_date_for_note(date)
-      y,m,d  = date.cal_date
-      dow    = d*0 == 0 ? ((m-1)*73+d*1-1) % 5 : 5
-      length = (base || date).length(When::MONTH) == 73 ? 5 : 6
-      index  = length == 5 ? dow : IndexOfWeek[dow]
-      {:value=>@days_of_week[dow], :position=>[index,length]}
-    end
-
-    #
-    # Week labels
-    #
-    # @param [When::TM::TemporalPosition] date
-    #
-    # @return [Array<When::CalendarNote::Week::DayOfWeek>]
-    #
-    def week_labels(date)
-      date = _to_date_for_note(date)
-      date.length(When::MONTH) == 73 ?
-        @days_of_week.child[0...5] :
-        @days_of_week.child[0...4] + [@days_of_week.child[5]] + [@days_of_week.child[4]]
-    end
-
-    #  Holyday
-    #
-    # @param [When::TM::CalDate] date
-    #
-    # @return [String]
-    #
-    def holyday(date)
-      date    = _to_date_for_note(date)
-      y, m, d = date.cal_date
-      index =
-        case +d
-        when  5 ;  1
-        when 50 ;  2
-        else    ;  d * 0 - 1
-        end
-      return nil if index == -1
-      When.CalendarNote('DiscordianWeek/Notes::day::Holyday::*')[(m-1)*2+index]
-    end
-
-    #
-    # convert date to Discordian date
-    #
-    # @private
-    def _to_date_for_note(date)
-      date = When::Discordian ^ date unless date.frame.label.to_s == 'Discordian'
-      date
-    end
-
-    private
-
-    # object normalization
-    #
-    # @private
-    def _normalize(args=[], options={})
-      @event ||= 'sweetmorn'
-      super
-    end
-  end
-
-  module CalendarTypes
-
-    #
-    # Discordian Calendar
-    #
-    class Discordian < SolarYearTableBased
-
-      # @private
-      Normal_IDS = (1..73).to_a
-
-      # @private
-      Long_IDS   = (1..59).to_a + [When.Pair(59,1)] + (60..73).to_a
-
-      private
-
-      #
-      # Object Normalization
-      #
-      def _normalize(args=[], options={})
-        @label         ||= 'Discordian'
-        @indices       ||= [
-          When.Index('DiscordianWeekNotes::month::Month', {:unit =>5}),
-          When.Index({:branch=>{1=>When.M17n('Discordian::IntercalaryDay')[0]}})
-        ]
-        @origin_of_MSC ||= +1166
-        @diff_to_CE    ||=     0
-        @note          ||= 'DiscordianWeek'
-        @rule_table ||= {
-          365 => {'Length'=>        [73]*5},
-          366 => {'Length'=> [74] + [73]*4}
-        }
-        super
-      end
-
-      #
-      # day arrangement pattern
-      #
-      def _ids_(date)
-        y, m = date
-        case m
-        when nil ; super
-        when 0   ; @engine._length([+y, 1]) == 28 ?  Normal_IDS : Long_IDS
-        else     ; Normal_IDS
-        end
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2014-2015 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When
+
+  class BasicTypes::M17n
+
+    Discordian = [self, [
+      "locale:[=en:, ja=ja:]",
+      "names:[Discordian=en:Discordian_calendar, ディスコーディアン暦=]",
+      [self,
+        "names:[IntercalaryDay=en:Intercalation, 閏日=ja:%%<閏>]",
+        "[%0sSt. Tib's Day=, %0s閏日=]"
+      ]
+    ]]
+  end
+
+  #
+  # Discordian Note
+  #
+  class CalendarNote::DiscordianWeek < CalendarNote::Week
+
+    Notes = [When::BasicTypes::M17n, [
+      "namespace:[en=http://en.wiktionary.org/wiki/]",
+      "locale:[=en:, ja=ja:]",
+      "names:[Discordian]",
+
+      # Notes for year ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for year=, 年の暦注=, *year]"
+      ],
+
+      # Notes for month ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for month=, 月の暦注=, *month]",
+        [When::BasicTypes::M17n,
+          "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, zh:該月的名稱=, *alias:Month=]",
+          "[Chaos=en:chaos            ]",
+          "[Discord=en:discord        ]",
+          "[Confusion=en:confusion    ]",
+          "[Bureaucracy=en:bureaucracy]",
+          "[The Aftermath=en:aftermath]"
+        ]
+      ],
+
+      # Notes for day ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for day=, 日の暦注=, *day]",
+        [When::BasicTypes::M17n,
+          "names:[Five day week=, 五日週=, zh:五日週=, *alias:Week=]",
+          [DayOfWeek, "label:[Sweetmorn=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Boomtime=       ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Pungenday=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Prickle-Prickle=]", {'delta'=>5}],
+          [DayOfWeek, "label:[Setting Orange= ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Out of Week=    ]", {'delta'=>1461}]
+        ],
+
+        [When::BasicTypes::M17n,
+          "names:[Holyday=, 祝日=, zh:祝日=]",
+          "[St. Tib's Day=]", # 02-29 St. Tib's Day
+          "[Mungday=      ]", # 01-05 Chaos 5
+          "[Chaoflux=     ]", # 02-19 Chaos 50
+          "[Mojoday=      ]", # 03-19 Discord 5
+          "[Discoflux=    ]", # 05-03 Discord 50
+          "[Syaday=       ]", # 05-31 Confusion 5
+          "[Confuflux=    ]", # 07-15 Confusion 50
+          "[Zaraday=      ]", # 08-12 Bureaucracy 5
+          "[Bureflux=     ]", # 09-26 Bureaucracy 50
+          "[Maladay=      ]", # 10-24 The Aftermath 5
+          "[Afflux=       ]"  # 12-08 The Aftermath 50
+        ],
+
+        "[Common_Week=]"
+      ]
+    ]]
+
+    # @private
+    IndexOfWeek = [0, 1, 2, 3, 5, 4]
+
+    # Just or last sweetmorn
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [nil] parameter (not used)
+    #
+    # @return [When::TM::TemporalPosition]
+    #
+    def sweetmorn(date, parameter=nil)
+      date  = _to_date_for_note(date)
+      y,m,d = date.cal_date
+      date -= When::P1D if date.length(When::MONTH) == 74 && +d == 60
+      dow   = ((m-1)*73+d*1-1) % 5
+      date -= When::P1D * dow unless dow == 0
+      date.events = [@days_of_week[0]]
+      date
+    end
+
+    # Erisian week
+    #
+    # @param [When::TM::CalDate] date
+    # @param [When::TM::CalDate] base
+    #
+    # @return [String]
+    #
+    def week(date, base=nil)
+      date   = _to_date_for_note(date)
+      y,m,d  = date.cal_date
+      dow    = d*0 == 0 ? ((m-1)*73+d*1-1) % 5 : 5
+      length = (base || date).length(When::MONTH) == 73 ? 5 : 6
+      index  = length == 5 ? dow : IndexOfWeek[dow]
+      {:value=>@days_of_week[dow], :position=>[index,length]}
+    end
+
+    #
+    # Week labels
+    #
+    # @param [When::TM::TemporalPosition] date
+    #
+    # @return [Array<When::CalendarNote::Week::DayOfWeek>]
+    #
+    def week_labels(date)
+      date = _to_date_for_note(date)
+      date.length(When::MONTH) == 73 ?
+        @days_of_week.child[0...5] :
+        @days_of_week.child[0...4] + [@days_of_week.child[5]] + [@days_of_week.child[4]]
+    end
+
+    #  Holyday
+    #
+    # @param [When::TM::CalDate] date
+    #
+    # @return [String]
+    #
+    def holyday(date)
+      date    = _to_date_for_note(date)
+      y, m, d = date.cal_date
+      index =
+        case +d
+        when  5 ;  1
+        when 50 ;  2
+        else    ;  d * 0 - 1
+        end
+      return nil if index == -1
+      When.CalendarNote('DiscordianWeek/Notes::day::Holyday::*')[(m-1)*2+index]
+    end
+
+    #
+    # convert date to Discordian date
+    #
+    # @private
+    def _to_date_for_note(date)
+      date = When::Discordian ^ date unless date.frame.label.to_s == 'Discordian'
+      date
+    end
+
+    private
+
+    # object normalization
+    #
+    # @private
+    def _normalize(args=[], options={})
+      @event ||= 'sweetmorn'
+      super
+    end
+  end
+
+  module CalendarTypes
+
+    #
+    # Discordian Calendar
+    #
+    class Discordian < SolarYearTableBased
+
+      # @private
+      Normal_IDS = (1..73).to_a
+
+      # @private
+      Long_IDS   = (1..59).to_a + [When.Pair(59,1)] + (60..73).to_a
+
+      private
+
+      #
+      # Object Normalization
+      #
+      def _normalize(args=[], options={})
+        @label         ||= 'Discordian'
+        @indices       ||= [
+          When.Index('DiscordianWeekNotes::month::Month', {:unit =>5}),
+          When.Index({:branch=>{1=>When.M17n('Discordian::IntercalaryDay')[0]}})
+        ]
+        @origin_of_MSC ||= +1166
+        @diff_to_CE    ||=     0
+        @note          ||= 'DiscordianWeek'
+        @rule_table ||= {
+          365 => {'Length'=>        [73]*5},
+          366 => {'Length'=> [74] + [73]*4}
+        }
+        super
+      end
+
+      #
+      # day arrangement pattern
+      #
+      def _ids_(date)
+        y, m = date
+        case m
+        when nil ; super
+        when 0   ; @engine._length([+y, 1]) == 28 ?  Normal_IDS : Long_IDS
+        else     ; Normal_IDS
+        end
+      end
+    end
+  end
+end