From 9bb15456c1ecf19f65cde550040ba5a7103a64f2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 19 Jul 2020 12:02:46 -0700 Subject: [PATCH 1/2] dead souls --- pollen/private/ts.rktd | 2 +- pollen/scribblings/mb-tools.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f6c45a4..56b39bc 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1593668573 +1595185366 diff --git a/pollen/scribblings/mb-tools.rkt b/pollen/scribblings/mb-tools.rkt index 1eb640f..fa9af5d 100644 --- a/pollen/scribblings/mb-tools.rkt +++ b/pollen/scribblings/mb-tools.rkt @@ -1,5 +1,5 @@ #lang at-exp racket/base -(require (for-syntax racket/base racket/syntax pollen/setup) scribble/core scribble/manual scribble/private/manual-sprop scribble/decode scribble/html-properties racket/runtime-path racket/format pollen/setup) +(require (for-syntax racket/base racket/syntax) scribble/core scribble/manual scribble/private/manual-sprop scribble/decode scribble/html-properties racket/runtime-path racket/format) (provide (all-defined-out) (all-from-out racket/runtime-path)) From 648b261079935a8b42348a2c6509a71da35d996f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 19 Jul 2020 12:30:53 -0700 Subject: [PATCH 2/2] move a documentation macro --- pollen/private/ts.rktd | 2 +- pollen/scribblings/mb-tools.rkt | 14 -------------- pollen/scribblings/setup.scrbl | 16 ++++++++++++++++ 3 files changed, 17 insertions(+), 15 deletions(-) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 56b39bc..324f9b3 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1595185366 +1595187053 diff --git a/pollen/scribblings/mb-tools.rkt b/pollen/scribblings/mb-tools.rkt index fa9af5d..1683043 100644 --- a/pollen/scribblings/mb-tools.rkt +++ b/pollen/scribblings/mb-tools.rkt @@ -58,20 +58,6 @@ (define-runtime-path id name) (image id xs ...)))])) -(define-syntax (defoverridable stx) - (syntax-case stx () - [(_ name predicate? desc ...) - (with-syntax* ([default-name (format-id #'here "default-~a" #'name)] - [value (let ([v (syntax-local-eval #'default-name)]) - (cond - [(and (list? v) (andmap symbol? v) (> (length v) 5)) #`'#,'(see below)] - [(or (symbol? v) (list? v)) #`'#,v] - [(procedure? v) '(λ (path) #f)] - [else v]))] - [setup:name (format-id stx "setup:~a" #'name)]) - #`(deftogether ((defproc (setup:name) predicate?) - (defthing default-name predicate? #:value value)) - desc ...))])) (define (val . args) (racketvalfont (element 'tt (map ~v args)))) diff --git a/pollen/scribblings/setup.scrbl b/pollen/scribblings/setup.scrbl index e658b22..3180c37 100644 --- a/pollen/scribblings/setup.scrbl +++ b/pollen/scribblings/setup.scrbl @@ -5,6 +5,22 @@ @(define my-eval (make-base-eval)) @(my-eval `(require pollen pollen/setup)) +@(require (for-syntax racket/base racket/syntax pollen/setup)) +@(define-syntax (defoverridable stx) + (syntax-case stx () + [(_ name predicate? desc ...) + (with-syntax* ([default-name (format-id #'here "default-~a" #'name)] + [value (let ([v (syntax-local-eval #'default-name)]) + (cond + [(and (list? v) (andmap symbol? v) (> (length v) 5)) #`'#,'(see below)] + [(or (symbol? v) (list? v)) #`'#,v] + [(procedure? v) '(λ (path) #f)] + [else v]))] + [setup:name (format-id stx "setup:~a" #'name)]) + #`(deftogether ((defproc (setup:name) predicate?) + (defthing default-name predicate? #:value value)) + desc ...))])) + @title{Setup} @defmodule[pollen/setup]