;;; mm-version.el --- Mule and Meadow convert code-name

;; Copyright

;; Author:
;; Keywords: Mule Meadow version code-name

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:
;; To convert Mule and Meadow code-name to Japanese-Kanji.

;; Mule と Meadow の code-name を漢字に変換します。
;; http://www.ki.nu/software/emacs-20/mule-version.el
;; にちょっと手を入れただけで、とても冗長です。(^^;

;; SEMI FLIM などには対応していませんので、使える MUA は Mew くらい
;; でしょう。
;; 不満な方は、ftp://ftp.fan.gr.jp/pub/elisp/rail をどうぞ。(^^;;

;; ~/.emacs に
;; (require 'mm-version)
;; とするだけです。

;; code-name が追加された場合は
;; 1) 追加された code-name のみを 下記の要領で ~/.emacs に 加えるか、
;; (setq meadow-code-name-alist 
;;       (append '(("foo" . "風")
;;                 ("bar" . "婆"))
;;              meadow-code-name-alist))
;;
;; 2) meadow-code-name-alist に直接追加して下さい。

;;; Code:

(defvar meadow-code-name-alist
  '(("MIDORI"             . "翠")
    ("MIDORI-NO-TAMA"     . "翠之珠")
    ("TSUYU"              . "露")
    ("KASURI"             . "絣")
    ("FUDI-GASANE"	  . "藤襲")
    ("TSUTSUJI"           . "躑躅")
    ("TACHIBANA"          . "橘")
    ("HIINA"              . "雛")
    ("FUTAAWI"            . "二藍")
    ("EBIZOME"            . "葡萄染")
    ("HACHISU"            . "蓮")
    ("SASHINUKI"          . "指貫")
    ("TANAHASHI"          . "棚橋")
    ("KAKITSUBATA"        . "杜若")
    ("UKIHASHI"           . "浮橋")
    ("AWSAKA"             . "逢坂")
    ("SHOUBU"             . "菖蒲")
    ("NADESHIKO"          . "撫子")
    ("WOMINAHESHI"        . "女郎花")
    ("KIKYOU"             . "桔梗")
    ("ASAGAO"             . "朝顔")
    ))

(defvar mule-code-name-alist
  '(("KIRITSUBO"          . "桐壺")
    ("HAHAKIGI"           . "帚木")
    ("UTSUSEMI"           . "空蝉")
    ("YUUGAO"             . "夕顔")
    ("WAKAMURASAKI"       . "若紫")
    ("SUETSUMUHANA"       . "末摘花")
    ("MOMIJINOGA"         . "紅葉賀")
    ("HANANOEN"           . "花宴")
    ("AOI"                . "葵")
    ("SAKAKI"             . "賢木")
    ("HANACHIRUSATO"      . "花散里")
    ("SUMA"               . "須磨")
    ("AKASHI"             . "明石")
    ("MIOTSUKUSHI"        . "澪標")
    ("YOMOGIU"            . "蓬生")
    ("SEKIYA"             . "関屋")
    ("EAWASE"             . "絵合")
    ("MATSUKAZE"          . "松風")
    ("USUGUMU"            . "薄雲")
    ("ASAGAO"             . "朝顔")
    ("OTOME"              . "少女")
    ("TAMAKAZURA"         . "玉鬘")
    ("HATSUNE"            . "初音")
    ("KOCHOU"             . "胡蝶")
    ("HOTARU"             . "蛍")
    ("TOKONATSU"          . "常夏")
    ("KAGARIBI"           . "篝火")
    ("NOWAKE"             . "野分")
    ("MIYUKI"             . "行幸")
    ("FUJIBAKAMA"         . "藤袴")
    ("MAKIBASHIRA"        . "真木柱")
    ("UMEGAE"             . "梅枝")
    ("FUJINOURABA"        . "藤裏葉")
    ("WAKANA-KAMI"        . "若菜上")
    ("WAKANA-SHIMO"       . "若菜下")
    ("KASHIWAGI"          . "柏木")
    ("YOKOBUE"            . "横笛")
    ("SUZUMUSHI"          . "鈴虫")
    ("YUUGIRI"            . "夕霧")
    ("MINORI"             . "御法")
    ("MABOROSHI"          . "幻")
    ("KUMOGAKURE"         . "雲隠")
    ("NIOUMIYA"           . "匂宮")
    ("KOUBAI"             . "紅梅")
    ("TAKEGAWA"           . "竹河")
    ("HASHIHIME"          . "橋姫")
    ("SHIIGAMOTO"         . "椎本")
    ("AGEMAKI"            . "総角")
    ("SAWARABI"           . "早蕨")
    ("YADORIGI"           . "宿木")
    ("AZUMAYA"            . "東屋")
    ("UKIFUNE"            . "浮舟")
    ("KAGEROU"            . "蜻蛉")
    ("TENARAI"            . "手習")
    ("YUMENOUKIHASHI"     . "夢浮橋")
    ))

(if (stringp mule-version)
  (progn
    (mapcar (function
      (lambda (args)
        (if (string-match (car args) mule-version)
            (setq mule-version
              (concat (substring mule-version 0
                             (match-beginning 0))
                           (cdr args)
                           (substring mule-version (match-end 0)))))))
	    mule-code-name-alist)))

(if (featurep 'meadow)
    (if (stringp (Meadow-version))
	(progn
	  (mapcar (function
		   (lambda (args)
		     (if (string-match (car args) (Meadow-version))
			 (setq meadow-version
			       (concat (substring (Meadow-version) 0
						  (match-beginning 0))
				       (cdr args)
				       (substring (Meadow-version) (match-end 0)))))))
		  meadow-code-name-alist))))

(provide 'mm-version)

;;; mm-version.el ends here