;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu installer kernel)
  #:use-module (gnu system hurd)
  #:use-module (guix read-print)
  #:export (kernel->configuration))

(define-syntax-rule (G_ str)
  ;; In this file, translatable strings are annotated with 'G_' so xgettext
  ;; catches them, but translation happens later on at run time.
  str)

(define (kernel->configuration kernel dry-run?)
  (if (equal? kernel "Hurd")
      `((kernel %hurd-default-operating-system-kernel)
        ,(comment (G_ ";; \"noide\" disables the gnumach IDE driver, enabling rumpdisk.\n"))
        (kernel-arguments '("noide"))
        (firmware '())
        (hurd hurd)
        (locale-libcs (list glibc/hurd))
        (name-service-switch #f)
        (essential-services (hurd-default-essential-services this-operating-system))
        (privileged-programs '())
        (setuid-programs %setuid-programs/hurd))
      '()))
='bb118f20fe6581a4acbd3799ed31ab0d21e72e78'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=bb118f20fe6581a4acbd3799ed31ab0d21e72e78'>root</a>/<a href='/guix/log/gnu?id=bb118f20fe6581a4acbd3799ed31ab0d21e72e78'>gnu</a>/<a href='/guix/log/gnu/packages?id=bb118f20fe6581a4acbd3799ed31ab0d21e72e78'>packages</a>/<a href='/guix/log/gnu/packages/nano.scm?id=bb118f20fe6581a4acbd3799ed31ab0d21e72e78'>nano.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/nano.scm?id=bb118f20fe6581a4acbd3799ed31ab0d21e72e78&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-04-29 20:53:13 +0300'>2021-04-29</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=bdf9c7db6d37eca52f3979190a5f5de7b9f4881e'>gnu: nano: Update to 5.7.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nano.scm (nano): Update to 5.7.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-03-04 00:44:54 +0100'>2021-03-04</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=66fac8ad0f2a4c3773c374dc462c6d2364e82e6c'>gnu: nano: Update to 5.6.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nano.scm (nano): Update to 5.6.1.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-02-24 16:18:06 +0100'>2021-02-24</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=376329526be6660852ce8a3517c95607b3191ecb'>gnu: nano: Update to 5.6.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nano.scm (nano): Update to 5.6.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-01-14 16:20:45 +0100'>2021-01-14</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=9f60d927294843e0302cf6b4aef549debe4eeaf0'>gnu: nano: Update to 5.5.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nano.scm (nano): Update to 5.5.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-12-02 18:05:33 +0200'>2020-12-02</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=eeb3db0aa15384fc20b6a0098a5dd672dde58d3c'>gnu: nano: Update to 5.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nano.scm (nano): Update to 5.4.
</span></span></td><td>Efraim Flashner</td></tr>