Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

trim scribble-utils to blog-specific code

  • Loading branch information...
commit 58fb00b8a6b69245fda8a9b27eef2aaa33101148 1 parent 39a8532
@rmculpepper authored
Showing with 3 additions and 36 deletions.
  1. +3 −30 scribble-util.rkt
  2. +0 −6 scribblings/scriblogify.scrbl
View
33 scribble-util.rkt
@@ -8,8 +8,9 @@
scribble/core
scribble/html-properties
(for-syntax racket/base))
-(provide (except-out (all-defined-out)
- define-declare-X))
+(provide blogsection
+ the-jump
+ blog-tag)
(define (blogsection . preflow)
(apply section #:style 'unnumbered preflow))
@@ -23,31 +24,3 @@
`((style . "display: none")
(blogtag . ,tag))])
(paragraph (style #f (list 'div (attributes attrs))) null)))
-
-;; Reference and Guide links
-
-(define Guide '(lib "scribblings/guide/guide.scrbl"))
-(define Reference '(lib "scribblings/reference/reference.scrbl"))
-
-(define (tech/guide #:key [key #f] . preflow)
- (apply tech #:doc Guide #:key key preflow))
-
-(define (secref/guide . key)
- (apply secref #:doc Guide key))
-
-(define (tech/reference #:key [key #f] . preflow)
- (apply tech #:doc Reference #:key key preflow))
-
-(define (secref/reference . key)
- (apply secref #:doc Reference key))
-
-;; Formatting
-
-(define-syntax-rule (define-declare-X declare-X formatter)
- (... (define-syntax-rule (declare-X id ...)
- (begin (define-syntax id
- (make-element-id-transformer
- (lambda _ #'(formatter (symbol->string 'id)))))
- ...))))
-
-(define-declare-X declare-keyword racketkeywordfont)
View
6 scribblings/scriblogify.scrbl
@@ -171,9 +171,3 @@ displayed in abbreviated contexts and the rest of the post.
Like @racket[section], but not numbered.
}
-
-@defform[(declare-keyword id ...)]{
-
-Defines each @racket[id] so that it typesets as a syntactic form in
-code.
-}
Please sign in to comment.
Something went wrong with that request. Please try again.