[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"
- 175/197: gurses: Don't crash if asked for an item by an invalid index., (continued)
- 175/197: gurses: Don't crash if asked for an item by an invalid index., Danny Milosavljevic, 2017/07/03
- 171/197: installer: New page to edit user accounts., Danny Milosavljevic, 2017/07/03
- 187/197: installer: Add procudure for starting a wireless interface., Danny Milosavljevic, 2017/07/03
- 192/197: installer: Only build if guile-ncurses is available., Danny Milosavljevic, 2017/07/03
- 68/197: installer: Add new page to set the system role., Danny Milosavljevic, 2017/07/03
- 117/197: installer: Remove unnecessary "begin"., Danny Milosavljevic, 2017/07/03
- 113/197: installer: Explicitly set the #:panel parameter for window creation procedures., Danny Milosavljevic, 2017/07/03
- 122/197: gurses: Populate the choices box in forms., Danny Milosavljevic, 2017/07/03
- 128/197: installer: Remove redundant list of file system types., Danny Milosavljevic, 2017/07/03
- 115/197: installer: New procedure refresh*., Danny Milosavljevic, 2017/07/03
- 153/197: installer: Add optional arguments to addstr*.,
Danny Milosavljevic <=
- 97/197: installer: Whitespace changes only, Danny Milosavljevic, 2017/07/03
- 139/197: installer: Allow file system specifications to be removed., Danny Milosavljevic, 2017/07/03
- 136/197: installer: No passphrase is needed for clear networks., Danny Milosavljevic, 2017/07/03
- 138/197: installer: Clear the mount point field for swap file systems., Danny Milosavljevic, 2017/07/03
- 135/197: installer: Use a "hard" method of rebooting. Do not rely on shepherd., Danny Milosavljevic, 2017/07/03
- 148/197: installer: Support WEP encrypted wireless., Danny Milosavljevic, 2017/07/03
- 176/197: installer: Fix incorrect symbol in generated config file., Danny Milosavljevic, 2017/07/03
- 177/197: installer: Remove non-existant supplementary group., Danny Milosavljevic, 2017/07/03
- 182/197: installer: Kill old dhclient instance before starting new one., Danny Milosavljevic, 2017/07/03
- 189/197: installer: Fix buglet where keys were sometimes ignored in users page., Danny Milosavljevic, 2017/07/03