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 /guix/channels.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 'guix/channels.scm')
-rw-r--r-- | guix/channels.scm | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/guix/channels.scm b/guix/channels.scm index f0261dc2da..c70c70938c 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -581,9 +582,40 @@ be used as a profile hook." (hook . package-cache)) #:local-build? #t))) +(define (package-search-index manifest) + "Build a package search index for the instance in MANIFEST. This is meant +to be used as a profile hook." + (mlet %store-monad ((profile (profile-derivation manifest + #:hooks '()))) + + (define build + #~(begin + (use-modules (gnu packages)) + + (if (defined? 'generate-package-search-index) + (begin + ;; Delegate package search index generation to the inferior. + (format (current-error-port) + "Generating package search index for '~a'...~%" + #$profile) + (generate-package-search-index #$output)) + (mkdir #$output)))) + + (gexp->derivation-in-inferior "guix-package-search-index" build + profile + + ;; If the Guix in PROFILE is too old and + ;; lacks 'guix repl', don't build the cache + ;; instead of failing. + #:silent-failure? #t + + #:properties '((type . profile-hook) + (hook . package-search-index)) + #:local-build? #t))) + (define %channel-profile-hooks ;; The default channel profile hooks. - (cons package-cache-file %default-profile-hooks)) + (cons* package-cache-file package-search-index %default-profile-hooks)) (define (channel-instances->derivation instances) "Return the derivation of the profile containing INSTANCES, a list of |