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(<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
+$DOCTYPE = qq(<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
 	"http://www.w3.org/TR/REC-html40/loose.dtd">\n);
 #$Head = undef;
 $Head = qq(<meta http-equiv="Content-Style-Type" content="text/css">
 <style type="text/css"><!--
  h3.new { margin-left: 1em }
+ div.uservar { font-weight: bold; }
  div.section { margin-left: 2em; margin-top: 0 }
  div.sub { margin-left: 1em; margin-top: 0 }
  div.list { margin-left: 1em }
@@ -57,6 +74,9 @@
   border-style: outset;
   border-width: 4px
  }
+ a.hide:link { color: black; text-decoration: none }
+ span.bold-red { color: red; font-weight: bold }
+ div.bold-red { color: red; font-weight: bold }
 --></style>
 );
 
@@ -82,7 +102,9 @@
 # Schedule
 package HNS::PIM::Schedule;
 @WeekString = ('<font color="red">ゥ</font>', '畸', '紹', '踹', '枆', '嗯', '<font color="blue">蘿</font>');
-$ContentTemplate = qq(<li><strong>%month/%day(%week)</strong> %content</li>\n);
+@ABCString = ('曉', '醱', '票');
+$Unfixed = '??';
+$ContentTemplate = qq(<li><strong>%month/%day%week</strong> %content</li>\n);
 $BeginTemplate = "<ul>";
 $EndTemplate = "</ul>";
 
@@ -101,14 +123,14 @@
 $PrevTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month">燮畸</a>);
 $ThisTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month">%yearヵ%month畸</a>);
 $DayCurrentTemplate = qq(<a href="%ruri#%{ymd}0">%day</a>);
-$DayNonCurrentTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month%high#%{ymd}0">%day</a>);
+$DayNonCurrentTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month%abc#%{ymd}0">%day</a>);
 
 package HNS::Calendar::NoTable;
 $NextTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month">&gt;&gt;</a>);
 $PrevTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month">&lt;&lt;</a>);
 $ThisTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month">%year/%month</a>);
 $DayCurrentTemplate = qq(<a href="%ruri#%{ymd}0">%day</a>);
-$DayNonCurrentTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month%high#%{ymd}0">%day</a>);
+$DayNonCurrentTemplate = qq(<a href="$HNS::System::MyDiaryURI?%year%month%abc#%{ymd}0">%day</a>);
 
 ################################################################
 # DateSelect
@@ -162,6 +184,9 @@
 
 $Templates{Table}->{foot_style} = "\n<hr>\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(<hr>\n%schedule %todo),
@@ -170,6 +195,9 @@
     foot_style=> "<hr>\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( 
 <a href="%namazu_url">Namazu</a> for hns 卞方月棵啞蟈妐腹綢<br>
@@ -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 = ('<font color="red">ゥ</font>', '畸', '紹', '踹', '枆', '嗯', '<font color="blue">蘿</font>');
 
 $Head = qq(
-<h2><a href="$HNS::System::MyDiaryURI?%year%month%high&amp;to=%year%month%{day}0#%year%month%{day}0"
+<h2><a class="hide" href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%{day}0#%year%month%{day}0"
 name="%year%month%{day}0">%yearヵ%month畸%dayゥ(%week)</a>
- %user{TENKI}%user{BASHO}%user{TAIJU}%user{TAION}%user{SUIMIN}%user{BGM}</h2>);
+[<a href="./?%month%day">nヵゥ筏</a>]</h2>
+);
+
+$UserVar = qq(<div class="uservar">
+ %user{TENKI}%user{BASHO}%user{TAIJU}%user{TAION}%user{SUIMIN}%user{BGM}
+ %user{HOSU}%user{HON}%user{KITAKU}
+</div>);
 
 $Foot = qq(<hr>\n);
 
+package HNS::Hnf::Command::CAT;
+$Template = qq([<a href="./title.cgi?CAT=%enc_var">%var</a>]);
+$ImgTemplate = qq(<a href="./title.cgi?CAT=%enc_var">%img</a>);
+
 package HNS::Hnf::Command::NEW;
 $Template = qq(
-<h3 class="new"><a name="%year%month%day%new" 
-href="$HNS::System::MyDiaryURI?%year%month%high&amp;to=%year%month%day%new#%year%month%day%new">#%new</a>
+<h3 class="new"><a class="hide" name="%year%month%day%new" title="%year%month%day%new" 
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%new#%year%month%day%new">#%mark</a>
 %cat %content</h3>
-<div class="section">);
+<div class="section">\n);
 $EndTemplate = "</div><!-- end of NEW -->\n";
 
 package HNS::Hnf::Command::LNEW;
 $Template = qq(
-<h3 class="new"><a name="%year%month%day%new" 
-href="$HNS::System::MyDiaryURI?%year%month%high&amp;to=%year%month%day%new#%year%month%day%new">#%new</a>
+<h3 class="new"><a class="hide" name="%year%month%day%new" title="%year%month%day%new" 
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%new#%year%month%day%new">#%mark</a>
 %cat <a href="%1">%content</a></h3>
-<div class="section">);
+<div class="section">\n);
 $EndTemplate = "</div><!-- end of LNEW -->\n";
 
