;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; 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 newt menu)
  #:use-module (gnu installer steps)
  #:use-module (gnu installer newt page)
  #:use-module (guix i18n)
  #:use-module (newt)
  #:export (run-menu-page))

(define (run-menu-page steps)
  "Run a menu page, asking the user to select where to resume the install
process from."
  (define (steps->items steps)
    (filter (lambda (step)
              (installer-step-description step))
            steps))

  (run-listbox-selection-page
   #:info-text (G_ "Choose where you want to resume the install.  \
You can also abort the installation by pressing the Abort button.")
   #:title (G_ "Installation menu")
   #:listbox-items (steps->items steps)
   #:listbox-item->text installer-step-description
   #:sort-listbox-items? #f
   #:button-text (G_ "Abort")
   #:button-callback-procedure (lambda ()
                                 (newt-finish)
                                 (primitive-exit 1))))
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=d258d9c7d222e6b64531c14293f41bd8d62ea4f7'>root</a>/<a href='/guix/log/gnu?id=d258d9c7d222e6b64531c14293f41bd8d62ea4f7'>gnu</a>/<a href='/guix/log/gnu/tests?id=d258d9c7d222e6b64531c14293f41bd8d62ea4f7'>tests</a>/<a href='/guix/log/gnu/tests/web.scm?id=d258d9c7d222e6b64531c14293f41bd8d62ea4f7'>web.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/tests/web.scm?id=d258d9c7d222e6b64531c14293f41bd8d62ea4f7&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-05-31 20:22:23 +0100'>2019-05-31</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=2177d9222f8c228fe5cd4e9c98d96f97e9601b86'>services: Add patchwork.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2018-10-18 01:12:22 +0200'>2018-10-18</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=39d7fdce453b0ca23ecbed72048647debbaa58a6'>services: dhcp-client: Deprecate 'dhcp-client-service' procedure.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-28 18:23:00 +0200'>2018-09-28</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=4353981eb095459c47a9e12950745ac0304162ae'>tests: Add missing copyright statement.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-09-26 00:33:01 +0200'>2018-09-26</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=3b97a1779f3b65d582b8edc8c154b6414314b946'>services: Add Varnish service.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-09-10 12:12:50 +0200'>2018-09-10</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=19de8273eefceac1ba6ddc8d7e374a13f57c678b'>services: tailon: Move to (gnu services web).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-06-13 09:11:45 +0200'>2018-06-13</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=c24b15472baaa7ec67d48cbf296bbe5ab727b78f'>tests: Honor the return value of 'start-service'.</a><span class='msg-avail'>...</span></td><td>Clément Lassieur</td></tr>
<tr><td><span title='2018-06-01 13:50:26 +0200'>2018-06-01</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=93b83eb31e35aedaafcc40cfbb9a8743e0f6352d'>services: Add hpcguix-web.</a><span class='msg-avail'>...</span></td><td>Rouby Pierre-Antoine</td></tr>
<tr><td><span title='2018-01-17 08:43:47 +0000'>2018-01-17</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=d067e4badcaa705d8cb68d81c534ba69c3fa6e13'>gnu: services: web: Add service for httpd.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2018-01-17 08:43:41 +0000'>2018-01-17</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=d9b530813f6d90d4aec320fd2f362d46b11a0125'>gnu: tests: web: Generalise the nginx test.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2017-12-19 09:53:56 +0100'>2017-12-19</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=a1ac7bf361dd5d10dd84e4666a0c2d7b07970e25'>tests: Adjust php-fpm test to new nginx API.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-12-18 12:03:14 +0100'>2017-12-18</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=8b223ceac4ff0781e95d69362875f87cff03f4d6'>services: nginx: Replace 'http-port' and 'https-port' with 'listen'.</a><span class='msg-avail'>...</span></td><td>Clément Lassieur</td></tr>
<tr><td><span title='2017-12-12 21:29:39 +0000'>2017-12-12</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=64bae7237c65b32d97e16ff6802124c26867754a'>gnu: services: Add php-fpm.</a><span class='msg-avail'>...</span></td><td>nee</td></tr>
<tr><td><span title='2017-12-11 20:36:43 +0000'>2017-12-11</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=c48aa70a9aa68ac6f365663044357be77eb9e36a'>services: web: Remove default certificate and key files for nginx.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2017-07-20 11:57:13 +0200'>2017-07-20</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=8b113790fa3bfd2300c737901ba161f079fedbdf'>tests: Use 'virtual-machine' records instead of monadic procedures.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-04-15 15:32:25 +0200'>2017-04-15</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=99828febe05663c5d93dc52594eab28c6a1fe3d8'>tests: Remove unused import (gnu system grub).</a><span class='msg-avail'>...</span></td><td>Danny Milosavljevic</td></tr>
<tr><td><span title='2017-04-01 00:45:18 +0200'>2017-04-01</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=892d9089a88abaa2ef1127f16308d03f4f08a4ce'>tests: Introduce 'simple-operating-system' and use it.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-19 14:44:59 +0100'>2017-01-19</span></td><td><a href='/guix/commit/gnu/tests/web.scm?id=11f3885bb59cbdeec08a929996b4fc39b1746a3e'>tests: Add 'nginx-service-type' test.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>