From 67e558c1293261049b94a84667b7834f8286ddab Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Thu, 21 Sep 2017 19:18:37 +0900
Subject: [PATCH] Stop showing all projects if the search query is empty.

---
 src/search.lisp | 2 +-
 src/web.lisp    | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/search.lisp b/src/search.lisp
index 82e6f25..e2d55bb 100644
--- a/src/search.lisp
+++ b/src/search.lisp
@@ -44,7 +44,7 @@
        :test #'eql
        :key #'project-id
        :from-end t)
-      (search-all-projects ql-dist-version)))
+      nil))
 
 @export
 (defun search-all-projects (&optional (ql-dist-version
diff --git a/src/web.lisp b/src/web.lisp
index 88012ff..0fcde0b 100644
--- a/src/web.lisp
+++ b/src/web.lisp
@@ -120,7 +120,6 @@
 @route GET "/search"
 (defun search-page (&key |q|)
   (let ((projects (search-projects |q| (preference "ql-dist-version"))))
-
     (render #P"search.html"
             (list
              :projects (mapcar (lambda (project)