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

Fix search-by-description to see repos_info.description.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-08-01 07:11:44 +09:00
parent a5a1bb5001
commit a3e26d80e6
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/search.lisp
View file

@ -92,13 +92,12 @@
:as 'project)))
(defun search-by-description (query ql-dist-version)
(let ((queries (ppcre:split "\\s+" (string-downcase query))))
(retrieve-all
(select :project.*
(from :cliki)
(left-join :project :on (:= :cliki.project_name :project.name))
(where `(:and (:= :ql_dist_version ,ql-dist-version)
,@(mapcar
(lambda (query) `(:like (:lower :body) ,(format nil "%~A%" query)))
queries))))
:as 'project)))
(retrieve-all
(select :project.*
(from :project)
(left-join :cliki :on (:= :project.name :cliki.project_name))
(left-join :repos_info :on (:= :project.name :repos_info.project_name))
(where `(:and (:= :ql_dist_version ,ql-dist-version)
(:or (:like :repos_info.description ,(format nil "%~A%" query))
(:like :body ,(format nil "%~A%" query))))))
:as 'project))