mason/hand: Prettify.

[bridge-toys] / mason / hand

<!-- -*-html-*-
  -
  - Deal a hand for study or discussion
  -
  - (c) 2013 Mark Wooding
 -->

<table class=table>
<tr>
<td><td>
<& .hand, seat => "N", hand => $deal->{N} &>\
<td>
<tr>
<td>
<& .hand, seat => "W", hand => $deal->{W} &>\
<td><td>
<& .hand, seat => "E", hand => $deal->{E} &>\
<tr>
<td><td>
<& .hand, seat => "S", hand => $deal->{S} &>\
<td>
<tr>
<td class=info colspan=3>
<% $Deal::SEAT[$deal->{dealer}] %> dealer <br>
<% $Deal::VULN[$deal->{vuln}] %> vulnerable <br>
Hand <a href="<% $ENV{SCRIPT_NAME} %>/hand?\
seed=<% $deal->{seed} |u %>;\
dealer=<% $deal->{dealer} |u %>;\
vuln=<% $deal->{vuln} |u %>">\
<% $deal->{seed} |h %></a>
</table>
%#
<%args>
	$dealer => undef
	$vuln => undef
	$seed => undef
</%args>
%#
<%method title>Full deal</%method>
%#
<%def .hand>\
<table class=hand title="HCP = <% $hand{hcp} %>; LTC = <% $hand{ltc} %>">
<& .suit, suit => "S", cards => $hand{S} &>\
<& .suit, suit => "H", cards => $hand{H} &>\
<& .suit, suit => "D", cards => $hand{D} &>\
<& .suit, suit => "C", cards => $hand{C} &>\
</table>
<%args>
	$seat
	%hand
</%args>
</%def>
%#
<%def .suit>\
<tr><th><% $SUIT{$suit} %><td><% @cards ? join " ", @cards : "&mdash;" %>
<%args>
	$suit
	@cards
</%args>
</%def>
%#
<%once>
	use Deal;

	our %SUIT= (
	  C => "<span class=club-suit>&clubs;</span>",
	  D => "<span class=diamond-suit>&diams;</span>",
	  H => "<span class=heart-suit>&hearts;</span>",
	  S => "<span class=spade-suit>&spades;</span>");
</%once>
%#
<%init>
	my $deal = Deal::deal(%ARGS);
</%init>