;;; 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))))
elect 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=6e336a8721b113b76d70e033443c69e21cae012a'>root</a>/<a href='/guix/log/po?id=6e336a8721b113b76d70e033443c69e21cae012a'>po</a>/<a href='/guix/log/po/packages?id=6e336a8721b113b76d70e033443c69e21cae012a'>packages</a>/<a href='/guix/log/po/packages/POTFILES.in?id=6e336a8721b113b76d70e033443c69e21cae012a'>POTFILES.in</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/po/packages/POTFILES.in?id=6e336a8721b113b76d70e033443c69e21cae012a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-11-20 16:01:08 +0100'>2022-11-20</span></td><td><a href='/guix/commit/po/packages/POTFILES.in?id=da6c6763fa72585a1df3021781f8d33c3b64dcc8'>scripts: Use translations for guix.pot for service descriptions.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously, service descriptions appeared in both guix.pot and
packages.pot, but only translations of packages.pot were used.
Now, translations are only done with guix.pot.

This is better, because translators are more likely to translate
guix.pot, and is also easier, because files in gnu/{home/,}services
need to be in po/guix/POTFILES.in anyway and po/guix/Makevars
already acts on the 'description' keyword because of lint checkers.

* guix/scripts/home.scm (service-type-description-string):
Use translations from guix.pot.
* guix/scripts/system/search.scm (service-type-description-string)
(service-type-&gt;recutils): Likewise.
* po/packages/POTFILES.in: Move files in gnu/services to ...
* po/guix/POTFILES.in: ... here.
</span></span></td><td>pelzflorian (Florian Pelz)</td></tr>
<tr><td><span title='2021-02-12 15:11:36 +0800'>2021-02-12</span></td><td><a href='/guix/commit/po/packages/POTFILES.in?id=db6b9d2f4bc59511904e8c1412d0257675c46095'>services: Add transmission-daemon service.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/file-sharing.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
* po/packages/POTFILES.in: Add it.
* tests/services/file-sharing.scm: New file.
* Makefile.am (SCM_TESTS): Add it.
* doc/guix.texi (File-Sharing Services): New section.

Signed-off-by: 宋文武 &lt;iyzsong@member.fsf.org&gt;
</span></span></td><td>Simon South</td></tr>