;;; 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 utils)
  #:use-module (ice-9 receive)
  #:use-module (newt)
  #:export (screen-columns
            screen-rows

            destroy-form-and-pop
            set-screen-size!))

;; Number of columns and rows of the terminal.
(define screen-columns (make-parameter 0))
(define screen-rows    (make-parameter 0))

(define (destroy-form-and-pop form)
  "Destroy the given FORM and pop the current window."
  (destroy-form form)
  (pop-window))

(define (set-screen-size!)
  "Set the parameters 'screen-columns' and 'screen-rows' to the number of
columns and rows respectively of the current terminal."
  (receive (columns rows)
      (screen-size)
    (screen-columns columns)
    (screen-rows rows)))
='form'><form class='right' method='get' action='/guix/log/tests/openpgp.scm'>
<input type='hidden' name='id' value='de646bd5da810b8c062de1326ac75fd25d6bba57'/><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=de646bd5da810b8c062de1326ac75fd25d6bba57'>root</a>/<a href='/guix/log/tests?id=de646bd5da810b8c062de1326ac75fd25d6bba57'>tests</a>/<a href='/guix/log/tests/openpgp.scm?id=de646bd5da810b8c062de1326ac75fd25d6bba57'>openpgp.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/tests/openpgp.scm?id=de646bd5da810b8c062de1326ac75fd25d6bba57&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-12-22 10:53:19 +0100'>2021-12-22</span></td><td><a href='/guix/commit/tests/openpgp.scm?id=9ebc9ca070a21ba0aeb3f61202a8071bb250ccc8'>tests: Move keys into ./tests/keys/ and add a third ed25519 key.</a><span class='msg-avail'>...</span></td><td>Attila Lendvai</td></tr>
=57ab9536db20f98a36aeb25972137fbd752686cc'>nls: Update translations.</a></td><td>Florian Pelz</td></tr>
<tr><td><span title='2023-07-31 21:08:46 +0200'>2023-07-31</span></td><td><a href='/guix/commit/po/packages?id=39fbc041f92489ec30075a85937c8a38723752dc'>nls: Update translations.</a></td><td>Florian Pelz</td></tr>
<tr><td><span title='2023-06-30 14:26:07 +0200'>2023-06-30</span></td><td><a href='/guix/commit/po/packages?id=8af22b493199a17f46351c2f3d9f6ee759e48564'>nls: Update translations.</a><span class='msg-avail'>...</span></td><td>Florian Pelz</td></tr>
<tr><td><span title='2023-05-31 17:23:21 +0200'>2023-05-31</span></td><td><a href='/guix/commit/po/packages?id=8e9e6a6482f3ba98d1cdcad344ee488e8751fee7'>nls: Update translations.</a><span class='msg-avail'>...</span></td><td>Florian Pelz</td></tr>
<tr><td><span title='2023-03-07 21:14:57 +0100'>2023-03-07</span></td><td><a href='/guix/commit/po/packages?id=d333958763b0840c4cd895601b079b68358a6a46'>nls: Update translations.</a></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2023-02-26 01:00:00 +0100'>2023-02-26</span></td><td><a href='/guix/commit/po/packages?id=4775460ba9a60c3c09966216da10686a70b8fadb'>nls: Fix more Texinfo Italiano.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2023-02-03 18:58:09 +0100'>2023-02-03</span></td><td><a href='/guix/commit/po/packages?id=b5a3e745f9f30899655aa15144c248e0292e8b1c'>gnu: Remove key-mon.scm.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2023-01-05 08:14:55 +0100'>2023-01-05</span></td><td><a href='/guix/commit/po/packages?id=dc7eb6f07ae982b4c9d083cfb10f72cb031c0424'>nls: Update translations.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2022-12-04 22:25:23 +0100'>2022-12-04</span></td><td><a href='/guix/commit/po/packages?id=2e75b328b6bbdadbffe5b643a4891b5026a0defd'>nls: Update translations.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
title='2016-03-02 14:47:07 +0100'>2016-03-02</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=442a6ff5eae094f1fd4e09241a2f35c33ab908da'>tests: Disable grafts by default.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-02-01 08:59:13 +0100'>2016-02-01</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=47c0f92c37dc7d50d9d4598ce5b91c4cdfec6ed1'>guix build: Add '--with-input'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-10-28 08:40:16 -0400'>2015-10-28</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=34a1783fc1498d7150210da22dd7804d288438b3'>scripts: build: Add --file option.</a><span class='msg-avail'>...</span></td><td>David Thompson</td></tr>
<tr><td><span title='2015-05-02 23:15:40 -0500'>2015-05-02</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=2cdfe13deaf3d959e1ecb3a207cdbc28985e0e79'>guix: build: Add transitive source building.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2014-11-30 18:54:07 +0100'>2014-11-30</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=16eb115ef4986f319e6aebb04cefce12bc851e01'>guix: scripts: Add GUIX_BUILD_OPTIONS environment handling.</a><span class='msg-avail'>...</span></td><td>nebuli</td></tr>
<tr><td><span title='2014-08-27 00:27:12 +0200'>2014-08-27</span></td><td><a href='/guix/commit/tests/guix-build.sh?id=af9142dce07c8b5055b2306f330c32ed7f562458'>tests: Fix typo in guix-build.sh.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>