steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up

master
Steve Ayerhart 2023-09-10 17:05:18 -04:00
parent 6ac9c14202
commit ee138f4c90
3 changed files with 8 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
triangle-beer-league/header.html
View File

@ -1,22 +0,0 @@
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8"/>
<link rel="stylesheet" href="https://fonts.googleapis.com/css2?family=Alegreya+Sans+SC:wght@900"/>
<link rel="stylesheet" href="tbl.css"/>
<link rel="preconnect" href="https://fonts.googleapis.com">
<link rel="preconnect" href="https://fonts.gstatic.com" crossorigin>
<link href="https://fonts.googleapis.com/css2?family=Roboto+Slab:wght@500&display=swap" rel="stylesheet">
<title>Triangle Beer League</title>
</head>
<body>
<header>
<a id="header-logo splash" href="index.html"></a>
<nav role="navigation">
<menu>
<li><a href="schedule.html">schedule</a></li>
<li><a href="standings.html">standings</a></li>
<li><a href="#">roster</a></li>
</menu>
</nav>
</header>

6
triangle-beer-league/tbl-common.xml
View File

@ -16,10 +16,12 @@
</head> </head>
<body> <body>
<header> <header>
<t:a id="header-logo" t:href="$tbl"></t:a> <t:if t:value="show-header?">
<a id="header-logo" href="/"></a>
</t:if>
<nav role="navigation"> <nav role="navigation">
<menu> <menu>
<li><t:a t:href="$tbl/schedule">schedule</t:a></li> <li><a href="/schedule">schedule</a></li>
<li><a href="#">standings</a></li> <li><a href="#">standings</a></li>
<li><a href="#">roster</a></li> <li><a href="#">roster</a></li>
</menu> </menu>

5
triangle-beer-league/triangle-beer-league.factor
View File

@ -32,7 +32,10 @@ TUPLE: tbl < dispatcher ;
: <schedule-action> ( -- action ) : <schedule-action> ( -- action )
<page-action> <page-action>
[ tbl-games tbl-games>schedule "schedule" set-value ] >>init [
t "show-header?" set-value
tbl-games tbl-games>schedule "schedule" set-value
] >>init
{ tbl "schedule" } >>template ; { tbl "schedule" } >>template ;
: <tbl> ( -- responder ) : <tbl> ( -- responder )