hiro/quickdocs-server
1
0
Fork 0
mirror of https://github.com/vale981/quickdocs-server synced 2025-03-04 16:51:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Stop showing all projects if the search query is empty.

Browse source
This commit is contained in:
Eitaro Fukamachi 2017-09-21 19:18:37 +09:00
parent c1ebbb6559
commit 67e558c129
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/search.lisp
View file

@ -44,7 +44,7 @@
:test #'eql :test #'eql
:key #'project-id :key #'project-id
:from-end t) :from-end t)
(search-all-projects ql-dist-version))) nil))
@export @export
(defun search-all-projects (&optional (ql-dist-version (defun search-all-projects (&optional (ql-dist-version

1
src/web.lisp
View file

@ -120,7 +120,6 @@
@route GET "/search" @route GET "/search"
(defun search-page (&key |q|) (defun search-page (&key |q|)
(let ((projects (search-projects |q| (preference "ql-dist-version")))) (let ((projects (search-projects |q| (preference "ql-dist-version"))))
(render #P"search.html" (render #P"search.html"
(list (list
:projects (mapcar (lambda (project) :projects (mapcar (lambda (project)