Index: theme.ph =================================================================== RCS file: /home/hosting/h14m.org/cvsroot/hns-perl/public_html/diary/japanese/theme.ph,v retrieving revision 1.32.2.3 retrieving revision 1.58 diff -u -r1.32.2.3 -r1.58 --- theme.ph 2000/02/13 08:01:23 1.32.2.3 +++ theme.ph 2000/09/22 14:21:50 1.58 @@ -1,6 +1,6 @@ ################################################################ # japanese theme -# $Id: theme.ph,v 1.32.2.3 2000/02/13 08:01:23 kenji Exp $ +# $Id: theme.ph,v 1.58 2000/09/22 14:21:50 kenji Exp $ ################################################################ # User variable @@ -13,18 +13,34 @@ $Templates{'TAIJU'} = " 体重:%value" . "Kg"; $Templates{'SUIMIN'} = " 睡眠:%value時間"; $Templates{'BGM'} = " BGM:%value"; +$Templates{'HOSU'} = " %value歩"; +$Templates{'HON'} = " 読書:%value"; +$Templates{'KITAKU'} = " 帰宅時間: %value"; ################################################################ # Mark package HNS::Hnf::Command::MARK; # image size is automatically set -$List{"(^^)"} = "icons/nomal_13.png"; -$List{"(^^;"} = "icons/ase_13.png"; -$List{"(;_;)"} = "icons/naku_13.png"; -$List{"v(^^)"} = "icons/v_13.png"; -$List{"!!"} = "icons/neko_13.png"; -$List{"??"} = "icons/hatena_13.png"; -$List{"(笑)"} = "icons/warau_13.png"; +$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 @@ -39,12 +55,13 @@ ################################################################ # Extend HTML package HNS::ExtHTML; -$DOCTYPE = qq(\n); #$Head = undef; $Head = qq( ); @@ -82,7 +102,9 @@ # Schedule package HNS::PIM::Schedule; @WeekString = ('日', '月', '火', '水', '木', '金', '土'); -$ContentTemplate = qq(
  • %month/%day(%week) %content
    • \n); +@ABCString = ('上', '中', '下'); +$Unfixed = '??'; +$ContentTemplate = qq(
  • %month/%day%week %content
    • \n); $BeginTemplate = ""; @@ -101,14 +123,14 @@ $PrevTemplate = qq(先月); $ThisTemplate = qq(%year年%month月); $DayCurrentTemplate = qq(%day); -$DayNonCurrentTemplate = qq(%day); +$DayNonCurrentTemplate = qq(%day); package HNS::Calendar::NoTable; $NextTemplate = qq(>>); $PrevTemplate = qq(<<); $ThisTemplate = qq(%year/%month); $DayCurrentTemplate = qq(%day); -$DayNonCurrentTemplate = qq(%day); +$DayNonCurrentTemplate = qq(%day); ################################################################ # DateSelect @@ -162,6 +184,9 @@ $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), @@ -170,6 +195,9 @@ 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 による簡易全文検索
    @@ -229,49 +257,68 @@ # Template # usable parameter (%[A-Za-z0-9_]) is: # date: -# %year, %month, %day : year, month, day -# %high : int(day/10) -# +# %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 +# %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 +# %week : week string # # user-variable -# %user{VARNAME} : string as which user-var-format is expanded using -# value of user-variable VARNAME. +# %user{VARNAME} : string as which user-var-format is expanded using +# value of user-variable VARNAME. @WeekString = ('日', '月', '火', '水', '木', '金', '土'); $Head = qq( -

    %year年%month月%day日(%week) - %user{TENKI}%user{BASHO}%user{TAIJU}%user{TAION}%user{SUIMIN}%user{BGM}

    ); +[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( -

    #%new +

    #%mark %cat %content

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

    #%new +

    #%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:

    ); @@ -279,50 +326,62 @@ 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 ); +$Template = qq(%content\n); $NumAttr = 1; package HNS::Hnf::Command::RLINK; -$Template = qq(%content ); +$Template = qq(%content\n); $NumAttr = 2; # overriden AsHTML package HNS::Hnf::Command::URL; $Template = qq(
    -*%content (%1) -
    ); +* +%content (%1) +
    \n); $NumAttr = 1; package HNS::Hnf::Command::STRIKE; -#$Template = q(%content); +$Template = qq(%content\n); package HNS::Hnf::Command::LSTRIKE; -$Template = q(%content); +$Template = qq(%content\n); $NumAttr = 1; package HNS::Hnf::Command::STRONG; -$Template = q(%content); +$Template = qq(%content\n); package HNS::Hnf::Command::FONT; -$Template = q(%content); +$Template = qq(%content\n); $NumAttr = 2; package HNS::Hnf::Command::IMG; -$Template = q(%content); +$Template = + qq(%content\n); $NumAttr = 2; # overriden AsHTML @@ -361,17 +420,16 @@ $Template = q(
    \n); package HNS::Hnf::Command::FN; -$Template = qq( -*%fn -); +$Template = + qq(*%fn\n); $HeaderTemplate = qq(
    -
    ); -$FooterTemplate = qq(
    ); +
    \n); +$FooterTemplate = qq(
    \n); $ContentTemplate = qq( -*%fn: %content
    +*%fn: %content
    ); ################################################################ 1;