From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:57187) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jKLua-0000fG-BY for guix-patches@gnu.org; Fri, 03 Apr 2020 08:59:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jKLuY-0000Z8-4Y for guix-patches@gnu.org; Fri, 03 Apr 2020 08:59:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:58050) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jKLuY-0000YR-1A for guix-patches@gnu.org; Fri, 03 Apr 2020 08:59:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jKLuX-0006y7-VT for guix-patches@gnu.org; Fri, 03 Apr 2020 08:59:01 -0400 Subject: [bug#40274] [PATCH v5] gnu: Add kernel-module-loader-service. Resent-Message-ID: Date: Fri, 3 Apr 2020 14:58:39 +0200 From: "pelzflorian (Florian Pelz)" Message-ID: <20200403125839.bci5jduvxrhvw673@pelzflorian.localdomain> References: <20200328135908.2540-1-brice@waegenei.re> <20200402123712.338-1-brice@waegenei.re> <20200402155640.121e4879@scratchpost.org> <2b32956fc10fd3012388722e1b00ce21@waegenei.re> <20200403122044.2f9e2552@scratchpost.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="haqwatq56yyapube" Content-Disposition: inline Content-Transfer-Encoding: 8bit In-Reply-To: <20200403122044.2f9e2552@scratchpost.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Danny Milosavljevic Cc: 40274@debbugs.gnu.org, ludo@gnu.org, Brice Waegeneire --haqwatq56yyapube Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: 8bit On Fri, Apr 03, 2020 at 12:20:44PM +0200, Danny Milosavljevic wrote: > On Thu, 02 Apr 2020 17:13:05 +0000 Brice Waegeneire wrote: > > *could* be useful, to some, to pass arguments to modprobe since it is > > present in its API; > Definitely could be useful. The question is whether the complexity justifies it > and whether it can be reliable. I need modprobe arguments in some way via some service to pass to the uvesafb module to make graphics and kmscon work on machines without Kernel Mode Setting (see attachment), but the (string-append …) is not executed as a procedure, it seems. Apr 3 14:54:45 localhost vmunix: [ 9.860831] shepherd[1]: Service user-homes has been started. Apr 3 14:54:45 localhost vmunix: [ 9.880505] shepherd[1]: '/gnu/store/d064bv2b1hrb07j2zj78i608db7qldx9-kmod-26/bin/modprobe -- uvesafb (string-append v86d= /gnu/store/0m780n5q4cr7rqmjn5zzd6adr3042f97-v86d-0.1.10 /sbin/v86d) mode_option=1024x768' exited with status 127; output follows: Apr 3 14:54:45 localhost vmunix: [ 9.881867] shepherd[1]: Apr 3 14:54:45 localhost vmunix: [ 9.883595] shepherd[1]: Service kernel-module-loader could not be started. Regards, Florian --haqwatq56yyapube Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="uvesafb-gexp.patch" diff --git a/gnu/system/install.scm b/gnu/system/install.scm index c15c2c7814..7327efe195 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -26,11 +26,13 @@ #:use-module (gnu bootloader u-boot) #:use-module (guix gexp) #:use-module (guix store) + #:use-module (guix utils) #:use-module (guix monads) #:use-module ((guix packages) #:select (package-version)) #:use-module ((guix store) #:select (%store-prefix)) #:use-module (gnu installer) #:use-module (gnu services dbus) + #:use-module (gnu services linux) #:use-module (gnu services networking) #:use-module (gnu services shepherd) #:use-module (gnu services ssh) @@ -50,6 +52,7 @@ #:use-module (gnu packages texinfo) #:use-module (gnu packages compression) #:use-module (gnu packages nvi) + #:use-module (gnu packages xorg) #:use-module (ice-9 match) #:use-module (srfi srfi-26) #:export (installation-os @@ -304,7 +307,8 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m (define bare-bones-os (load "examples/bare-bones.tmpl")) - (list (service virtual-terminal-service-type) + (cons* + (service virtual-terminal-service-type) (service kmscon-service-type (kmscon-configuration @@ -408,7 +412,14 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m (list bare-bones-os glibc-utf8-locales texinfo - (canonical-package guile-2.2)))))) + (canonical-package guile-2.2))) + (if (member (%current-system) '("x86_64-linux" "i686-linux")) + ;; Load uvesafb to show installer when no KMS is available. + `(,(kernel-module-loader-service + (list (list "uvesafb" + #~(string-append "v86d=" #$v86d "/sbin/v86d") + "mode_option=1024x768")))) + '())))) (define %issue ;; Greeting. --haqwatq56yyapube--