[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 03/05: args: Add missing 'l10n' annotations.
From: |
Ludovic Courtès |
Subject: |
[shepherd] 03/05: args: Add missing 'l10n' annotations. |
Date: |
Fri, 2 Mar 2018 04:29:53 -0500 (EST) |
civodul pushed a commit to branch master
in repository shepherd.
commit a786d65653ea75065a5170c3635093b1660d271c
Author: Ludovic Courtès <address@hidden>
Date: Fri Mar 2 10:22:00 2018 +0100
args: Add missing 'l10n' annotations.
* modules/shepherd/args.scm (process-args): Add missing 'l10n' calls.
---
modules/shepherd/args.scm | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/modules/shepherd/args.scm b/modules/shepherd/args.scm
index bbc3be4..ebb33e4 100644
--- a/modules/shepherd/args.scm
+++ b/modules/shepherd/args.scm
@@ -133,13 +133,13 @@
(set! options
(cons* (make <option>
#:long "version"
- #:description "display version information and exit"
+ #:description (l10n "display version information and exit")
#:action (lambda ()
(display-version program-name)
(quit)))
(make <option>
#:long "usage"
- #:description "display short usage message and exit"
+ #:description (l10n "display short usage message and exit")
#:action (lambda ()
(display program-name)
(display " ")
@@ -186,11 +186,11 @@
(quit)))
(make <option>
#:long "help"
- #:description "display this help and exit"
+ #:description (l10n "display this help and exit")
#:action (lambda ()
(for-each display
(list program-name
- " [OPTIONS...] "
+ (l10n " [OPTIONS...] ")
args-syntax))
(newline)
(display args-desc)
@@ -246,7 +246,7 @@ General help using GNU software:
<http://www.gnu.org/gethelp/>~%")
(l10n "Option `--~a' is ambigous.")
(l10n "Unknown option: `--~a'."))
name)
- (local-output "Try `--help'.")
+ (local-output (l10n "Try `--help'."))
(quit 1)))
(and (takes-arg? target-option)
(not (optional-arg? target-option))
@@ -270,7 +270,8 @@ General help using GNU software:
<http://www.gnu.org/gethelp/>~%")
(param #f))
(if (not target-option)
(begin
- (local-output "Unknown option: `-~a'." opt-char)
+ (local-output (l10n "Unknown option: `-~a'.")
+ opt-char)
(quit 1))
(if (takes-arg? target-option)
(begin
@@ -282,7 +283,8 @@ General help using GNU software:
<http://www.gnu.org/gethelp/>~%")
(or (optional-arg? target-option)
(begin
(local-output
- "Argument required by `-~a'." opt-char)
+ (l10n "Argument required by `-~a'.")
+ opt-char)
(quit 1)))
(begin
(set! ptr (cdr ptr))