ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: Take package upstream name into account when searching.

Browse source 
* guix/ui.scm (%package-metrics): Add PACKAGE-UPSTREAM-NAME*.
* tests/ui.scm ("package-relevance and upstream name"): New test.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Lars-Dominik Braun 2022-12-09 12:01:31 +01:00 committed by Ludovic Courtès
parent 052faadde7
commit bbcd06e56c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
guix/ui.scm
View file

@ -1668,6 +1668,7 @@ (define %package-metrics
;; Metrics used to compute the "relevance score" of a package against a set ;; Metrics used to compute the "relevance score" of a package against a set
;; of regexps. ;; of regexps.
`((,package-name . 4) `((,package-name . 4)
(,package-upstream-name* . 2)
;; Match against uncommon outputs. ;; Match against uncommon outputs.
(,(lambda (package) (,(lambda (package)

11
tests/ui.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013-2017, 2019-2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info> ;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -294,6 +294,15 @@ (define guile-2.0.9
(>0 (package-relevance libb2 (>0 (package-relevance libb2
(map rx '("crypto" "library"))))))) (map rx '("crypto" "library")))))))
(test-assert "package-relevance and upstream name"
;; https://issues.guix.gnu.org/58136
(let ((ggplot2 (specification->package "r-ggplot2"))
(ggstance (specification->package "r-ggstance"))
(rx (make-regexp "ggplot2" regexp/icase)))
(> (package-relevance ggplot2 (list rx))
(package-relevance ggstance (list rx))
0)))
(define (make-empty-file directory file) (define (make-empty-file directory file)
;; Create FILE in DIRECTORY. ;; Create FILE in DIRECTORY.
(close-port (open-output-file (in-vicinity directory file)))) (close-port (open-output-file (in-vicinity directory file))))