From 95ceb660ed8eb388b741bc1fbe07f10fd8c15ef5 Mon Sep 17 00:00:00 2001 From: Conor Finegan Date: Thu, 13 Jul 2017 13:14:05 -0400 Subject: [PATCH] Added todo level for no description. --- src/site.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/site.rkt b/src/site.rkt index feef4a0..0aac585 100644 --- a/src/site.rkt +++ b/src/site.rkt @@ -623,10 +623,12 @@ (define has-docs? (pair? (package-docs pkg))) (define has-readme? (pair? (package-readme-url pkg))) (define has-tags? (pair? (package-tags pkg))) + (define has-desc? (not (string=? "" (package-description pkg)))) (define todokey - (cond [(package-build-failure-log pkg) 4] - [(package-build-test-failure-log pkg) 3] - [(not (or has-docs? has-readme?)) 2] + (cond [(package-build-failure-log pkg) 5] + [(package-build-test-failure-log pkg) 4] + [(not (or has-docs? has-readme?)) 3] + [(not has-desc?) 2] [(not has-tags?) 1] [else 0])) (define row-xexp