racket/pkgs/racket-doc/scribblings/icons.rkt
Matthew Flatt 2d4f3e2ac9 remove the "racket-pkgs" directory layer
The layer is now redundant, since everything left in "pkgs" is in the
"racket-pkgs" category.
2014-12-08 05:22:59 -07:00

28 lines
1.1 KiB
Racket

(module icons scheme/base
(require scribble/manual
scribble/struct
setup/main-collects
(only-in scribble/core make-style)
scribble/html-properties
scribble/latex-properties)
(provide magnify
finger)
(define (mk name)
(make-element (make-style "imageleft"
(list (make-css-addition
(path->main-collects-relative
(collection-file-path "icons.css" "scribblings")))
(make-tex-addition
(path->main-collects-relative
(collection-file-path "icons.tex" "scribblings")))))
(list
(make-element (make-image-file
(path->main-collects-relative
(collection-file-path name "scribblings"))
1.0)
(list "+")))))
(define magnify (mk "magnify.png"))
(define finger (mk "finger.png")))