################################################################ # 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
    keyword:
    ); $NoUnagiTemplate = qq( HNS logo ); ################################################################ # 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(

    %year/%month/%dayÆü(%week) [n year diary]

    ); $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(

    #%mark %cat %content

    \n); $EndTemplate = "
    \n"; package HNS::Hnf::Command::RLNEW; $Template = qq(

    #%mark %cat %content

    \n); $EndTemplate = "
    \n"; package HNS::Hnf::Command::SUB; $Template = qq(

    ¡÷ %content:

    ); $EndTemplate = "
    \n"; package HNS::Hnf::Command::LSUB; $Template = qq(

    ¡÷ %content:

    ); $EndTemplate = "
    \n"; $NumAttr = 1; package HNS::Hnf::Command::RLSUB; $Template = qq(

    ¡÷ %content:

    ); $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(
    * %content (%1)
    \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(%content\n); $NumAttr = 2; # overriden AsHTML package HNS::Hnf::Command::MARK; $Template = qq(%1\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;