amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

size: Add '--load-path' option.

Browse source 
* guix/scripts/size.scm (%option): Add '--load-path' option.
* doc/guix.texi: Document it.
This commit is contained in:
zimoun 2020-01-15 18:00:02 +01:00 • committed by Pierre Neidhardt
parent ee9a735bc8
commit 2d4688c1ea
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
doc/guix.texi
View file

@ -9838,6 +9838,13 @@ the case, @command{guix size} fails as it tries to load it.
@itemx -s @var{system} @itemx -s @var{system}
Consider packages for @var{system}---e.g., @code{x86_64-linux}. Consider packages for @var{system}---e.g., @code{x86_64-linux}.
@item --load-path=@var{directory}
@itemx -L @var{directory}
Add @var{directory} to the front of the package module search path
(@pxref{Package Modules}).
This allows users to define their own packages and make them visible to
the command-line tools.
@end table @end table
@node Invoking guix graph @node Invoking guix graph

8
guix/scripts/size.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -19,6 +20,7 @@
(define-module (guix scripts size) (define-module (guix scripts size)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix scripts) #:use-module (guix scripts)
#:use-module (guix scripts build)
#:use-module (guix store) #:use-module (guix store)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix combinators) #:use-module (guix combinators)
@ -242,6 +244,9 @@ Report the size of PACKAGE and its dependencies.\n"))
-m, --map-file=FILE write to FILE a graphical map of disk usage")) -m, --map-file=FILE write to FILE a graphical map of disk usage"))
(newline) (newline)
(display (G_ " (display (G_ "
-L, --load-path=DIR prepend DIR to the package module search path"))
(newline)
(display (G_ "
-h, --help display this help and exit")) -h, --help display this help and exit"))
(display (G_ " (display (G_ "
-V, --version display version information and exit")) -V, --version display version information and exit"))
@ -273,6 +278,9 @@ Report the size of PACKAGE and its dependencies.\n"))
(option '(#\m "map-file") #t #f (option '(#\m "map-file") #t #f
(lambda (opt name arg result) (lambda (opt name arg result)
(alist-cons 'map-file arg result))) (alist-cons 'map-file arg result)))
(find (lambda (option)
(member "load-path" (option-names option)))
%standard-build-options)
(option '(#\h "help") #f #f (option '(#\h "help") #f #f
(lambda args (lambda args
(show-help) (show-help)