git.infodrom.org Git - infodrom.org/luonnotar.infodrom.org/blob - Styles/luonnotar.style

   1 # Some color definitions
   2 #
   3 <define-tag title-color>0000ff</define-tag>
   4 <define-tag page-bgcolor>cdf7d3</define-tag>
   5 <define-tag bar-color>9ef7ab</define-tag>
   6 <define-tag submenu-bgcolor>d9fcdd</define-tag>
   7 <define-tag menu-color>000000</define-tag>
   8
   9 # ========== Abstand berechnen ==========
  10 # in ePerl: $root_prefix
  11 # in WML: <get-var root_prefix>
  12 <:
  13   $root_prefix = "<get-var WML_SRC_DIRNAME>";
  14   $root_prefix =~ s/^.*src\/?(.*)$/$1/;
  15   @foo = split (/\//, $root_prefix);
  16   $root_prefix = "../"x($#foo+1);
  17 :>
  18 <if <not <get-var root_prefix>>
  19   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
  20   "<: $root_var = \"<get-var root_prefix>\"; :>"
  21 >
  22
  23 <define-tag page endtag=required>
  24 <preserve title>
  25
  26 <set-var %attributes>
  27
  28 # Default: no title
  29 #
  30 # Reminder to self: "Joey's Infopool" is in the menu bar already
  31 #
  32 # <if <not <get-var title>>
  33 #    <set-var title="Luonnotar">>
  34
  35 <html>
  36 <head>
  37 <title><get-var title></title>
  38 <meta name="author" content="joey@infodrom.north.de (Martin Schulze)">
  39 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  40 <link href="<root_prefix>infodrom.css" rel="stylesheet" type="text/css">
  41 </head>
  42 <body>
  43
  44 # Menu bar
  45 #
  46 <table width=100% bgcolor=#<bar-color>>
  47 <tr>
  48 <td align=right><a href="<root_prefix>index.html"><font face="Helvetica,Arial" color="#<title-color>" size=+1><strong>Luonnotar</strong></font></a></td>
  49
  50 </tr>
  51 </table>
  52
  53 <table border=0 cellpadding=1 cellspacing=0 width=100%>
  54 <tr>
  55   <td align=left valign=top width=10% bgcolor=#<submenu-bgcolor>><font face="Helvetica,Arial" size=-1 color="#<menu-color>">
  56
  57 #include "submenu.inc"
  58
  59   </font></td>
  60   <td valign=top><img src=<root_prefix>gifs/imgdot-1x1-transp.gif width=3 height=0 alt=""></td>
  61   <td valign=top align=left width=90%><font face="Helvetica,Arial">
  62
  63 <if <get-var title>
  64 <h3><get-var title></h3>
  65 >
  66
  67 %body
  68
  69   </font></td>
  70 </tr>
  71 </table>
  72
  73 # &copy; = &#169;
  74 <p><hr><address><font face="Helvetica,Arial"><small>&copy; <a href="http://www.infodrom.org/~joey/">Joey</a>, <:
  75 @months =
  76     ("Dummy", "January","February","March","April","May","June","July","August","September","October","November","December");
  77
  78 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  79
  80 printf "Last modified: %s %d, %d", $months[$2], $3, $1;
  81 :></small></font></address>
  82
  83 </body>
  84 </html>
  85 <restore title>
  86 </define-tag>