;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jan (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 newt services)
  #:use-module (gnu installer services)
  #:use-module (gnu installer steps)
  #:use-module (gnu installer newt page)
  #:use-module (gnu installer newt utils)
  #:use-module (guix i18n)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-35)
  #:use-module (newt)
  #:export (run-services-page))

(define (run-desktop-environments-cbt-page)
  "Run a page allowing the user to choose between various desktop
environments."
  (let ((items (filter desktop-system-service? %system-services)))
    (run-checkbox-tree-page
     #:info-text (G_ "Please select the desktop(s) environment(s) you wish to \
install. If you select multiple desktops environments, you will be able to \
choose the one to use on the log-in screen.")
     #:title (G_ "Desktop environment")
     #:items items
     #:selection (map system-service-recommended? items)
     #:item->text system-service-name             ;no i18n for DE names
     #:checkbox-tree-height 9
     #:exit-button-callback-procedure
     (lambda ()
       (raise
        (condition
         (&installer-step-abort)))))))

(define (run-networking-cbt-page)
  "Run a page allowing the user to select networking services."
  (let ((items (filter (lambda (service)
                         (eq? 'networking (system-service-type service)))
                       %system-services)))
    (run-checkbox-tree-page
     #:info-text (G_ "You can now select networking services to run on your \
system.")
     #:title (G_ "Network service")
     #:items items
     #:selection (map system-service-recommended? items)
     #:item->text (compose G_ system-service-name)
     #:checkbox-tree-height 5
     #:exit-button-callback-procedure
     (lambda ()
       (raise
        (condition
         (&installer-step-abort)))))))

(define (run-network-management-page)
  "Run a page to select among several network management methods."
  (let ((title (G_ "Network management")))
    (run-listbox-selection-page
     #:title title
     #:info-text (G_ "Choose the method to manage network connections.

We recommend NetworkManager or Connman for a WiFi-capable laptop; the DHCP \
client may be enough for a server.")
     #:info-textbox-width 70
     #:listbox-height 7
     #:listbox-items (filter (lambda (service)
                               (eq? 'network-management
                                    (system-service-type service)))
                             %system-services)
     #:listbox-item->text (compose G_ system-service-name)
     #:sort-listbox-items? #f
     #:button-text (G_ "Exit")
     #:button-callback-procedure
     (lambda _
       (raise
        (condition
         (&installer-step-abort)))))))

(define (run-services-page)
  (let ((desktop (run-desktop-environments-cbt-page)))
    ;; When the user did not select any desktop services, and thus didn't get
    ;; '%desktop-services', offer network management services.
    (append desktop
            (run-networking-cbt-page)
            (if (null? desktop)
                (list (run-network-management-page))
                '()))))
il'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-09-25 10:33:04 -0400'>2023-09-25</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=d35bc00cc1c27043f212762786d89a94c16de3fe'>gnu: avr: Delay all cross compilation packages.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-09-17 16:22:03 -0400'>2023-09-17</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=a6170fcd2ba1b4b677399f048bdcd7a5701775af'>gnu: Remove extraneous imports.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-09-03 22:32:59 -0400'>2023-09-03</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=32792d2073f3096cb0710c40a7c74e5797ef0e6e'>gnu: avr-gcc: Avoid referencing gcc from the top level.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-04-06 19:11:33 +0200'>2023-04-06</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=51b8385acd6f7de668a994fe0523b3861240cd1a'>gnu: avr-gcc: Use G-expression.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-16 10:45:26 +0100'>2022-11-16</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=996f897cf17449198713b2412fa99185c0abe214'>gnu: microscheme: Update to 0.9.4.</a><span class='msg-avail'>...</span></td><td>Fabio Natali</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-11-02 00:30:59 +0530'>2020-11-02</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=197c1676d3733f6d8ce30bdc9977ba731b33ec71'>gnu: avr-toolchain: Replace functions with package variables.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2020-11-02 00:30:59 +0530'>2020-11-02</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=5a3827d43310beae73bbb069f745fc38291ca621'>gnu: avr-gcc: Update to 7.5.0.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2020-07-12 23:08:15 +0200'>2020-07-12</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=b0e7b6992f3f845e83cfbca4d700b51dba50b4d5'>gnu: Remove ".git" from "https://github/…/….git".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-13 21:07:40 +0200'>2020-05-13</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=fd96ae4a709c5509f2d78af3968d64fe805ad1ef'>gnu: avr-gcc: Fix conflicting GCC headers.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-03-01 12:52:43 +0100'>2020-03-01</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=2f3515f7369d91d8922620044f9348cc727b6c10'>gnu: avr-gcc: Fix compiler lookup paths.</a><span class='msg-avail'>...</span></td><td>Danny Milosavljevic</td></tr>
<tr><td><span title='2019-09-19 21:33:44 +0200'>2019-09-19</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=923b2b5a48de6c986cab26ee45db1f0e9aaa7269'>gnu: avr-libc: Unset CPATH to fix the build.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-09-19 21:33:44 +0200'>2019-09-19</span></td><td><a href='/guix/commit/gnu/packages/avr.scm?id=081f767e8c396949997c9c61adec0a7090c708d9'>gnu: avr-gcc-4.9: Build with GCC 5.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>