defs.rkt 484 Bytes
Newer Older
Robert Ricci's avatar
Robert Ricci committed
1
#lang racket/base
Robert Ricci's avatar
Robert Ricci committed
2
(require scribble/base)
Robert Ricci's avatar
Robert Ricci committed
3 4 5 6 7

(provide (all-defined-out))

(define (apturl page)
  (string-append "https://www.aptlab.net/" page))
Robert Ricci's avatar
Robert Ricci committed
8

9 10
(define (TODO . what)
  (bold "TODO: " what))
11 12 13 14 15 16 17 18

(define nodetype
  (lambda (typename howmany . properties)
          (tabular #:style 'boxed #:sep (hspace 3)
                   (cons
                     (list (bold typename)
                           (string-append (number->string howmany) " nodes"))
                     properties))))