Patch title: Release 84 bulk changes
Abstract:
File: /pliant/protocol/http/style/default.style
Key:
    Removed line
    Added line
   
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


style_setup
  var Str browser := http_request browser_model
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


style_setup
  var Str browser := http_request browser_model
  var Float hue := options option "hue" Float 
  var CBool print := page:options option "print"
  var Float hue := options option "hue" Float
  if hue=undefined
    hue := 130
  var Float saturation := options option "staturation" Float
  if saturation=undefined
    saturation := 32
  var Float ground_light := 80
  var Float ground_saturation := saturation/24
  var PixelRGB888 ground := lsh_pixel ground_light ground_sa
  var CBool rounded := browser<>"" and browser<>"netscape"

  if hue=undefined
    hue := 130
  var Float saturation := options option "staturation" Float
  if saturation=undefined
    saturation := 32
  var Float ground_light := 80
  var Float ground_saturation := saturation/24
  var PixelRGB888 ground := lsh_pixel ground_light ground_sa
  var CBool rounded := browser<>"" and browser<>"netscape"

  # tag_style "doctype" "<!DOCTYPE HTML PUBLIC [dq]-//W3C//D
  tag_style "doctype" "<!DOCTYPE HTML PUBLIC [dq]-//W3C//DTD
  var Str icon := "" # "<link REL=[dq]icon[dq] HREF=[dq]/com
  tag_style "head" "<head>[lf]"+icon+"<script src=[dq]/commo
  tag_style "stylesheet" ""
  tag_style "script" ""
  var Str form_encoding := ""
  if http_request:browser_model="konqueror"
    form_encoding := " enctype [dq]multipart/form-data[dq]"
  tag_style "doctype" "<!DOCTYPE HTML PUBLIC [dq]-//W3C//DTD
  var Str icon := "" # "<link REL=[dq]icon[dq] HREF=[dq]/com
  tag_style "head" "<head>[lf]"+icon+"<script src=[dq]/commo
  tag_style "stylesheet" ""
  tag_style "script" ""
  var Str form_encoding := ""
  if http_request:browser_model="konqueror"
    form_encoding := " enctype [dq]multipart/form-data[dq]"
  # tag_style "body" "<body bgcolor=[dq]"+ground:html_encodi
  tag_style "body" "<body bgcolor=[dq]"+ground:html_encoding
  tag_style "body" "<body"+(shunt print "" " bgcolor=[dq]"+ground:html_encoding+"[dq]")+" onLoad=[dq]refresh()[dq]>[lf]<form name=[dq]pliant[dq] method=[dq]POST[dq]"+form_encoding+(tag_option "url" " action=[dq]" "?submit[dq]" "")+" onSubmit=[dq]return complete(this)[dq]>[lf]<input type=[dq]hidden[dq] name=[dq]_pliant_x[dq] value=[dq][dq]>[lf]<input type=[dq]hidden[dq] name=[dq]_pliant_y[dq] value=[dq][dq]>[lf]<input type=[dq]hidden[dq] name=[dq]_[dq] value=[dq][dq]>[lf]"
  tag_style "page_top" ""
  tag_style "page_bottom" ""
  tag_style "/body" "</form>[lf]</body>[lf]"


  tag_style "page_top" ""
  tag_style "page_bottom" ""
  tag_style "/body" "</form>[lf]</body>[lf]"


  var Float title_light := 64
  var Float title_saturation := saturation/3
  var PixelRGB888 titleground := lsh_pixel title_light title
  var PixelRGB888 fontcolor := lsh_pixel 15 20 hue
  var Str logo_head := tag_flag "logo" "<table border=[dq]0[
  var Str logo_tail := (tag_flag "logo" "</td><td>" "")+(tag
  tag_style "title" "<title>"+(tag_option "label" "" "" "")+
  if print
    tag_style "title" "<title>"+(tag_option "label" "" "" "")+"</title>[lf]<h1><center>"+(tag_option "label" "" "" "")+"</center></h1><br>[lf]"
  else
    var Float title_light := 64
    var Float title_saturation := saturation/3
    var PixelRGB888 titleground := lsh_pixel title_light title_saturation hue
    var PixelRGB888 fontcolor := lsh_pixel 15 20 hue
    var Str logo_head := tag_flag "logo" "<table border=[dq]0[dq] width=[dq]100%[dq]>[lf]<tr><td width=[dq]100%[dq]>" ""
    var Str logo_tail := (tag_flag "logo" "</td><td>" "")+(tag_option "url" "<a href=[dq]" "[dq]>" "")+(tag_option "logo" "<img src=[dq]" "[dq] border=[dq]0[dq]>" "")+(tag_flag "url" "</a>" "")+(tag_flag "logo" "</td></tr>[lf]</table>[lf]" "")
    tag_style "title" "<title>"+(tag_option "label" "" "" "")+"</title>[lf]<p>[lf]"+logo_head+(title 10 rounded titleground ground fontcolor 3 "center bold")+logo_tail+"</p>[lf]<br>[lf]"


  tag_style "chapter" "<br>[lf]<br>[lf]<p>[lf]"+(title 10 ro
  if print
    tag_style "chapter" "<h1>"+(tag_option "label" "" "" "")+"</h1>[lf]"
  else
    tag_style "chapter" "<br>[lf]<br>[lf]<p>[lf]"+(title 10 rounded titleground ground fontcolor 3 "bold")+"</p>[lf]"


  titleground := lsh_pixel title_light*0.67+ground_light*0.3
  fontcolor := lsh_pixel 30 25 hue
  tag_style "header1" "<br>[lf]<p>[lf]"+(title 5 rounded tit
  if print
    tag_style "header1" "<h2>"+(tag_option "label" "" "" "")+"</h2>[lf]"
  else
    titleground := lsh_pixel title_light*0.67+ground_light*0.33 title_saturation*0.67+ground_saturation*0.33 hue
    fontcolor := lsh_pixel 30 25 hue
    tag_style "header1" "<br>[lf]<p>[lf]"+(title 5 rounded titleground ground fontcolor 2 "bold")+"</p>[lf]"


  titleground := lsh_pixel title_light*0.33+ground_light*0.6
  fontcolor := lsh_pixel 40 30 hue
  tag_style "header2" "<p>[lf]"+(title 5 rounded titleground
  if print
    tag_style "header1" "<h3>"+(tag_option "label" "" "" "")+"</h3>[lf]"
  else
    titleground := lsh_pixel title_light*0.33+ground_light*0.67 title_saturation*0.33+ground_saturation*0.67 hue
    fontcolor := lsh_pixel 40 30 hue
    tag_style "header2" "<p>[lf]"+(title 5 rounded titleground ground fontcolor 0 "")+"</p>[lf]"


  titleground := lsh_pixel title_light*0.17+ground_light*0.8
  fontcolor := lsh_pixel 50 25 hue
  tag_style "header3" "<p>[lf]"+(title 3 rounded titleground
  if print
    tag_style "header1" "<h4>"+(tag_option "label" "" "" "")+"</h4>[lf]"
  else
    titleground := lsh_pixel title_light*0.17+ground_light*0.83 title_saturation*0.17+ground_saturation*0.83 hue
    fontcolor := lsh_pixel 50 25 hue
    tag_style "header3" "<p>[lf]"+(title 3 rounded titleground ground fontcolor -1 "")+"</p>[lf]"


multiline_keyword listing
export '. listing'


multiline_keyword listing
export '. listing'