dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 747b9cf2c6422c04848c3da5d6b5ed60dbd8c042
Author: John Darrington <[email protected]>
Date: Mon Jan 30 13:34:23 2017 +0100
installer: Add optional arguments to addstr*.
* gnu/system/installer/utils.scm (addstr*) Add keyword arguments
enter the commit message for your changes. Lines starting
---
gnu/system/installer/utils.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 96f49ac..e88524f 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -134,9 +134,9 @@ This version assumes some external entity puts in the
carriage returns."
(justify' (string-split text char-set:blank) 0 ""))
-(define (addstr* win str)
+(define* (addstr* win str #:key (y 0) (x 0))
"Call the curses addstr procedure passing STR to justify to the width of WIN"
- (addstr win (justify* str (getmaxx win))))
+ (addstr win (justify* str (getmaxx win)) #:y y #:x x))
(define (open-input-pipe-with-fallback cmd)
"Kludge for testing"
