suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

search improvements

Browse Source 
svn: r8566

original commit: cad5f5d85d9684f1a2c349f430baf474b9f491ee
This commit is contained in:
Eli Barzilay 2008-02-07 17:25:49 +00:00
parent de4f8a0e35
commit 0b70f28085
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/help/search.ss
View File

@ -112,10 +112,8 @@
(+ acc (foldl (lambda (sc acc) (+ acc (sc word))) 0 scorers))) (+ acc (foldl (lambda (sc acc) (+ acc (sc word))) 0 scorers)))
;; give some bonus for bindings and modules ;; give some bonus for bindings and modules
(let ([desc (entry-desc entry)]) (let ([desc (entry-desc entry)])
(if (or (exported-index-desc? desc) (if (or (exported-index-desc? desc) (module-path-index-desc? desc))
(module-path-index-desc? desc)) exported-entry-bonus 0))
exported-entry-bonus
0))
(entry-words entry)))) (entry-words entry))))
(define (scored-entry<? x y) (define (scored-entry<? x y)

1
collects/scribble/xref.ss
View File

@ -64,6 +64,7 @@
(define (xref-render xrefs doc dest-file #:render% [render% (html:render-mixin render%)]) (define (xref-render xrefs doc dest-file #:render% [render% (html:render-mixin render%)])
(let* ([dest-file (if (string? dest-file) (string->path dest-file) dest-file)] (let* ([dest-file (if (string? dest-file) (string->path dest-file) dest-file)]
[_ (printf ">>> ~s\n" dest-file)]
[renderer (new render% [dest-dir (path-only dest-file)])] [renderer (new render% [dest-dir (path-only dest-file)])]
[ci (send renderer collect (list doc) (list dest-file))]) [ci (send renderer collect (list doc) (list dest-file))])
(send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs))) (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))