32 lines
878 B
Scheme
32 lines
878 B
Scheme
(module search-util mzscheme
|
|
|
|
(require (lib "string-constant.ss" "string-constants"))
|
|
|
|
(provide
|
|
search-types
|
|
search-type-default
|
|
match-types
|
|
match-type-default
|
|
kind-types)
|
|
|
|
(define search-types
|
|
`(("keyword" ,(string-constant plt:hd:search-for-keyword))
|
|
("keyword-index" ,(string-constant plt:hd:search-for-keyword-or-index))
|
|
("keyword-index-text" ,(string-constant plt:hd:search-for-keyword-or-index-or-text))))
|
|
|
|
(define search-type-default "keyword-index")
|
|
|
|
(define match-types
|
|
`(("exact-match" ,(string-constant plt:hd:exact-match))
|
|
("containing-match" ,(string-constant plt:hd:containing-match))
|
|
("regexp-match" ,(string-constant plt:hd:regexp-match))))
|
|
|
|
(define match-type-default "containing-match")
|
|
|
|
(define kind-types
|
|
`(("index entries" html)
|
|
("keyword entries" text)
|
|
("text" text))))
|
|
|
|
|