when_exe 0.3.7 → 0.3.8

data/lib/when_exe/region/japanese/twins.rb

@@ -10,49 +10,49 @@ module When
   class TM::CalendarEra
 
     # Japanese Luni-Solar Calendar Series for Japanese Note
-    JapaneseLuniSolar = [self, [
+    JapaneseLuniSolar = [{}, self, [
       'locale:[=ja:, en=en:]',
       'area:[日本の暦月=, *JapaneseLuniSolar=]',
-      ['[平朔儀鳳暦=]-660.01.01',  '@F',  "-660-01-01^JapaneseTwin::平朔儀鳳暦"],
-      ['[元嘉暦]454.01.01',        '@CR',  "454-01-01^ChineseTwin::元嘉暦"],
-      ['[儀鳳暦]697.01.01',        '@CR',  "697-01-01^ChineseTwin::麟徳暦"],
-      ['[大衍暦]764.01.01',        '@CR',  "764-01-01^ChineseTwin::大衍暦"],
-      ['[五紀暦]858.01.01',        '@CR',  "858-01-01^ChineseTwin::五紀暦"],
-      ['[宣明暦]862.01.01',        '@CR',  "862-01-01^ChineseTwin::宣明暦"],
-      ['[貞享乙丑暦=]1685.01.01',  '@CR', "1685-01-01^JapaneseTwin::貞享乙丑暦"],
-      ['[貞享暦]1687.01.01',       '@CR', "1687-01-01^JapaneseTwin::貞享暦"    ],
-      ['[宝暦癸酉暦=]1753.01.01',  '@CR', "1753-01-01^JapaneseTwin::宝暦癸酉暦"],
-      ['[宝暦甲戌暦=]1754.01.01',  '@CR', "1754-01-01^JapaneseTwin::宝暦甲戌暦"],
-      ['[宝暦暦]1755.01.01',       '@CR', "1755-01-01^JapaneseTwin::宝暦暦"    ],
-      ['[修正宝暦暦=]1771.01.01',  '@CR', "1771-01-01^JapaneseTwin::修正宝暦暦"],
-      ['[寛政暦]1798.01.01',       '@CR', "1798-01-01^JapaneseTwin::寛政暦"    ], # 京都平均太陽時
-      ['[寛政丁亥暦]1827.01.01',   '@CR', "1827-01-01^JapaneseTwin::寛政丁亥暦"], # 京都平均太陽時
-      ['[天保暦]1844.01.01',       '@CR', "1844-01-01^JapaneseTwin::天保暦"    ], # 京都真太陽時
-      ['[旧々暦=,*JSO=]1872.12.03','@CR', "1872-12-03^JapaneseTwin::旧々暦"    ], # 東京平均太陽時
-      ['[旧暦,*JS=]1887.11.18',    '@CR', "1887-11-18^JapaneseTwin::旧暦"      ]  # 日本標準時
+      ['[平朔儀鳳暦=]-660.01.01',  '@F',  '-660-01-01^JapaneseTwin::平朔儀鳳暦'],
+      ['[元嘉暦]454.01.01',        '@CR',  '454-01-01^ChineseTwin::元嘉暦'],
+      ['[儀鳳暦]697.01.01',        '@CR',  '697-01-01^ChineseTwin::麟徳暦'],
+      ['[大衍暦]764.01.01',        '@CR',  '764-01-01^ChineseTwin::大衍暦'],
+      ['[五紀暦]858.01.01',        '@CR',  '858-01-01^ChineseTwin::五紀暦'],
+      ['[宣明暦]862.01.01',        '@CR',  '862-01-01^ChineseTwin::宣明暦'],
+      ['[貞享乙丑暦=]1685.01.01',  '@CR', '1685-01-01^JapaneseTwin::貞享乙丑暦'],
+      ['[貞享暦]1687.01.01',       '@CR', '1687-01-01^JapaneseTwin::貞享暦'    ],
+      ['[宝暦癸酉暦=]1753.01.01',  '@CR', '1753-01-01^JapaneseTwin::宝暦癸酉暦'],
+      ['[宝暦甲戌暦=]1754.01.01',  '@CR', '1754-01-01^JapaneseTwin::宝暦甲戌暦'],
+      ['[宝暦暦]1755.01.01',       '@CR', '1755-01-01^JapaneseTwin::宝暦暦'    ],
+      ['[修正宝暦暦=]1771.01.01',  '@CR', '1771-01-01^JapaneseTwin::修正宝暦暦'],
+      ['[寛政暦]1798.01.01',       '@CR', '1798-01-01^JapaneseTwin::寛政暦'    ], # 京都平均太陽時
+      ['[寛政丁亥暦]1827.01.01',   '@CR', '1827-01-01^JapaneseTwin::寛政丁亥暦'], # 京都平均太陽時
+      ['[天保暦]1844.01.01',       '@CR', '1844-01-01^JapaneseTwin#{?Clock=Clock}::天保暦'], # 京都真太陽時
+      ['[旧々暦=,*JSO=]1872.12.03','@CR', '1872-12-03^JapaneseTwin::旧々暦'    ], # 東京平均太陽時
+      ['[旧暦,*JS=]1887.11.18',    '@CR', '1887-11-18^JapaneseTwin::旧暦'      ]  # 日本標準時
     ]]
 
     # Japanese Solar Calendar Series for Japanese Note
-    JapaneseSolar = [self, [
+    JapaneseSolar = [{}, self, [
       'locale:[=ja:, en=en:]',
       'area:[日本の節月=, *JapaneseSolar=]',
-      ['[平朔儀鳳暦=]-661.01.01',  '@F',  "-661-01-01^JapaneseTwin::平朔儀鳳暦(節月)"], # 年の始めに遡って開始(実際は12.22)
-      ['[元嘉暦]454.01.12',        '@CR',  "454-01-12^ChineseTwin::元嘉暦(節月)"],
-      ['[儀鳳暦]696.12.27',        '@CR',  "696-12-27^ChineseTwin::麟徳暦(節月)"],
-      ['[大衍暦]764.01.06',        '@CR',  "764-01-06^ChineseTwin::大衍暦(節月)"],
-      ['[五紀暦]857.12.19',        '@CR',  "857-12-19^ChineseTwin::五紀暦(節月)"],
-      ['[宣明暦]862.01.03',        '@CR',  "862-01-03^ChineseTwin::宣明暦(節月)"],
-      ['[貞享乙丑暦=]1685.01.01',  '@CR', "1685-01-01^JapaneseTwin::貞享乙丑暦(節月)"],
-      ['[貞享暦]1687.01.08',       '@CR', "1687-01-08^JapaneseTwin::貞享暦(節月)"    ],
-      ['[宝暦癸酉暦=]1752.12.30',  '@CR', "1752-12-30^JapaneseTwin::宝暦癸酉暦(節月)"],
-      ['[宝暦甲戌暦=]1753.12.19',  '@CR', "1753-12-19^JapaneseTwin::宝暦甲戌暦(節月)"],
-      ['[宝暦暦]1755.01.07',       '@CR', "1755-01-07^JapaneseTwin::宝暦暦(節月)"    ],
-      ['[修正宝暦暦=]1771.01.11',  '@CR', "1771-01-11^JapaneseTwin::修正宝暦暦(節月)"],
-      ['[寛政暦]1798.01.12',       '@CR', "1798-01-12^JapaneseTwin::寛政暦(節月)"    ],
-      ['[寛政丁亥暦]1826.12.22',   '@CR', "1826-12-22^JapaneseTwin::寛政丁亥暦(節月)"],
-      ['[天保暦]1844.01.14',       '@CR', "1844-01-14^JapaneseTwin::天保暦(節月)"    ], # 京都真太陽時
-      ['[旧々暦=,*JSO=]1872.11.26','@CR', "1872-11-26^JapaneseTwin::旧々暦(節月)"    ], # 東京平均太陽時
-      ['[旧暦,*JS=]1887.11.26',    '@CR', "1887-11-26^JapaneseTwin::旧暦(節月)"      ]  # 日本標準時
+      ['[平朔儀鳳暦=]-661.01.01',  '@F',  '-661-01-01^JapaneseTwin::平朔儀鳳暦(節月)'], # 年の始めに遡って開始(実際は12.22)
+      ['[元嘉暦]454.01.12',        '@CR',  '454-01-12^ChineseTwin::元嘉暦(節月)'],
+      ['[儀鳳暦]696.12.27',        '@CR',  '696-12-27^ChineseTwin::麟徳暦(節月)'],
+      ['[大衍暦]764.01.06',        '@CR',  '764-01-06^ChineseTwin::大衍暦(節月)'],
+      ['[五紀暦]857.12.19',        '@CR',  '857-12-19^ChineseTwin::五紀暦(節月)'],
+      ['[宣明暦]862.01.03',        '@CR',  '862-01-03^ChineseTwin::宣明暦(節月)'],
+      ['[貞享乙丑暦=]1685.01.01',  '@CR', '1685-01-01^JapaneseTwin::貞享乙丑暦(節月)'],
+      ['[貞享暦]1687.01.08',       '@CR', '1687-01-08^JapaneseTwin::貞享暦(節月)'    ],
+      ['[宝暦癸酉暦=]1752.12.30',  '@CR', '1752-12-30^JapaneseTwin::宝暦癸酉暦(節月)'],
+      ['[宝暦甲戌暦=]1753.12.19',  '@CR', '1753-12-19^JapaneseTwin::宝暦甲戌暦(節月)'],
+      ['[宝暦暦]1755.01.07',       '@CR', '1755-01-07^JapaneseTwin::宝暦暦(節月)'    ],
+      ['[修正宝暦暦=]1771.01.11',  '@CR', '1771-01-11^JapaneseTwin::修正宝暦暦(節月)'],
+      ['[寛政暦]1798.01.12',       '@CR', '1798-01-12^JapaneseTwin::寛政暦(節月)'    ],
+      ['[寛政丁亥暦]1826.12.22',   '@CR', '1826-12-22^JapaneseTwin::寛政丁亥暦(節月)'],
+      ['[天保暦]1844.01.14',       '@CR', '1844-01-14^JapaneseTwin#{?Clock=Clock}::天保暦(節月)'], # 京都真太陽時
+      ['[旧々暦=,*JSO=]1872.11.26','@CR', '1872-11-26^JapaneseTwin::旧々暦(節月)'    ], # 東京平均太陽時
+      ['[旧暦,*JS=]1887.11.26',    '@CR', '1887-11-26^JapaneseTwin::旧暦(節月)'      ]  # 日本標準時
     ]]
   end
 
@@ -205,7 +205,7 @@ module When
 
       [ChineseLuniSolar,
         'name:[天保暦]',
-        'time_basis:LAT?long=135.4520E&lat=35.0117N',
+        'time_basis:#{Clock:LAT}?long=135.4520E&lat=35.0117N',
         'intercalary_span:3'
       ],
 

data/lib/when_exe/region/jewish.rb

@@ -66,8 +66,8 @@ module When
 
         # Default Parameters
         Rational
-        @epoch_in_CE   ||=    1
-        @origin_of_MSC ||= 3761
+        @epoch_in_CE   ||= -3760
+        @origin_of_MSC ||=  3761
         @origin_of_LSC ||= 1721300 + Rational(  9415,  98496)
         @mean_month    ||=      29 + Rational(261307, 492480)
         @leap_period   ||=   19

data/lib/when_exe/region/pax.rb

@@ -0,0 +1,60 @@
+# -*- 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
+
+    Pax = [self, [
+      "locale:[=en:, ja]",
+      "names:[Pax=]",
+      "[Pax=en:Pax_Calendar, パックス暦=ja:%%<13の月の暦>#%.<パックス暦>]",
+
+      # %0s は“閏”の表記を抑制する指定となっている
+      [self,
+        "names:[Month, 月=ja:%%<月_(暦)>]",
+        "[January,   1月, /date/month_names/1] ",
+        "[February,  2月, /date/month_names/2] ",
+        "[March,     3月, /date/month_names/3] ",
+        "[April,     4月, /date/month_names/4] ",
+        "[May,       5月, /date/month_names/5] ",
+        "[June,      6月, /date/month_names/6] ",
+        "[July,      7月, /date/month_names/7] ",
+        "[August,    8月, /date/month_names/8] ",
+        "[September, 9月, /date/month_names/9] ",
+        "[October,  10月, /date/month_names/10]",
+        "[November, 11月, /date/month_names/11]",
+        "[Columbus, 12月                      ]",
+        "[December, 13月, /date/month_names/12]",
+        "[%0sPax=en:Pax_Calendar, %0sパックス=ja:%%<13の月の暦>#%.<パックス暦>]" # Leap week
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Pax Calendar
+    #
+    Pax = [CyclicTableBased, {
+      'label'            => 'Pax::Pax',
+      'origin_of_LSC'    => 1721061,
+      'indices'          => [
+        When.Index('Pax::Month', {:branch=>{+1=>When.Resource('_m:Pax::Month::*')[13]}}),
+        When::Coordinates::DefaultDayIndex
+      ],
+      'rule_table'       => {
+        'T'  => {'Rule'  =>[364] + (1...400).to_a.map {|year|
+          yy = year % 100
+          (yy % 6) == 0 || yy==99 ? 371 : 364
+        }},
+        364  => {'Length'=>[28] * 13,          'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12,13'},
+        371  => {'Length'=>[28] * 12 + [7,28], 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12,12=,13'}
+      }
+    }]
+  end
+end

data/lib/when_exe/region/positivist.rb

@@ -0,0 +1,100 @@
+# -*- 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
+
+    Positivist = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Positivist=]",
+      "[Positivist=en:Positivist_calendar, オーギュスト・コントの暦=ja:%%<13の月の暦>#%.<実証暦>]"
+    ]]
+  end
+
+  #
+  # Positivist Week
+  #
+  class CalendarNote::PositivistWeek < CalendarNote::Week
+
+    #
+    # Positivist Note
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Positivist]",
+
+      # Notes for year ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[year]"
+      ],
+
+      # Notes for month ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[month]",
+        [When::BasicTypes::M17n,
+          "names:[Month]",
+          "[Moses,                                      モーセ                                              ]",
+          "[Homer,                                      ホメーロス                                          ]",
+          "[Aristotle,                                  アリストテレス                                      ]",
+          "[Archimedes,                                 アルキメデス                                        ]",
+          "[Caesar=en:Julius_Caesar,                    カエサル=ja:%%<ガイウス・ユリウス・カエサル>        ]",
+          "[Saint Paul=en:Paul_of_Tarsus,               パウロ                                              ]",
+          "[Charlemagne,                                シャルルマーニュ=ja:%%<カール大帝>                  ]",
+          "[Dante=en:Dante_Alighieri,                   ダンテ=ja:%%<ダンテ・アリギエーリ>                  ]",
+          "[Gutenberg=en:Johann_Gutenberg,              グーテンベルク=ja:%%<ヨハネス・グーテンベルク>      ]",
+          "[Shakespeare=en:William_Shakespeare,         シェイクスピア=ja:%%<ウィリアム・シェイクスピア>    ]",
+          "[Descartes=en:%%<René_Descartes>,            デカルト=ja:%%<ルネ・デカルト>                      ]",
+          "[Frederick=en:Frederick_II_of_Prussia,       フリードリヒ=ja:%%<フリードリヒ2世 (プロイセン王)>  ]",
+          "[Bichat=en:%%<Marie_François_Xavier Bichat>, ビシャ=ja:%%<マリー・フランソワ・クサヴィエ・ビシャ>]"
+        ]
+      ],
+
+      # Notes for day ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[Week]",
+          [DayOfWeek, "label:[Monday,                  月曜日, /date/day_names/1]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Tuesday,                 火曜日, /date/day_names/2]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Wednesday,               水曜日, /date/day_names/3]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Thursday,                木曜日, /date/day_names/4]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Friday,                  金曜日, /date/day_names/5]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Saturday,                土曜日, /date/day_names/6]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Sunday,                  日曜日, /date/day_names/0]", {'delta'=>  7}],
+          [DayOfWeek, "label:[Festival_of_the_Dead,    祖先の祭=]", {'delta'=> 366}],
+          [DayOfWeek, "label:[Festival_of_Holy_Women=, 聖女の祭=]", {'delta'=>1461}]
+        ],
+
+        "[Common_Week]"
+      ]
+    ]]
+
+    fixed_week_definitions
+
+  end
+
+  module CalendarTypes
+    #
+    # Positivist calendar based on Gregorian calendar
+    #
+    Positivist =  [YearLengthTableBased, {
+      'label'   => 'Positivist::Positivist',
+      'indices' => [
+          When.Index('PositivistWeekNotes::month::Month', {:unit =>13}),
+         When::Coordinates::DefaultDayIndex
+        ],
+      'origin_of_MSC'    => -1788,
+      'diff_to_CE'       =>     0,
+      'rule_table'       => {
+        365  => {'Length'=>[28]*12 + [29]},
+        366  => {'Length'=>[28]*12 + [30]}
+      },
+      'note'   => 'PositivistWeek'
+    }]
+  end
+end

