guix-commits
[Top][All Lists]
Advanced

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

02/11: installer: Use a Guile-Newt snapshot that supports 'form-watch-fd


From: guix-commits
Subject: 02/11: installer: Use a Guile-Newt snapshot that supports 'form-watch-fd'.
Date: Thu, 5 Mar 2020 17:42:25 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit 5ce84b1713b847c860345fc9199c44e3e6d513bb
Author: Ludovic Court├Ęs <address@hidden>
AuthorDate: Wed Jan 22 22:51:20 2020 +0100

    installer: Use a Guile-Newt snapshot that supports 'form-watch-fd'.
    
    * gnu/installer.scm (guile-newt): New variable.
---
 gnu/installer.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/installer.scm b/gnu/installer.scm
index edef3fd..6c11fa6 100644
--- a/gnu/installer.scm
+++ b/gnu/installer.scm
@@ -26,6 +26,8 @@
   #:use-module (guix utils)
   #:use-module (guix ui)
   #:use-module ((guix self) #:select (make-config.scm))
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
   #:use-module (gnu installer utils)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages base)
@@ -280,6 +282,25 @@ selected keymap."
              ((installer-final-page current-installer)
               result prev-steps))))))))
 
+(define guile-newt
+  ;; Guile-Newt with 'form-watch-fd'.
+  ;; TODO: Remove once a new release is out.
+  (let ((commit "b3c885d42cfac327d3531c9d064939514ce6bf12")
+        (revision "1"))
+    (package
+      (inherit (@ (gnu packages guile-xyz) guile-newt))
+      (name "guile-newt")
+      (version (git-version "0.0.1" revision commit))
+      (source  (origin
+                 (method git-fetch)
+                 (uri (git-reference
+                       (url "https://gitlab.com/mothacehe/guile-newt";)
+                       (commit commit)))
+                 (file-name (git-file-name name version))
+                 (sha256
+                  (base32
+                   
"02p0bi6c05699idgx6gfkljhqgi8zf09clhzx81i8wa064s70r1y")))))))
+
 (define (installer-program)
   "Return a file-like object that runs the given INSTALLER."
   (define init-gettext



reply via email to

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