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.
pollen-tfl/template.html.p

184 lines
6.5 KiB
OpenEdge ABL

This file contains invisible Unicode characters!

This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

<!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)
<head>
<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" />');
}
</script>
<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>
<script type="text/javascript">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-19281911-1']);
_gaq.push(['_setDomainName', 'typographyforlawyers.com']);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
function jumpToCode() {
code_value = document.forms['codeform'].elements['codefield'].value;
window.location.href = "http://typo.la/" + code_value;
return false;
}
</script>
</head>
(define (empty-string) "")
(define (tfl-font-template-body)
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}}}
tr{
td{xref{Equity}}
td{xref{Concourse}}
td{xref{Triplicate}}
td{xref{Advocate}}}}
doc}
if[(not toolbar?) ""]{
div[#:class "nav-outer" #:id "bottom"]{
div[#:class "nav-inner"]{
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
div[#:id "top-stripe"]{}
div[#:id "content"]{
doc
(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?)
(empty-string)
div[#:class "nav-outer" #:id "bottom"]{
div[#:class "nav-inner"]{
span[#:id "left"]{(if (eq? here 'toc.html)
xref["index.html"]{home}
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}}
span[#:id "right"]{(if next-page xref{(select 'title next-page)} xref["https://www.google.com/search?q=boxer+puppies&safe=off&tbm=isch"]{boxer puppies})}}})})
(->html
(body
(if (select-from-metas 'tfl-font-template metas)
(tfl-font-template-body)
(default-body))))
</html>
<!-- © 20082017 Matthew Butterick · website made with Pollen (pollenpub.com) -->