################################################################ # japanese theme # $Id: theme.ph,v 1.64 2001/03/24 05:04:53 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'} = " 体温:%value度"; $Templates{'TAIJU'} = " 体重:%value" . "Kg"; $Templates{'SUIMIN'} = " 睡眠:%value時間"; $Templates{'BGM'} = " BGM:%value"; $Templates{'HOSU'} = " %value歩"; $Templates{'HON'} = " 読書:%value"; $Templates{'KITAKU'} = " 帰宅時間:%value"; $Templates{'WALK'} = " 散歩:%value"; $Templates{'RUN'} = " ジョギング:%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/usasho.png"; $List{":-)"} = "icons/usasmile2.png"; $List{":-("} = "icons/usaheno2.png"; $List{":-P"} = "icons/usabe2.png"; $List{"φ(._.)"} = "icons/usamemo.png"; ################################################################ # Language package HNS::System; $Lang = "ja"; ################################################################ # CategoryList package HNS::CategoryList; $CatDir = "cat"; $TitleLabel = "タイトル一覧"; $SubmitLabel = "表示!"; $Template = qq(%value
\n); $Categorize = "カテゴリ分類"; ################################################################ # Extend HTML package HNS::ExtHTML; $DOCTYPE = qq(\n); $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 = ('にちようび', 'げつようび', 'かようび', 'すいようび', 'もくようび', 'きんようび', 'どようび'); @ABCString = ('上', '中', '下'); $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 = ('', '月', '火', '水', '木', '金', ''); $TableBorder = 0; $NextTemplate = qq(来月); $PrevTemplate = qq(先月); $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 = "ぜんぶ"; ################################################################ # Direct Ctalendar package HNS::Calendar::Direct; $SubmitLabel = "Go!"; ################################################################ # Style package HNS::Style; $Templates{Table}->{pim} = qq(
    よてい やること りんく
    %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 による簡易全文検索
    詳しくは 詳細指定/ヘルプを参照して下さい
    検索式:
    ); $NoUnagiTemplate = "えっちなのはいけないとおもいます。
    りんくはごじゆうにどうぞ。
    "; ################################################################ # 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) # %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 = ('にちようび', 'げつようび', 'かようび', 'すいようび', 'もくようび', 'きんようび', 'どようび'); $Head = qq(

    %yearねん%monthがつ%dayにち(%week) [n年日記]

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

    ★ %cat %content ★

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

    %cat %content

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

    %cat %content

    \n); $EndTemplate = "
    \n"; package HNS::Hnf::Command::SUB; $Template = qq(); $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;