################################################################
# yar-3 theme
# $Id: theme.ph,v 1.26 1999/05/14 12:59:15 kenji Exp $
################################################################
# Basic settings
package HNS::System;
$MesMail = $UserMail;
# author name
$Author = 'yar-3';
# default number of display (days)
$DefaultMax = 3;
# i system integration
$isystem = "i"; # set i system web directory
package HNS::PIM::Schedule;
$MaxNum = 12; # max number of schedule
$Range = 1; # month(s) of schedule displayed
$RRange = $Range; # month(s) of schedule displayed for repeat
package HNS::PIM::Todo;
$MaxNum = 12; # max number of Todo
package HNS::Calendar::Table;
$TableBorder = 1;
################################################################
# Table Calendar
package HNS::Calendar::Table;
$DayCurrentTemplate = qq(%day);
$DayNonCurrentTemplate = qq(%day);
################################################################
# User variable
# parameter %value is expanded to value of the user variable.
# you can use other value of user variable by noting as "%user{BASHO}".
package HNS::Hnf::UserVar;
$Templates{'TENKI'} = "[天気: %value]";
$Templates{'BASHO'} = "(%value) ";
$Templates{'TAION'} = "体温:%value度 ";
$Templates{'TAIJU'} = "体重:%value" . "Kg ";
$Templates{'SUIMIN'} = "睡眠:%value時間 ";
$Templates{'BGM'} = "BGM:%value ";
#adedd by yar-3
$Templates{'VIDEO'} = "VIDEO:%value ";
$Templates{'DVD'} = "DVD:%value ";
$Templates{'LD'} = "LD:%value ";
$Templates{'RADIO'} = "ラジオ:%value ";
$Templates{'ODO'} = "ODO:%value km ";
$Templates{'TRIP'} = "TRIP:%value km ";
#adedd by yar-3
################################################################
# Mark
package HNS::Hnf::Command::MARK;
# image size is automatically set
$List{"(^^)"} = "icons/nomal_13.gif";
$List{"(^^;"} = "icons/ase_13.gif";
$List{"(;_;)"} = "icons/naku_13.gif";
$List{"v(^^)"} = "icons/v_13.gif";
$List{"!!"} = "icons/neko_13.gif";
$List{"??"} = "icons/hatena_13.gif";
$List{"(笑)"} = "icons/warau_13.gif";
################################################################
# CategoryList
package HNS::CategoryList;
$CatDir = "cat";
$TitleLabel = "タイトル一覧";
$SubmitLabel = "Go!";
$Template = qq(←
%value\n);
################################################################
# Extend HTML
package HNS::ExtHTML;
$DOCTYPE = qq(\n);
#$Head = undef;
$Head = qq(
);
#$BodyVal = undef;
##$BodyVal = "bgcolor=#ffffcc";
#$DynamicPrintFunc = undef;
##$DynamicPrintFunc = \&PrintTime;
##sub PrintTime
##{
## print qq(time is);
## print join(':', reverse ((localtime)[0..2]));
## print qq(
);
##}
################################################################
package HNS::Collection;
# %num : number of showing diarys
$FootMessages{'HasContent'} = "以上、%num 日分です。\n";
$FootMessages{'NoContent'} = "該当するものはありません。\n";
################################################################
# PIM
# Schedule
package HNS::PIM::Schedule;
@WeekString = ('日', '月', '火', '水', '木', '金', '土');
$ContentTemplate = qq(%month/%day%week %content\n);
$BeginTemplate = "";
# TODO
package HNS::PIM::Todo;
$ContentTemplate = "%priority %content\n";
$BeginTemplate = "";
################################################################
# Calendar
package HNS::Calendar::Table;
@WeekString = ('日', '月', '火', '水', '木', '金', '土');
$TableBorder = 0;
$NextTemplate = qq(来月);
$PrevTemplate = qq(先月);
$ThisTemplate = qq(%year年%month月);
package HNS::Calendar::NoTable;
$NextTemplate = qq(>>);
$PrevTemplate = qq(<<);
$ThisTemplate = qq(%year/%month);
################################################################
# DateSelect
package HNS::DateSelect;
$YearTemplate = "%year年";
$MonthTemplate = "%month月";
$DayTemplate = "%start_day〜%end_day日";
$AllLabel = "全て";
$SubmitLabel = "Go!";
################################################################
# Style
package HNS::Style;
$Templates{Table}->{pim} = qq(
);
$Templates{Table}->{head_style} = qq(
%pim
|
%calendar
|
%unagi
|
|
%direct_calendar
|
);
$Templates{Table}->{foot_style} = "\n
\n%category_list";
# template for no table browser
$Templates{NoTable} = {
pim => qq(
\n%schedule %todo),
head_style => qq(%pim\n
\n%unagi\n
\n%calendar
%direct_calendar\n
\n),
foot_style=> "
\n%category_list"
};
# unagi template
$UnagiTemplate = qq(
Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい
);
$NoUnagiTemplate = qq(
);
################################################################
# Warning
package HNS::Hnf::Warning;
$Head = "
\[- 日記システム警告：";
$Foot = "-\]
\n";
# parameters:
# %c : the command name
# %p : command name of inserted position
#
$Messages{'IllegalHeader'} = "ヘッダ部が不正です";
$Messages{'UndefinedUserVar'} = "定義されていないユーザ変数が使われています";
$Messages{'Reserved'} = "コマンド %c は予約されています。";
$Messages{'NoMatch'} = "コマンド %p の中にコマンド %c を含めることはできません。コマンド /%c が抜けている可能性があります。";
$Messages{'NotDefined'} = "コマンド %c の引数として %t は定義されていません。";
################################################################
# Version Message
# paramter:
# %homepage
# %public_version
# %current_version
package HNS;
$VersionMessages{'Public'} = q(
hns - 日記自動生成システム - Version %public
);
$VersionMessages{'NonPublic'} = qq(
注意：
今現在使用されているこの日記自動生成システムは
Version %current です。
公開されている日記自動生成システムは
Version %public です。
);
################################################################
# Template
# usable parameter (%[A-Za-z0-9_]) is:
# date:
# %year, %month, %day : year, month, day
# %high : int(day/10)
#
# counter:
# %new, %sub, %fn : counter of NEW, SUB, FN
package HNS::Diary;
################
# diary limited parameter:
# %week : week string
#
# user-variable
# %user{VARNAME} : string as which user-var-format is expanded using
# value of user-variable VARNAME.
@WeekString = ('日', '月', '火', '水', '木', '金', '土');
$Head = qq(
%year/%month/%day(%week)
[n年機能]
);
#added by yar-3
$UserVar = qq(
%user{TENKI}%user{BASHO}%user{TAIJU}%user{TAION}%user{SUIMIN}%user{BGM}
%user{HOSU}
%user{VIDEO} %user{DVD} %user{LD}
%user{RADIO}
%user{ODO} %user{TRIP}
);
#added by yar-3
$Foot = qq(
\n);
package HNS::Hnf::Command::NEW;
$Template = q(
#%new
%cat %content
);
$EndTemplate = "
\n";
package HNS::Hnf::Command::LNEW;
$Template = q(
);
$EndTemplate = "
\n";
package HNS::Hnf::Command::SUB;
$Template = q(
＠
%content:
);
$EndTemplate = "
\n";
package HNS::Hnf::Command::LSUB;
$Template = q(
\n";
$NumAttr = 1;
################################################################
# Inline Elements
# these element has no content commands,
# so $EndTemplate, $AllowCommands has no means.
package HNS::Hnf::Command::LINK;
$Template = qq(%content );
$NumAttr = 1;
package HNS::Hnf::Command::RLINK;
$Template = qq(%content );
$NumAttr = 2;
# overriden AsHTML
package HNS::Hnf::Command::URL;
$Template = qq();
$NumAttr = 1;
package HNS::Hnf::Command::STRIKE;
#$Template = q(%content);
package HNS::Hnf::Command::LSTRIKE;
$Template = q(%content);
$NumAttr = 1;
package HNS::Hnf::Command::STRONG;
$Template = q(%content);
package HNS::Hnf::Command::FONT;
$Template = q(%content);
$NumAttr = 2;
package HNS::Hnf::Command::IMG;
$Template = q(
);
$NumAttr = 2;
# overriden AsHTML
package HNS::Hnf::Command::MARK;
$Template = qq(\n);
$NumAttr = 1;
# overriden AsHTML
package HNS::Hnf::Command::ALIAS;
$Template = "%term";
# overriden AsHTML
################################################################
# Block Commands
package HNS::Hnf::Command::PRE;
$Template = "\n";
$EndTemplate = "
\n";
package HNS::Hnf::Command::CITE;
$Template = "\n";
$EndTemplate = "
\n";
package HNS::Hnf::Command::UL;
$Template = "\n);
package HNS::Hnf::Command::OL;
$Template = "\n";
$EndTemplate = qq(
\n);
package HNS::Hnf::Command::LI;
$Template = q(%content);
$EndTemplate = "\n";
package HNS::Hnf::Command::HR;
$Template = q(
\n);
package HNS::Hnf::Command::FN;
$Template = qq(
*%fn
);
$HeaderTemplate = qq(
);
$FooterTemplate = qq(
);
$ContentTemplate = qq(
*%fn: %content
);
################################################################
# template
package HNS::Style;
$Templates{Table}->{pim} = qq(
| Schedule | TODO |
|---|
| %schedule |
%todo |
);
1;
