guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

153/197: installer: Add optional arguments to addstr*.


From: Danny Milosavljevic
Subject: 153/197: installer: Add optional arguments to addstr*.
Date: Mon, 3 Jul 2017 20:37:16 -0400 (EDT)

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 747b9cf2c6422c04848c3da5d6b5ed60dbd8c042
Author: John Darrington <address@hidden>
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"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]