dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 85bc884e2588524cceb1276701e099a8dd6f329a
Author: John Darrington <[email protected]>
Date: Thu Dec 22 19:17:42 2016 +0100
installer: Handle the 'back' action in the filesystems task.
* gnu/system/installer/filesystems.scm: Add key handler for Back function.
---
gnu/system/installer/filesystems.scm | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/gnu/system/installer/filesystems.scm
b/gnu/system/installer/filesystems.scm
index 79fb2a0..ed35393 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -120,6 +120,11 @@
((page-refresh next) next)
))
+ ((buttons-key-matches-symbol? nav ch 'back)
+ (delwin (outer (page-wwin page)))
+ (delwin (inner (page-wwin page)))
+ (set! page-stack (cdr page-stack)))
+
((buttons-key-matches-symbol? nav ch 'continue)
(cond