+package HNS::Hnf::Command::RLNEW;
+$Template = qq(
+<h3 class="new"><a class="hide" name="%year%month%day%new" title="%year%month%day%new" 
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%new#%year%month%day%new">#%mark</a>
+%cat <a href="%url%2">%content</a></h3>
+<div class="section">\n);
+$EndTemplate = "</div><!-- end of RLNEW -->\n";
+
 package HNS::Hnf::Command::SUB;
 $Template = qq(
-<h4><a name="%year%month%day%{new}S%sub"
-href="$HNS::System::MyDiaryURI?%year%month%high&amp;to=%year%month%day%{new}S%sub#%year%month%day%{new}S%sub">→</a>
+<h4><a class="hide" name="%year%month%day%{new}S%sub" title="%year%month%day%{new}S%sub"
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%{new}S%sub#%year%month%day%{new}S%sub">→</a>
 %content:</h4> 
 <div class="sub">
 );
@@ -279,50 +326,62 @@
 
 package HNS::Hnf::Command::LSUB;
 $Template = qq(
-<h4><a name="%year%month%day%{new}S%sub"
-href="$HNS::System::MyDiaryURI?%year%month%high&amp;to=%year%month%day%{new}S%sub#%year%month%day%{new}S%sub">→</a>
+<h4><a class="hide" name="%year%month%day%{new}S%sub" title="%year%month%day%{new}S%sub"
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%{new}S%sub#%year%month%day%{new}S%sub">→</a>
 <a href="%1">%content</a>:</h4> 
 <div class="sub">
 );
 $EndTemplate = "</div><!-- end of LSUB -->\n";
 $NumAttr = 1;
 
+package HNS::Hnf::Command::RLSUB;
+$Template = qq(
+<h4><a class="hide" name="%year%month%day%{new}S%sub" title="%year%month%day%{new}S%sub"
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%{new}S%sub#%year%month%day%{new}S%sub">→</a>
+<a href="%url%2">%content</a>:</h4> 
+<div class="sub">
+);
+$EndTemplate = "</div><!-- end of RLSUB -->\n";
+$NumAttr = 2;
+
 ################################################################
 # Inline Elements
 # these element has no content commands,
 # so $EndTemplate, $AllowCommands has no means.
 
 package HNS::Hnf::Command::LINK;
-$Template = qq(<a href="%1">%content</a> );
+$Template = qq(<a href="%1">%content</a>\n);
 $NumAttr = 1;
 
 package HNS::Hnf::Command::RLINK;
-$Template = qq(<a href="%url%2">%content</a> );
+$Template = qq(<a href="%url%2">%content</a>\n);
 $NumAttr = 2;
 # overriden AsHTML
 
 package HNS::Hnf::Command::URL;
 $Template = qq(<div class="url">
-<img alt="*" src="./icons/mark01.png" width="16" height="16"><a href="%1">%content (%1)</a>
-</div>);
+<img alt="*" src="./icons/mark01.png" width="16" height="16">
+<a href="%1">%content (%1)</a>
+</div>\n);
 $NumAttr = 1;
 
 package HNS::Hnf::Command::STRIKE;
-#$Template = q(<strike>%content</strike>);
+$Template = qq(<strike>%content</strike>\n);
 
 package HNS::Hnf::Command::LSTRIKE;
-$Template = q(<strike><a href="%1">%content</a></strike>);
+$Template = qq(<strike><a href="%1">%content</a></strike>\n);
 $NumAttr = 1;
 
 package HNS::Hnf::Command::STRONG;
-$Template = q(<strong>%content</strong>);
+$Template = qq(<strong>%content</strong>\n);
 
 package HNS::Hnf::Command::FONT;
-$Template = q(<font %1="%2">%content</font>);
+$Template = qq(<font %1="%2">%content</font>\n);
 $NumAttr = 2;
 
 package HNS::Hnf::Command::IMG;
-$Template = q(<img %align src="%2" alt="%content" width="%width" height="%height">);
+$Template = 
+    qq(<img %align src="%2" alt="%content" width="%width" height="%height">\n);
 $NumAttr = 2;
 # overriden AsHTML
 
@@ -361,17 +420,16 @@
 $Template = q(<hr>\n);
 
 package HNS::Hnf::Command::FN;
-$Template = qq(
-<a href="$ENV{'REQUEST_URI'}#%year%month%day%{new}F%fn"><small>*%fn</small></a>
-);
+$Template = 
+    qq(<a href="$ENV{'REQUEST_URI'}#%year%month%day%{new}F%fn"><small>*%fn</small></a>\n);
 
 $HeaderTemplate = qq(<hr class="section" width="40%" align="left">
-<div class="fn">);
-$FooterTemplate = qq(</div>);
+<div class="fn">\n);
+$FooterTemplate = qq(</div>\n);
 
 $ContentTemplate = qq(
-<a name="%year%month%day%{new}F%fn"
-href="$HNS::System::MyDiaryURI?%year%month%high&amp;to=%year%month%day%{new}F%fn#%year%month%day%{new}F%fn"><small>*%fn</small></a>: %content<br>
+<a class="hide" name="%year%month%day%{new}F%fn"
+href="$HNS::System::MyDiaryURI?%year%month%abc&amp;to=%year%month%day%{new}F%fn#%year%month%day%{new}F%fn"><small>*%fn</small></a>: %content<br>
 );
 ################################################################
 1;
