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