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.
30 lines
1.2 KiB
OpenEdge ABL
30 lines
1.2 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?
|
|
(and
|
|
(not (select-from-metas 'redirect-to metas))
|
|
(not (select-from-metas 'toolbar-blank metas))))
|
|
◊(define bumper?
|
|
(and
|
|
(not (select-from-metas 'redirect-to metas))
|
|
(not (select-from-metas 'bumper-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 (capitalize-first-letter str) (regexp-replace #rx"^." str string-upcase))
|
|
|
|
◊(define (make-subnav children)
|
|
(apply ul #:class "subnav"
|
|
(for/list ([child (in-list children)])
|
|
(li (xref (select-from-metas 'title child))))))
|
|
|