me
/
guix
Archived
1
0
Fork 0
Code

ui: Fix typos, 80-col & grammar in comments & docstrings. 

* guix/ui.scm (load*): Fix comment line length.
(leave-on-EPIPE): Fix typo in docstring.
(substitutable-info): Fix typo in comment.
(indented-string): Fix typo in docstring.
(%package-metrics): Fix typo in comment.
(run-guix): Fix grammar in docstring.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Vincent Legoll 2020-04-16 23:17:16 +02:00 committed by Ludovic Courtès
parent 4e3314a4c5
commit 694e10af63
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/ui.scm
View File

@ -234,8 +234,8 @@ information, or #f if it could not be found."
;; Give 'load' an absolute file name so that it doesn't try to ;; Give 'load' an absolute file name so that it doesn't try to
;; search for FILE in %LOAD-PATH. Note: use 'load', not ;; search for FILE in %LOAD-PATH. Note: use 'load', not
;; 'primitive-load', so that FILE is compiled, which then allows us ;; 'primitive-load', so that FILE is compiled, which then allows
;; to provide better error reporting with source line numbers. ;; us to provide better error reporting with source line numbers.
(load (canonicalize-path file))) (load (canonicalize-path file)))
(const #f)))))) (const #f))))))
(lambda _ (lambda _
@ -796,7 +796,7 @@ directories:~{ ~a~}~%")
(apply format #f format-string format-args)))))) (apply format #f format-string format-args))))))
(define-syntax-rule (leave-on-EPIPE exp ...) (define-syntax-rule (leave-on-EPIPE exp ...)
"Run EXP... in a context when EPIPE errors are caught and lead to 'exit' "Run EXP... in a context where EPIPE errors are caught and lead to 'exit'
with successful exit code. This is useful when writing to the standard output with successful exit code. This is useful when writing to the standard output
may lead to EPIPE, because the standard output is piped through 'head' or may lead to EPIPE, because the standard output is piped through 'head' or
similar." similar."
@ -925,7 +925,7 @@ download."
drv)) drv))
(define substitutable-info (define substitutable-info
;; Call 'substitutation-oracle' upfront so we don't end up launching the ;; Call 'substitution-oracle' upfront so we don't end up launching the
;; substituter many times. This makes a big difference, especially when ;; substituter many times. This makes a big difference, especially when
;; DRV is a long list as is the case with 'guix environment'. ;; DRV is a long list as is the case with 'guix environment'.
(if use-substitutes? (if use-substitutes?
@ -1251,7 +1251,7 @@ separator between subsequent columns."
(define* (indented-string str indent (define* (indented-string str indent
#:key (initial-indent? #t)) #:key (initial-indent? #t))
"Return STR with each newline preceded by IDENT spaces. When "Return STR with each newline preceded by INDENT spaces. When
INITIAL-INDENT? is true, the first line is also indented." INITIAL-INDENT? is true, the first line is also indented."
(define indent-string (define indent-string
(make-list indent #\space)) (make-list indent #\space))
@ -1534,7 +1534,7 @@ score, the more relevant OBJ is to REGEXPS."
(,(lambda (package) (,(lambda (package)
(filter (lambda (output) (filter (lambda (output)
(not (member output (not (member output
;; Some common outpus shared by many packages. ;; Some common outputs shared by many packages.
'("out" "doc" "debug" "lib" "include" "bin")))) '("out" "doc" "debug" "lib" "include" "bin"))))
(package-outputs package))) (package-outputs package)))
. 1) . 1)
@ -1942,7 +1942,7 @@ found."
(define (run-guix . args) (define (run-guix . args)
"Run the 'guix' command defined by command line ARGS. "Run the 'guix' command defined by command line ARGS.
Unlike 'guix-main', this procedure assumes that locale, i18n support, Unlike 'guix-main', this procedure assumes that locale, i18n support,
and signal handling has already been set up." and signal handling have already been set up."
(define option? (cut string-prefix? "-" <>)) (define option? (cut string-prefix? "-" <>))
;; The default %LOAD-EXTENSIONS includes the empty string, which doubles the ;; The default %LOAD-EXTENSIONS includes the empty string, which doubles the