F# スクリプトで GanttProject の .gan ファイルに休日を設定する

GanttProject の休日設定

以前の投稿で、ガントチャートの作成に Java で書かれているアプリ "GanttProject" を愛用していることを書いた。
("GanttProject とは何か?" については以前の投稿を参照)

さてこの GanttProject だが、Excel 方眼紙で書いたガントチャートとは違い、ちゃんと休日はよけてタスクをひてくれる。
まぁ、Microsoft Project をはじめ、この種のアプリでは当たり前の機能ではあるが...

さてその "休日" なのだが、GantProject では、.gan ファイルごとに手動で設定しておく必要がある。

いちおう、新規 .gan ファイル作成後にカレンダーの設定で、日本の休日カレンダーを使う、といった設定ができるのだが、使用している GanttProject のバージョンが古いせいなのか、正しい日付で休日設定されない。

ということで、ちまちま、日本の休日を、GanttProject のカレンダー設定画面に登録していく必要がある。

手作業で設定するのはあり得ない!

だがしかし、こんな作業は非生産的だ。
そこで GanttProject 以外のアプリを利用するという選択肢もあろう。

しかしここはひとつ、.gan ファイルは扱いやすい XML 形式のファイルであることを利用して、F# スクリプトで .gan ファイルに日本の休日設定を書き込んでしまうことにした。

日本の休日って?

さてそうなると、まず、"日本の休日" をプログラムが知る必要がある。

いったい日本の休日をどうやって求めるか?

幸い、インターネット上に答えがある。

各種インターネット上のカレンダーアプリだ。
Windows Live ブランドの Hotmail カレンダーや、Google カレンダーなどのことだ。

これらネットカレンダーからは、HTTP 上に iCal 形式で日本の休日情報が公開されている。
例えば Apple からはhttp://ical.mac.com/ical/Japanese32Holidays.ics という URL で iCal 形式の日本の休日情報をダウンロード可能だ。

こうしてダウンロードした iCal 情報から日本の休日がいつなのかを取得できる。

しかしiCal形式のパースはしんどい...

ただし iCal 形式というのが厄介で、以下のような形式のテキストなのだ。

BEGIN:VCALENDAR

METHOD:PUBLISH

VERSION:2.0

PRODID:-//Apple Inc.//iPhoto//EN

X-WR-CALNAME:JP Holidays

X-WR-TIMEZONE:America/Los_Angeles

CALSCALE:GERGORIAN

PREFERRED_LANGUAGE:JA

BEGIN:VEVENT

UID:0

DTSTART;VALUE=DATE:20090506

DTEND;VALUE=DATE:20090507

SUMMARY:振替休日

RESOURCES;LANGUAGE=EN:Substitute Holiday

END:VEVENT

BEGIN:VEVENT

UID:1

(以下略)

まったく手におえないとは思わないが、今回のような取り急ぎソリューションを作りたい状況では、ドロドロしたコーディングになりそうな予感がする。

DDay.iCal ライブラリ

幸い、.NET 環境においても、iCal 形式をパースしてくれるライブラリがいくつか公開されていた。

今回は DDay.iCal というライブラリを使わせていただいた。

DDay.iCal
http://nuget.org/packages/DDay.iCal/

上記のとおり NuGet パッケージもあるが、今回は F# スクリプトから参照したいので、別途 Zip 版をダウンロード ( URL は http://sourceforge.net/projects/dday-ical/file )してきて解凍し、出てきた .dll ファイルを手ごろなフォルダにコピーしておくことにする。

このライブラリで提供される iCalendar クラスの LoadFromUrl 静的メソッドで上記日本の休日の iCal をネット上からHTTP経由でロードすればOK。
ICalender オブジェクト群としてパースした結果が返るので、あとはコード上で列挙していけばよい。

完成したスクリプト

ということで出来上がったスクリプトが以下。.gan ファイル中、calendars というノードがあり、その子要素として、<date year="..." month=".." date=".."/> という要素で休日を列記していけばよい。

すでに .gan ファイル中に設定済みの休日を重複して加筆したくなかったので、まずはすでに .gan ファイル中に設定されている休日を 年・月・日の3要素からなるタプルとして取り出し。

続けて先の URL から日本の休日を取得・パースし、先に .gan から取り出した設定済み休日は Seq.filter で除外して、残ったものを <date.../> 要素として calnders 要素の子として追加。

最後に .gan ファイルを上書き保存して終了である。