me/guix
Archived
1
0
Fork 0
Code Activity

show, search: Add '--load-path'.

Browse source 
* guix/scripts/search.scm (show-help, %options): Add -L/--load-path.
* guix/scripts/show.scm (show-help, %options): Add -L/--load-path.
This commit is contained in:
Ludovic Courtès 2019-09-23 21:22:28 +02:00
parent a2f6f3b199
commit 4f8c29a75c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
guix/scripts/search.scm
View file

@ -19,6 +19,8 @@
(define-module (guix scripts search) (define-module (guix scripts search)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix scripts package) #:use-module (guix scripts package)
#:use-module ((guix scripts build)
#:select (%standard-build-options))
#:use-module (guix scripts) #:use-module (guix scripts)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
@ -36,6 +38,9 @@ This is an alias for 'guix package -s'.\n"))
(display (G_ " (display (G_ "
-V, --version display version information and exit")) -V, --version display version information and exit"))
(newline) (newline)
(display (G_ "
-L, --load-path=DIR prepend DIR to the package module search path"))
(newline)
(show-bug-report-information)) (show-bug-report-information))
(define %options (define %options
@ -46,7 +51,11 @@ This is an alias for 'guix package -s'.\n"))
(exit 0))) (exit 0)))
(option '(#\V "version") #f #f (option '(#\V "version") #f #f
(lambda args (lambda args
(show-version-and-exit "guix search"))))) (show-version-and-exit "guix search")))
(find (lambda (option)
(member "load-path" (option-names option)))
%standard-build-options)))
(define (guix-search . args) (define (guix-search . args)
(define (handle-argument arg result) (define (handle-argument arg result)

11
guix/scripts/show.scm
View file

@ -19,6 +19,8 @@
(define-module (guix scripts show) (define-module (guix scripts show)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix scripts package) #:use-module (guix scripts package)
#:use-module ((guix scripts build)
#:select (%standard-build-options))
#:use-module (guix scripts) #:use-module (guix scripts)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
@ -36,6 +38,9 @@ This is an alias for 'guix package --show='.\n"))
(display (G_ " (display (G_ "
-V, --version display version information and exit")) -V, --version display version information and exit"))
(newline) (newline)
(display (G_ "
-L, --load-path=DIR prepend DIR to the package module search path"))
(newline)
(show-bug-report-information)) (show-bug-report-information))
(define %options (define %options
@ -46,7 +51,11 @@ This is an alias for 'guix package --show='.\n"))
(exit 0))) (exit 0)))
(option '(#\V "version") #f #f (option '(#\V "version") #f #f
(lambda args (lambda args
(show-version-and-exit "guix show"))))) (show-version-and-exit "guix show")))
(find (lambda (option)
(member "load-path" (option-names option)))
%standard-build-options)))
(define (guix-show . args) (define (guix-show . args)
(define (handle-argument arg result) (define (handle-argument arg result)