data/lib/when_exe/region/roman.rb

@@ -1,334 +1,333 @@
-# -*- 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
-
-    Roman = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Roman=]",
-
-      # Remarks
-      '[based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm,' +
-       '典拠 - Chris Bennett "Roman Dates" (2013-05-13 閲覧)=]',
-
-      [self, # ..CE-44 / ..BCE45
-        "names:[MonthA=en:Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Quintilis,  旧7月=]",
-        "[Sextilis,   旧8月=]",
-        "[September,    9月]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]" 
-      ],
-
-      [self, # CE-43..CE-8 / BCE44..BCE9
-        "names:[MonthB=en:Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Iulius,       7月]",
-        "[Sextilis,   旧8月=]",
-        "[September,    9月]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]"
-      ],
-
-      [self, # CE-7..CE36, CE41.. / BCE8..CE36, CE41..
-        "names:[Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Iulius,       7月]",
-        "[Augustus,     8月]",
-        "[September,    9月]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]"
-      ],
-
-      [self, # CE37..CE40
-        "names:[MonthD=en:Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Iulius,       7月]",
-        "[Augustus,     8月]",
-        "[Germanicus, 新9月=]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]"
-      ],
-
-      # %0s は“閏”の表記を抑制する指定となっている
-      [self, # Intercalary Months
-        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
-        "[%0sIntercalaris=en:Roman_calendar#Calendar_of_Numa,"      +
-         "閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
-        "[%0sIntercalaris Prior=en:Julian_calendar#Realignment_of_the_year,"     +
-         "第１閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
-        "[%0sIntercalaris Posterior=en:Julian_calendar#Realignment_of_the_year," +
-         "第２閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
-      ]
-    ]]
-  end
-
-  class TM::CalendarEra
-
-    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
-    Julian = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "period:[Roman=en:Roman_calendar, ローマ暦]",
-      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, alias:Ab_urbe_condita]709.1.1",
-       '@CE', "-44-01-01^JulianA",
-               "-7-03-01^JulianB",
-                "8-01-01^JulianC", "476-09-04"]
-    ]]
-
-    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
-    Roman = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "period:[Roman=en:Roman_calendar, ローマ暦]",
-      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, alias:Ab_urbe_condita]492.5.1",
-       '@CE', "-261-05-01^RomanA?border=0-5-1",
-              "-221-03-01^RomanA?border=0-3-1",
-              "-152-01-01^RomanA",
-               "-43-01-01^RomanB",
-                "-7-01-01^RomanC",
-                "37-01-01^RomanD",
-                "41-01-01^Roman", "476-09-04"]
-    ]]
-
-  end
-
-  module CalendarTypes
-
-    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
-    _Index0     = When::Coordinates::DefaultDayIndex
-    _IndicesB12 = [When.Index('Roman::MonthB', {:unit=>12}), _Index0]
-    _Indices12  = [When.Index('Roman::Month',  {:unit=>12}), _Index0]
-
-    #
-    # Julian Calendar A : BCE45-BCE8
-    #
-    JulianA =  [CyclicTableBased, {
-      'origin_of_LSC'  =>  1704987,
-      'origin_of_MSC'  =>  -44,
-      'indices' => _IndicesB12,
-      'rule_table'     => {
-        'T' => {'Rule'  =>[365,366,365]},
-        365 => {'Length'=>[31,29] + [31,30]*5},
-        366 => {'Length'=>[31,30] + [31,30]*5}
-      },
-      'note' => 'Roman'
-    }]
-
-    #
-    # Julian Calendar B : BCE8-CE7
-    #
-    JulianB =  [CyclicTableBased, {
-      'origin_of_LSC'  =>  1704987+13,
-      'origin_of_MSC'  =>  -44,
-      'indices' => _IndicesB12,
-      'rule_table'     => {
-        'T' => {'Rule'  =>[365]},
-        365 => {'Length'=>[31,28] + [31,30,31,30,31]*2}
-      },
-      'note' => 'Roman'
-    }]
-
-    #
-    # Julian Calendar C : CE8-
-    #
-    JulianC =  [Julian, {
-      'indices' => _Indices12,
-      'note'    => 'Roman'
-    }]
-
-    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
-    #
-    # Roman Calendar BCE262-(CE60)-CE480
-    #
-    # _ID_N = '1,2,3,4,5,6,7,8,9,10,11,12'
-    _ID_L = '1,2,2=,3,4,5,6,7,8,9,10,11,12'
-    _ID_J = '1,2,2=,3,4,5,6,7,8,9,10,11,11<,11>,12'
-    _Branch = {
-        1=>When.Resource('_m:Roman::IntercalaryMonth::*')[0],
-      0.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[1],
-      1.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[2]
-    }
-    _IndicesA = [When.Index('Roman::MonthA', {:branch=>_Branch}), _Index0]
-    _IndicesB = [When.Index('Roman::MonthB', {:branch=>_Branch}), _Index0]
-    _Indices  = [When.Index('Roman::Month',  {:branch=>_Branch}), _Index0]
-    _IndicesD = [When.Index('Roman::MonthD', {:branch=>_Branch}), _Index0]
-    _remarks  = When.M17n('Roman::based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)')
-    # @private
-    Options = {
-      'origin_of_LSC'  =>  1625698,
-      'origin_of_MSC'  =>  -261,
-      'indices' => _Indices,
-      'rule_table'     => {
-        'T' => {'Rule' =>      %w(                                                       A C  A B A C A B A C A B
-          A C A B A C A B A C  A B A C A B A C A B  A C A B A C A B A C  A B A A C B A A A A  C A A A B A C A A B
-          A A A A A A A A A A  C A C A B C A C A B  C A C A C A B C A C  A C A A B C A B C A  B C A B C A C A C A
-          C A C A C A C A C A  C A A C A C A C A C  A C A C A C A C A C  A C A C A C A A C A  A C A A C A A C A A
-          C A C A C A C A C A  C A C A A C A C A C  A C A C A C A C A C  A C A C A A C A A C  A A C A A B A A C A
-          A A A A J N L N N L  N N L N N L N N L N  N L N N L N N L N N  L N N L N N L N N L  N N L N N N N N N N) +
-          %w(N N N L) * 120
-        },
-        'A' => {'Length'=>[29, 28, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29]},
-        'B' => {'Length'=>[29, 23, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
-        'C' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
-        'J' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 34, 31, 31, 29], 'IDs'=>_ID_J},
-        'N' => {'Length'=>[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
-        'L' => {'Length'=>[31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
-      },
-      'note' => 'Roman'
-    }
-    # @private
-    RomanA =  [CyclicTableBased, Options.merge({'remarks'=>_remarks, 'indices' => _IndicesA})]
-    # @private
-    RomanB =  [CyclicTableBased, Options.merge({'remarks'=>_remarks, 'indices' => _IndicesB})]
-    # @private
-    RomanC =  [CyclicTableBased, Options.merge({'remarks'=>_remarks                        })]
-    # @private
-    RomanD =  [CyclicTableBased, Options.merge({'remarks'=>_remarks, 'indices' => _IndicesD})]
-    # @private
-    Roman  =  [CyclicTableBased, Options]
-  end
-
-  #
-  # 古代ローマの暦注
-  #
-  class CalendarNote::Roman < CalendarNote
-
-    Notes = [When::BasicTypes::M17n, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Roman]",
-
-      # 年の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[year]",
-
-        [When::Coordinates::Residue,
-          "label:[Solar=en:Solar_cycle_(calendar), 太陽章=]", "divisor:28", "year:-8",
-        ],
-
-        [When::Coordinates::Residue,
-          "label:[Metonic=en:Metonic_cycle, 太陰章=]", "divisor:19", "year:0",
-        ],
-
-        [When::Coordinates::Residue,
-          "label:[Indiction, インディクション]", "divisor:15", "year:-2", "format:[%s=]",
-          [When::Coordinates::Residue, "label:[I=   ]", "remainder:  0"],
-          [When::Coordinates::Residue, "label:[II=  ]", "remainder:  1"],
-          [When::Coordinates::Residue, "label:[III= ]", "remainder:  2"],
-          [When::Coordinates::Residue, "label:[IV=  ]", "remainder:  3"],
-          [When::Coordinates::Residue, "label:[V=   ]", "remainder:  4"],
-          [When::Coordinates::Residue, "label:[VI=  ]", "remainder:  5"],
-          [When::Coordinates::Residue, "label:[VII= ]", "remainder:  6"],
-          [When::Coordinates::Residue, "label:[VIII=]", "remainder:  7"],
-          [When::Coordinates::Residue, "label:[IX=  ]", "remainder:  8"],
-          [When::Coordinates::Residue, "label:[X=   ]", "remainder:  9"],
-          [When::Coordinates::Residue, "label:[XI=  ]", "remainder: 10"],
-          [When::Coordinates::Residue, "label:[XII= ]", "remainder: 11"],
-          [When::Coordinates::Residue, "label:[XIII=]", "remainder: 12"],
-          [When::Coordinates::Residue, "label:[XIV= ]", "remainder: 13"],
-          [When::Coordinates::Residue, "label:[XV=  ]", "remainder: 14"],
-        ]
-      ],
-
-      # 月の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[month]",
-        [When::BasicTypes::M17n,
-          "names:[Month]"
-        ]
-      ],
-
-      # 日の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-
-        [When::BasicTypes::M17n,
-          "names:[Nomen]"
-        ]
-      ]
-    ]]
-
-    Order = [
-      'a.d. bis VI',
-      'prid.',    'a.d. III',  'a.d. IV',    'a.d. V',   'a.d. VI',   'a.d. VII', 'a.d. VIII', 
-      'a.d. IX',  'a.d. X',    'a.d. XI',    'a.d. XII', 'a.d. XIII', 'a.d. XIV', 'a.d. XV', 
-      'a.d. XVI', 'a.d. XVII', 'a.d. XVIII', 'a.d. XIX', 'a.d. XX',   'a.d. XXI', 'a.d. XXII'
-    ]
-
-    LongMonths = [3, 5, 7, 10, When.Pair(11,0.5), When.Pair(11,1.5)]
-    LongType   = [1, 2..6, 7, 8..14, 15]
-    ShortType  = [1, 2..4, 5, 6..12, 13]
-
-    # 暦注 - 日の名前
-    #
-    # @param [When::TM::CalDate] date
-    #
-    # @return [String]
-    #
-    def nomen(date)
-      y, m, d = date.cal_date
-      month_name = _abbr_of_month(date)
-      kal, to_nonae, nonae, to_idus, idus = LongMonths.include?(m) ? LongType : ShortType
-      case d
-      when kal      ; return                     'Kal. ' + month_name
-      when to_nonae ; return Order[nonae - d] + ' Non. ' + month_name
-      when nonae    ; return                     'Non. ' + month_name
-      when to_idus  ; return Order[idus  - d] + ' Id. '  + month_name
-      when idus     ; return                     'Id. '  + month_name
-      end
-      this_month = date.floor(When::MONTH)
-      next_month = this_month.succ
-      month_name = _abbr_of_month(next_month)
-      rest = next_month.to_i - date.to_i
-      if m == 2 && next_month.to_i - this_month.to_i == 29
-        return Order[0] + ' Kal. ' + month_name if rest == 5
-        rest -= 1 if rest > 5
-      end
-      return Order[rest] + ' Kal. ' + month_name
-    end
-
-    private
-
-    # オブジェクトの正規化
-    def _normalize(args=[], options={})
-     @event = 'nomen'
-     super
-    end
-
-    # 日の省略名
-    def _abbr_of_month(month)
-      name = month.name('month').to_s
-      return name.sub(/ (..).*/, ' \1.') if name.sub!(/Intercalaris(.*)?/, 'Int.\1')
-      name.size <= 3 ? name : name[/\A...[^caeiou]*/] + '.'
-    end
-  end
-end
+# -*- 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
+
+    Roman = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Roman=]",
+
+      # Remarks
+      '[based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm,' +
+       '典拠 - Chris Bennett "Roman Dates" (2013-05-13 閲覧)=]',
+
+      [self, # ..CE-44 / ..BCE45
+        "names:[MonthA=en:Month, 月=ja:%%<月_(暦)>]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Quintilis,  旧7月=]",
+        "[Sextilis,   旧8月=]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]" 
+      ],
+
+      [self, # CE-43..CE-8 / BCE44..BCE9
+        "names:[MonthB=en:Month, 月=ja:%%<月_(暦)>]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Sextilis,   旧8月=]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # CE-7..CE36, CE41.. / BCE8..CE36, CE41..
+        "names:[Month, 月=ja:%%<月_(暦)>]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Augustus,     8月]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # CE37..CE40
+        "names:[MonthD=en:Month, 月=ja:%%<月_(暦)>]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Augustus,     8月]",
+        "[Germanicus, 新9月=]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      # %0s は“閏”の表記を抑制する指定となっている
+      [self, # Intercalary Months
+        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
+        "[%0sIntercalaris=en:Roman_calendar#Calendar_of_Numa,"      +
+         "閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
+        "[%0sIntercalaris Prior=en:Julian_calendar#Realignment_of_the_year,"     +
+         "第１閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
+        "[%0sIntercalaris Posterior=en:Julian_calendar#Realignment_of_the_year," +
+         "第２閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
+      ]
+    ]]
+  end
+
+  class TM::CalendarEra
+
+    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    Julian = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "period:[Roman=en:Roman_calendar, ローマ暦]",
+      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, alias:Ab_urbe_condita]709.1.1",
+       '@CE', "-44-01-01^JulianA",
+               "-7-03-01^JulianB",
+                "8-01-01^JulianC", "476-09-04"]
+    ]]
+
+    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
+    Roman = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "period:[Roman=en:Roman_calendar, ローマ暦]",
+      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, alias:Ab_urbe_condita]492.5.1",
+       '@CE', "-261-05-01^RomanA?border=0-5-1",
+              "-221-03-01^RomanA?border=0-3-1",
+              "-152-01-01^RomanA",
+               "-43-01-01^RomanB",
+                "-7-01-01^RomanC",
+                "37-01-01^RomanD",
+                "41-01-01^Roman", "476-09-04"]
+    ]]
+
+  end
+
+  module CalendarTypes
+
+    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    _Index0     = When::Coordinates::DefaultDayIndex
+    _IndicesB12 = [When.Index('Roman::MonthB', {:unit=>12}), _Index0]
+    _Indices12  = [When.Index('Roman::Month',  {:unit=>12}), _Index0]
+
+    #
+    # Julian Calendar A : BCE45-BCE8
+    #
+    JulianA =  [CyclicTableBased, {
+      'origin_of_LSC'  =>  1704987,
+      'origin_of_MSC'  =>  -44,
+      'indices' => _IndicesB12,
+      'rule_table'     => {
+        'T' => {'Rule'  =>[365,366,365]},
+        365 => {'Length'=>[31,29] + [31,30]*5},
+        366 => {'Length'=>[31,30] + [31,30]*5}
+      },
+      'note' => 'Roman'
+    }]
+
+    #
+    # Julian Calendar B : BCE8-CE7
+    #
+    JulianB =  [CyclicTableBased, {
+      'origin_of_LSC'  =>  1704987+13,
+      'origin_of_MSC'  =>  -44,
+      'indices' => _IndicesB12,
+      'rule_table'     => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[31,28] + [31,30,31,30,31]*2}
+      },
+      'note' => 'Roman'
+    }]
+
+    #
+    # Julian Calendar C : CE8-
+    #
+    JulianC =  [Julian, {
+      'indices' => _Indices12,
+      'note'    => 'Roman'
+    }]
+
+    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
+    #
+    # Roman Calendar BCE262-(CE60)-CE480
+    #
+    # _ID_N = '1,2,3,4,5,6,7,8,9,10,11,12'
+    _ID_L = '1,2,2=,3,4,5,6,7,8,9,10,11,12'
+    _ID_J = '1,2,2=,3,4,5,6,7,8,9,10,11,11<,11>,12'
+    _Branch = {
+        1=>When.Resource('_m:Roman::IntercalaryMonth::*')[0],
+      0.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[1],
+      1.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[2]
+    }
+    _IndicesA = [When.Index('Roman::MonthA', {:branch=>_Branch}), _Index0]
+    _IndicesB = [When.Index('Roman::MonthB', {:branch=>_Branch}), _Index0]
+    _Indices  = [When.Index('Roman::Month',  {:branch=>_Branch}), _Index0]
+    _IndicesD = [When.Index('Roman::MonthD', {:branch=>_Branch}), _Index0]
+    _remarks  = When.M17n('Roman::based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)')
+    _options = {
+      'origin_of_LSC'  =>  1625698,
+      'origin_of_MSC'  =>  -261,
+      'indices' => _Indices,
+      'rule_table'     => {
+        'T' => {'Rule' =>      %w(                                                       A C  A B A C A B A C A B
+          A C A B A C A B A C  A B A C A B A C A B  A C A B A C A B A C  A B A A C B A A A A  C A A A B A C A A B
+          A A A A A A A A A A  C A C A B C A C A B  C A C A C A B C A C  A C A A B C A B C A  B C A B C A C A C A
+          C A C A C A C A C A  C A A C A C A C A C  A C A C A C A C A C  A C A C A C A A C A  A C A A C A A C A A
+          C A C A C A C A C A  C A C A A C A C A C  A C A C A C A C A C  A C A C A A C A A C  A A C A A B A A C A
+          A A A A J N L N N L  N N L N N L N N L N  N L N N L N N L N N  L N N L N N L N N L  N N L N N N N N N N) +
+          %w(N N N L) * 120
+        },
+        'A' => {'Length'=>[29, 28, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29]},
+        'B' => {'Length'=>[29, 23, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
+        'C' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
+        'J' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 34, 31, 31, 29], 'IDs'=>_ID_J},
+        'N' => {'Length'=>[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
+        'L' => {'Length'=>[31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
+      },
+      'note' => 'Roman'
+    }
+    # @private
+    RomanA =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesA})]
+    # @private
+    RomanB =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesB})]
+    # @private
+    RomanC =  [CyclicTableBased, _options.merge({'remarks'=>_remarks                        })]
+    # @private
+    RomanD =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesD})]
+    # @private
+    Roman  =  [CyclicTableBased, _options]
+  end
+
+  #
+  # 古代ローマの暦注
+  #
+  class CalendarNote::Roman < CalendarNote
+
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Roman]",
+
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[year]",
+
+        [When::Coordinates::Residue,
+          "label:[Solar=en:Solar_cycle_(calendar), 太陽章=]", "divisor:28", "year:-8",
+        ],
+
+        [When::Coordinates::Residue,
+          "label:[Metonic=en:Metonic_cycle, 太陰章=]", "divisor:19", "year:0",
+        ],
+
+        [When::Coordinates::Residue,
+          "label:[Indiction, インディクション]", "divisor:15", "year:-2", "format:[%s=]",
+          [When::Coordinates::Residue, "label:[I=   ]", "remainder:  0"],
+          [When::Coordinates::Residue, "label:[II=  ]", "remainder:  1"],
+          [When::Coordinates::Residue, "label:[III= ]", "remainder:  2"],
+          [When::Coordinates::Residue, "label:[IV=  ]", "remainder:  3"],
+          [When::Coordinates::Residue, "label:[V=   ]", "remainder:  4"],
+          [When::Coordinates::Residue, "label:[VI=  ]", "remainder:  5"],
+          [When::Coordinates::Residue, "label:[VII= ]", "remainder:  6"],
+          [When::Coordinates::Residue, "label:[VIII=]", "remainder:  7"],
+          [When::Coordinates::Residue, "label:[IX=  ]", "remainder:  8"],
+          [When::Coordinates::Residue, "label:[X=   ]", "remainder:  9"],
+          [When::Coordinates::Residue, "label:[XI=  ]", "remainder: 10"],
+          [When::Coordinates::Residue, "label:[XII= ]", "remainder: 11"],
+          [When::Coordinates::Residue, "label:[XIII=]", "remainder: 12"],
+          [When::Coordinates::Residue, "label:[XIV= ]", "remainder: 13"],
+          [When::Coordinates::Residue, "label:[XV=  ]", "remainder: 14"],
+        ]
+      ],
+
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[month]",
+        [When::BasicTypes::M17n,
+          "names:[Month]"
+        ]
+      ],
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+
+        [When::BasicTypes::M17n,
+          "names:[Nomen]"
+        ]
+      ]
+    ]]
+
+    Order = [
+      'a.d. bis VI',
+      'prid.',    'a.d. III',  'a.d. IV',    'a.d. V',   'a.d. VI',   'a.d. VII', 'a.d. VIII', 
+      'a.d. IX',  'a.d. X',    'a.d. XI',    'a.d. XII', 'a.d. XIII', 'a.d. XIV', 'a.d. XV', 
+      'a.d. XVI', 'a.d. XVII', 'a.d. XVIII', 'a.d. XIX', 'a.d. XX',   'a.d. XXI', 'a.d. XXII'
+    ]
+
+    LongMonths = [3, 5, 7, 10, When.Pair(11,0.5), When.Pair(11,1.5)]
+    LongType   = [1, 2..6, 7, 8..14, 15]
+    ShortType  = [1, 2..4, 5, 6..12, 13]
+
+    # 暦注 - 日の名前
+    #
+    # @param [When::TM::CalDate] date
+    #
+    # @return [String]
+    #
+    def nomen(date)
+      y, m, d = date.cal_date
+      month_name = _abbr_of_month(date)
+      kal, to_nonae, nonae, to_idus, idus = LongMonths.include?(m) ? LongType : ShortType
+      case d
+      when kal      ; return                     'Kal. ' + month_name
+      when to_nonae ; return Order[nonae - d] + ' Non. ' + month_name
+      when nonae    ; return                     'Non. ' + month_name
+      when to_idus  ; return Order[idus  - d] + ' Id. '  + month_name
+      when idus     ; return                     'Id. '  + month_name
+      end
+      this_month = date.floor(When::MONTH)
+      next_month = this_month.succ
+      month_name = _abbr_of_month(next_month)
+      rest = next_month.to_i - date.to_i
+      if m == 2 && next_month.to_i - this_month.to_i == 29
+        return Order[0] + ' Kal. ' + month_name if rest == 5
+        rest -= 1 if rest > 5
+      end
+      return Order[rest] + ' Kal. ' + month_name
+    end
+
+    private
+
+    # オブジェクトの正規化
+    def _normalize(args=[], options={})
+     @event = 'nomen'
+     super
+    end
+
+    # 日の省略名
+    def _abbr_of_month(month)
+      name = month.name('month').to_s
+      return name.sub(/ (..).*/, ' \1.') if name.sub!(/Intercalaris(.*)?/, 'Int.\1')
+      name.size <= 3 ? name : name[/\A...[^caeiou]*/] + '.'
+    end
+  end
+end