################################################################
# english theme
# $Id: theme.ph,v 1.20.2.1 2001/05/10 11:36:23 kenji Exp $
################################################################
# 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'} = " Temperature:%value";
$Templates{'TAIJU'} = " Weight:%value" . "Kg";
$Templates{'SUIMIN'} = " Hours Sleep:%value";
$Templates{'BGM'} = " BGM:%value";
$Templates{'HOSU'} = " %value" . " steps";
$Templates{'HON'} = " Book:%value";
$Templates{'KITAKU'} = " Homecoming:%value";
$Templates{'WALK'} = " Walking:%value";
$Templates{'RUN'} = " Running:%value";
################################################################
# Mark
package HNS::Hnf::Command::MARK;
# image size is automatically set
$List{"(^^)"} = "icons/usaniko.png";
$List{"(-_-)"} = "icons/usamesen.png";
$List{"(^^;"} = "icons/usaase.png";
$List{"(;_;)"} = "icons/usauru.png";
$List{"(T_T)"} = "icons/usauru2.png";
$List{"v(^^)"} = "icons/usav.png";
$List{"m(__)m"} = "icons/usapeko.png";
$List{"!!"} = "icons/usadoki.png";
$List{"??"} = "icons/usahatena.png";
$List{"!?"} = "icons/usanaze.png";
$List{":-)"} = "icons/usasmile2.png";
$List{":-("} = "icons/usaheno2.png";
$List{":-P"} = "icons/usabe2.png";
################################################################
# Language
package HNS::System;
$Lang = "en";
################################################################
# CategoryList
package HNS::CategoryList;
$CatDir = "cat";
$TitleLabel = "Title List";
$SubmitLabel = "Show!";
$Template = qq(%value
\n);
$Categorize = "Categorize";
################################################################
# 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'} = "Diary for %num day(s).\n";
$FootMessages{'NoContent'} = "No match.\n";
################################################################
# PIM
# Schedule
package HNS::PIM::Schedule;
@WeekString = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu',
'Fri', 'Sat');
@ABCString = ('low', 'mid', 'high');
$Unfixed = '??';
$ContentTemplate = qq(%month/%day%week %content\n);
$BeginTemplate = "";
# TODO
package HNS::PIM::Todo;
$ContentTemplate = "%priority %content\n";
$BeginTemplate = "";
################################################################
# Calendar
package HNS::Calendar::Table;
@WeekString = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu',
'Fri', 'Sat');
$TableBorder = 0;
$NextTemplate = qq(Next);
$PrevTemplate = qq(Prev);
$ThisTemplate = qq(%year/%month);
$DayCurrentTemplate = qq(%day);
$DayNonCurrentTemplate =
qq(%day);
package HNS::Calendar::NoTable;
$NextTemplate = qq(>>);
$PrevTemplate = qq(<<);
$ThisTemplate = qq(%year/%month);
$DayCurrentTemplate = qq(%day);
$DayNonCurrentTemplate =
qq(%day);
################################################################
# DateSelect
package HNS::DateSelect;
$YearTemplate = "%year/";
$MonthTemplate = "%month/";
$DayTemplate = "%start_day - %end_day";
$AllLabel = "All";
################################################################
# Direct Ctalendar
package HNS::Calendar::Direct;
$SubmitLabel = "Go!";
################################################################
# Style
package HNS::Style;
$Templates{Table}->{pim} = qq(
Schedule |
TODO |
Link |
%schedule
|
%todo
|
%link
|
);
$Templates{Table}->{head_style} = qq(
%pim
%calendar
|
%unagi
|
%direct_calendar
|
);
$Templates{Table}->{foot_style} = "\n
\n%category_list";
$Templates{Table}->{head_recent_style} = $Templates{Table}->{head_style};
$Templates{Table}->{foot_recent_style} = $Templates{Table}->{foot_style};
# template for no table browser
$Templates{NoTable} = {
pim => qq(
\n%schedule %todo %link),
head_style => qq(%pim\n
\n%unagi\n
\n%calendar
%direct_calendar\n
\n),
foot_style=> "
\n%category_list"
};
$Templates{NoTable}->{head_recent_style} = $Templates{NoTable}->{head_style};
$Templates{NoTable}->{foot_recent_style} = $Templates{NoTable}->{foot_style};
# unagi template
$UnagiTemplate = qq(
Namazu for hns, Search Engine
for detail see help
);
$NoUnagiTemplate = qq(
);
################################################################
# Warning
package HNS::Hnf::Warning;
$Head = "
\[- Warning:";
$Foot = "-\]
\n";
# parameters:
# %c : the command name
# %p : command name of inserted position
#
$Messages{'IllegalHeader'} = "illegal header.";
$Messages{'UndefinedUserVar'} = "undefined user var %c";
$Messages{'Reserved'} = "command '%c' is reserved. ";
$Messages{'NotDefined'} = "term '%t' is not defined in %c definition file.";
$Messages{'NoMatch'} =
"command '%c' is not allowed in command '%p'. command '%c' is missing ?";
################################################################
# Version Message
# paramter:
# %homepage
# %public_version
# %current_version
package HNS;
$VersionMessages{'Public'} = q(
hns - Hyper NIKKI System - Version %public
);
$VersionMessages{'NonPublic'} = qq(
Caution:
current version is %current,
public released version is %public.
);
################################################################
# Template
# usable parameter (%[A-Za-z0-9_]) is:
# date:
# %year, %month, %day : year, month, day
# %high : int(day/10)
# %abc : day 1-10 -> a, 11-20 -> b, 21-31 -> c
# counter:
# %new, %sub, %fn : counter of NEW, SUB, FN
# %mark : for GRP mark, if not in GRP the same as %new
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 = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu',
'Fri', 'Sat');
$Head = qq(
);
$UserVar = qq(
%user{TENKI}%user{BASHO}%user{TAIJU}%user{TAION}%user{SUIMIN}%user{BGM}
%user{HOSU}%user{HON}%user{KITAKU}
);
$Foot = qq(
\n);
package HNS::Hnf::Command::CAT;
$Template = qq([%var]);
$ImgTemplate = qq(%img);
package HNS::Hnf::Command::NEW;
$Template = qq(
#%mark
%cat %content
\n);
$EndTemplate = "
\n";
package HNS::Hnf::Command::LNEW;
$Template = qq(
\n);
$EndTemplate = "
\n";
package HNS::Hnf::Command::RLNEW;
$Template = qq(
\n);
$EndTemplate = "
\n";
package HNS::Hnf::Command::SUB;
$Template = qq(
¡÷
%content:
);
$EndTemplate = "
\n";
package HNS::Hnf::Command::LSUB;
$Template = qq(
);
$EndTemplate = "
\n";
$NumAttr = 1;
package HNS::Hnf::Command::RLSUB;
$Template = qq(
);
$EndTemplate = "
\n";
$NumAttr = 2;
################################################################
# Inline Elements
# these element has no content commands,
# so $EndTemplate, $AllowCommands has no means.
package HNS::Hnf::Command::LINK;
$Template = qq(%content\n);
$NumAttr = 1;
package HNS::Hnf::Command::RLINK;
$Template = qq(%content\n);
$NumAttr = 2;
# overriden AsHTML
package HNS::Hnf::Command::URL;
$Template = qq(\n);
$NumAttr = 1;
package HNS::Hnf::Command::STRIKE;
$Template = qq(%content\n);
package HNS::Hnf::Command::LSTRIKE;
$Template = qq(%content\n);
$NumAttr = 1;
package HNS::Hnf::Command::STRONG;
$Template = qq(%content\n);
package HNS::Hnf::Command::FONT;
$Template = qq(%content\n);
$NumAttr = 2;
package HNS::Hnf::Command::IMG;
$Template =
qq(\n);
$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\n);
$HeaderTemplate = qq(
\n);
$FooterTemplate = qq(
\n);
$ContentTemplate = qq(
*%fn: %content
);
################################################################
1;