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.

114 lines
4.6 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)
11 months ago
<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/source-serif-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/source-serif-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/source-serif-a.css" />');
} else {
; got mac
document.write('<link rel="stylesheet" type="text/css" media="all" href="fonts/source-serif-b.css" />');
} else {
; got something else
document.write('<link rel="stylesheet" type="text/css" media="all" href="fonts/source-serif-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" />
<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" />');
var maybe_ie_ua = window.navigator.userAgent;
// IE 10
// maybe_ie_ua = 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Trident/6.0)';
// IE 11
// maybe_ie_ua = 'Mozilla/5.0 (Windows NT 6.3; Trident/7.0; rv:11.0) like Gecko';
// 'MSIE' key detects IE10 and before; 'Trident' key detects IE11
if (maybe_ie_ua.indexOf('MSIE ') > 0 || maybe_ie_ua.indexOf('Trident/') > 0) {
document.write('<link rel="stylesheet" type="text/css" media="all" href="/ie.css" />');
<script type="text/javascript">
function jumpToCode() {
code_value = document.forms['codeform'].elements['codefield'].value;
window.location.href = "" + code_value;
return false;
(when/block (hash-ref metas 'tfl-font-template #f)
<script src=""></script>
<script src=""></script>})
(define (empty-string) "")
(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[#:id "right"]{(if next-page xref{(select 'title next-page)} xref[""]{boxer puppies})}}})})
(->html (body (default-body)))
7 years ago
<!-- © 20082017 Matthew Butterick · website made with Pollen ( -->