cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Solr managed schema sucks

Browse source
This commit is contained in:
Cadence Ember 2023-12-06 16:02:43 +13:00
parent 61c304cf41
commit e5e3876254
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/search-provider-solr.rkt
View file

@ -46,7 +46,8 @@
(for/list ([doc (jp "/response/docs" json)]) (for/list ([doc (jp "/response/docs" json)])
(define id (jp "/id" doc)) (define id (jp "/id" doc))
(define len (jp "/len" doc)) (define len (jp "/len" doc))
(define title (jp "/title" doc)) (define title (let ([t (jp "/title" doc)])
(if (list? t) (car t) t)))
(define page-path (page-title->path title)) (define page-path (page-title->path title))
(define kb (exact->inexact (/ (round (/ len 100)) 10))) ; divide by 1000 and round to nearest 0.1 (define kb (exact->inexact (/ (round (/ len 100)) 10))) ; divide by 1000 and round to nearest 0.1
(define words (* (round (/ len 60)) 10)) ; divide by 6 and round to nearest 10 (define words (* (round (/ len 60)) 10)) ; divide by 6 and round to nearest 10