;;; 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))))
a6'/><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=e5f6d0ecafba223031d8f379a91961842ca593a6'>root</a>/<a href='/guix/log/gnu?id=e5f6d0ecafba223031d8f379a91961842ca593a6'>gnu</a>/<a href='/guix/log/gnu/packages?id=e5f6d0ecafba223031d8f379a91961842ca593a6'>packages</a>/<a href='/guix/log/gnu/packages/gettext.scm?id=e5f6d0ecafba223031d8f379a91961842ca593a6'>gettext.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/gettext.scm?id=e5f6d0ecafba223031d8f379a91961842ca593a6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-06-17 14:38:32 +0200'>2023-06-17</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=ff690faf66d8f37ee6b679fcb7cf37e369624ee3'>gnu: Use target-hurd?, system-hurd? instead of hurd-target?, hurd-system?.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/hurd.scm (hurd-target?): Remove.
(hurd-system?): Move to...
* guix/utils.scm (system-hurd?): ...here.
* gnu/packages/*: Update all users, removing (gnu packages hurd) include where
now unused.
</span></span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2023-04-21 00:44:02 -0400'>2023-04-21</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=3b1f0a7b05b9cc3bbea378d90a05927f5450aff4'>gnu: po4a: Remove patch-docbook-xml phase.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/gettext.scm (po4a) [arguments]: Remove patch-docbook-xml phase.
Remove trailing #t.  Use gexps.
[native-inputs]: Remove labels.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-03-20 18:49:06 +0100'>2023-03-20</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=ccb62d8feb50e2859d7c41429a9e3d9e0fe30bfe'>Merge remote-tracking branch 'origin/master' into core-updates</a></td><td>Andreas Enge</td></tr>
<tr><td><span title='2023-03-12 11:04:06 +0100'>2023-03-12</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=dcc3bebfaffcfdaec499b6449552ab0e97ff19a5'>gnu: mdpo: Remove python-pre-commit.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/gettext.scm (mdpo)[native-inputs]: Remove python-pre-commit.

Signed-off-by: Lars-Dominik Braun &lt;lars@6xq.net&gt;
</span></span></td><td>Antero Mejr</td></tr>
<tr><td><span title='2023-02-26 22:42:49 +0100'>2023-02-26</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=ec93f243ff1a698c66af66108cbf956060c206c8'>gnu: gettext: Remove input label.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/gettext.scm (gnu-gettext)[native-inputs]: Remove label.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-01-30 12:39:40 +0200'>2023-01-30</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=4cf1acc7f3033b50b0bf19e02c9f522d522d338c'>Merge remote-tracking branch 'origin/master' into core-updates</a><span class='msg-avail'>...<span class='msg-tooltip'> Conflicts:
	doc/guix.texi
	gnu/local.mk
	gnu/packages/admin.scm
	gnu/packages/base.scm
	gnu/packages/chromium.scm
	gnu/packages/compression.scm
	gnu/packages/databases.scm
	gnu/packages/diffoscope.scm
	gnu/packages/freedesktop.scm
	gnu/packages/gnome.scm
	gnu/packages/gnupg.scm
	gnu/packages/guile.scm
	gnu/packages/inkscape.scm
	gnu/packages/llvm.scm
	gnu/packages/openldap.scm
	gnu/packages/pciutils.scm
	gnu/packages/ruby.scm
	gnu/packages/samba.scm
	gnu/packages/sqlite.scm
	gnu/packages/statistics.scm
	gnu/packages/syndication.scm
	gnu/packages/tex.scm
	gnu/packages/tls.scm
	gnu/packages/version-control.scm
	gnu/packages/xml.scm
	guix/build-system/copy.scm
	guix/scripts/home.scm
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-01-03 20:51:57 +0100'>2023-01-03</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=a1f9eba892784069e34338e01237a74b8a3bd8a2'>gnu: po4a: Update to 0.68</a><span class='msg-avail'>...<span class='msg-tooltip'>The phase do-not-override-PERL5LIB is removed since it was fixed in po4a v0.63.
https://github.com/mquinson/po4a/blob/0ab1670e50f0a72781e3d1de6ab9da0c2d71c646/NEWS#L366

bash-minimal is added to inputs since the wrap-program function is used.
See also https://issues.guix.gnu.org/49327#80

The only regrettable thing is that only the SGML test failed, but I could not
find the cause...  Nevertheless, some previously failed tests are now passing.

* gnu/packages/gettext.scm (po4a): Update to 0.68.

Signed-off-by: Julien Lepiller &lt;julien@lepiller.eu&gt;
</span></span></td><td>gemmaro</td></tr>
<tr><td><span title='2022-11-23 19:34:42 +0100'>2022-11-23</span></td><td><a href='/guix/commit/gnu/packages/gettext.scm?id=2b151eb2868f28c098328019e24cb1d05cd19d2b'>gnu: gettext: Skip Gnulib tests that fail on GNU/Hurd.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/gettext.scm (gettext-minimal)[arguments]: In
'patch-tests' phase, arrange to not run 'test-tls'.  Adjust
'XFAIL_TESTS' flag passed to #:make-flags.
</span></span></td><td>Ludovic Courtès</td></tr>