diff options
author | Arun Isaac <arunisaac@systemreboot.net> | 2020-02-28 02:11:49 +0530 |
---|---|---|
committer | Guix Patches Tester <> | 2020-02-27 20:44:11 +0000 |
commit | 810e6c096ec7961962fdecece0ead0a010d7dd2a (patch) | |
tree | 2212365a125617b2a478048d84ef7a3fc2414e10 /gnu/packages.scm | |
parent | 096a854a9bf0fd2558be4b42c48601a2a4f3bd54 (diff) | |
download | patches-810e6c096ec7961962fdecece0ead0a010d7dd2a.tar patches-810e6c096ec7961962fdecece0ead0a010d7dd2a.tar.gz |
gnu: Generate xapian package search index.
* gnu/packages.scm (%package-search-index): New variable.
(generate-package-search-index): New function.
* guix/channels.scm (package-search-index): New function.
(%channel-profile-hooks): Add package-search-index.
Diffstat (limited to 'gnu/packages.scm')
-rw-r--r-- | gnu/packages.scm | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm index d22c992bb1..e91753e2a8 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> +;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,6 +44,7 @@ #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (srfi srfi-39) + #:use-module (xapian xapian) #:export (search-patch search-patches search-auxiliary-file @@ -64,7 +66,8 @@ specification->location specifications->manifest - generate-package-cache)) + generate-package-cache + generate-package-search-index)) ;;; Commentary: ;;; @@ -426,6 +429,30 @@ reducing the memory footprint." #:opts '(#:to-file? #t))))) cache-file) +(define %package-search-index + ;; Location of the package search-index + "/lib/guix/package-search.index") + +(define (generate-package-search-index directory) + "Generate under DIRECTORY a xapian index of all the available packages." + (define db-path + (string-append directory %package-search-index)) + + (mkdir-p (dirname db-path)) + (call-with-writable-database db-path + (lambda (db) + (fold-packages (lambda (package _) + (let* ((idterm (string-append "Q" (package-name package))) + (doc (make-document #:data (package-name package) + #:terms `((,idterm . 0)))) + (term-generator (make-term-generator #:stem (make-stem "en") + #:document doc))) + (index-text! term-generator (package-description package)) + (replace-document! db idterm doc))) + #f))) + + db-path) + (define %sigint-prompt ;; The prompt to jump to upon SIGINT. |