You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

176 lines
6.3 KiB
OpenEdge ABL

<!DOCTYPE html>
(define parent-page (parent here))
(define previous-page (previous here))
(define next-page (next here))
(define here-title (or (select-from-metas 'title here) (symbol->string here)))
(define toolbar? (not (select-from-metas 'toolbar-blank metas)))
(define (make-side-nav id url text)
div[#:class "nav-outer" #:id id]{(link (or url "") div[#:class "nav-inner"]{div[#:class "nav-flex" text]})})
(define center-cell-width 14)
(define side-cell-width (/ (- 100 (+ 10 (* center-cell-width 2))) 2))
(local-require pollen/tag)
; the name `link` is already defined as a function that makes hyperlinks,
; so we use `make-default-tag-function` to make a literal `link` tag
(define literal-link (make-default-tag-function 'link))
(define (make-subnav children)
(apply ul #:class "subnav"
(for/list ([child (in-list children)])
(li (xref (select-from-metas 'title child))))))
(local-require css-tools)
<meta charset="UTF-8">
<script type="text/javascript">
if (navigator.appVersion.indexOf("Win")!=-1) {
; got windows
document.write('<link rel="stylesheet" type="text/css" media="all" href="fonts/equity-a.css" />');
} else if (navigator.appVersion.indexOf("Mac")!=-1) {
if (navigator.userAgent.match(/iPad/i) != null) {
; got ipad
; style sheet for ipad 2
document.write('<link rel="stylesheet" media="only screen and (max-device-width: 1024px)" href="fonts/equity-b.css" type="text/css" />');
; style sheet for ipad 3
document.write('<link rel="stylesheet" media="only screen and (min-device-width: 768px) and (max-device-width: 1024px) and (-webkit-min-device-pixel-ratio: 2)" type="text/css" href="fonts/equity-a.css" />');
} else {
; got mac
document.write('<link rel="stylesheet" type="text/css" media="all" href="fonts/equity-b.css" />');
} else {
; got something else
document.write('<link rel="stylesheet" type="text/css" media="all" href="fonts/equity-a.css" />');
<title>(capitalize-first-letter here-title) | Typography for Lawyers</title>
<link rel="stylesheet" type="text/css" media="all" href="/styles.css" />
<link rel="stylesheet" type="text/css" media="all" href="/fonts/non-equity.css" />
if[(not (select-from-metas 'tfl-font-template metas)) ""]{
<link rel="stylesheet" type="text/css" media="all" href="/fonts/advocate-extras.css" />
<meta name="format-detection" content="telephone=no">
<script type="text/javascript">
var isFirefox = typeof InstallTrigger !== 'undefined';
if (isFirefox) {
document.write('<link rel="stylesheet" type="text/css" media="all" href="/firefox.css" />');
<script type="text/javascript">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-19281911-1']);
_gaq.push(['_setDomainName', '']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
(define (empty-string) "")
(define (tfl-font-template-body)
style[#:type "text/css"]{
#tfl-fonts-nav {
top: 0;
width: 29rem;
margin-bottom: 2rem;
font-size: 90%;
#tfl-fonts-nav tr:first-child {
background: |content-rule-color|;
make-css-background-gradient[(list |content-rule-color| "#777") '("17%" "100%")]
color: white;
#tfl-fonts-nav tr:first-child td {
padding: 0;
padding-top: 0.3em;
padding-bottom: 0.5em;
#tfl-fonts-nav tr + tr td {
padding: 0;
#tfl-fonts-nav tr + tr td .xref {
display: inline-block;
height: 100%;
width: 100%;
padding-top: 0.3em;
padding-bottom: 0.3em;
box-sizing: content-box;
background: none;
#content {
padding-top: 0;
padding-bottom: 2rem;
border-top: 0;
div[#:id "content"]{
table[#:id "tfl-fonts-nav"]{
tr{td[#:colspan "4"]{xref["fonts.html"]{The TFL fonts designed by Matthew Butterick}}}
if[(not toolbar?) ""]{
div[#:class "nav-outer" #:id "bottom"]{
div[#:class "nav-inner"]{
7 years ago
span[#:style "width:33%"]{xref["/index.html"]{TFL home}}
span[#:style "width:34%"]{xref["/toc.html"]{Read excerpts}}
span[#:style "width:33%"]{xref[buy-url]{get the book}}}}}})
(define (default-body)
body{ ; use this body for all other pages
7 years ago
div[#:id "top-stripe"]{}
div[#:id "content"]{
(gap 1)
(make-subnav (or (children here) null))}
(if previous-page make-side-nav["prev" previous-page]{<} "")
(if next-page make-side-nav["next" next-page]{>} "")
;<!-- bottom nav -->
(if (not toolbar?)
div[#:class "nav-outer" #:id "bottom"]{
div[#:class "nav-inner"]{
7 years ago
span[#:id "left"]{(if (eq? here 'toc.html)
xref{(select 'title previous-page)})}
span{xref["/index.html"]{TFL home}}
span{xref[buy-url]{get the book}}
span{xref["/fonts.html"]{get the fonts}}
(if next-page span[#:id "right"]{xref{(select 'title next-page)}} "")}})})
(if (select-from-metas 'tfl-font-template metas)
7 years ago
<!-- © 20082017 Matthew Butterick · website made with Pollen ( -->