;;; 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 user)
  #:use-module (guix records)
  #:use-module (srfi srfi-1)
  #:export (<user>
            user
            make-user
            user-name
            user-real-name
            user-group
            user-home-directory
            user-password

            users->configuration))

(define-record-type* <user>
  user make-user
  user?
  (name            user-name)
  (real-name       user-real-name
                   (default ""))
  (group           user-group
                   (default "users"))
  (password        user-password)
  (home-directory  user-home-directory))

(define (users->configuration users)
  "Return the configuration field for USERS."
  (define (user->sexp user)
    `(user-account
      (name ,(user-name user))
      (comment ,(user-real-name user))
      (group ,(user-group user))
      (home-directory ,(user-home-directory user))
      (supplementary-groups '("wheel" "netdev"
                              "audio" "video"))))

  `((users (cons*
            ,@(filter-map (lambda (user)
                            ;; Do not emit a 'user-account' form for "root".
                            (and (not (string=? (user-name user) "root"))
                                 (user->sexp user)))
                          users)
            %base-user-accounts))))
='/guix/log/tests?id=80c4bfa6402a1d1a080167701df4189266fb857a'>tests</a>/<a href='/guix/log/tests/channels.scm?id=80c4bfa6402a1d1a080167701df4189266fb857a'>channels.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/channels.scm?id=80c4bfa6402a1d1a080167701df4189266fb857a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-01-20 17:57:14 +0100'>2019-01-20</span></td><td><a href='/guix/commit/tests/channels.scm?id=1fafc383b1f04fcdaa49941f5bb64ac3008cfad8'>inferior: 'gexp-&gt;derivation-in-inferior' honors EXP's load path.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously the imported modules and extensions of EXP would be missing
from the load path of 'guix repl'.

* guix/inferior.scm (gexp-&gt;derivation-in-inferior)[script]: New
variable.
[trampoline]: Write (primitive-load #$script) to PIPE.  Add #$output.
* tests/channels.scm ("channel-instances-&gt;manifest")[depends?]: Check
for requisites rather than direct references.
Adjust callers accordingly.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-01-20 17:57:14 +0100'>2019-01-20</span></td><td><a href='/guix/commit/tests/channels.scm?id=ed75bdf35ca494496cdbc7a06b414e1f08e70cac'>channels: Don't pull from the same channel more than once.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previous 'channel-instance-&gt;manifest' would call
'latest-channel-derivation', which could trigger another round of
'latest-repository-commit' for no good reason.

* guix/channels.scm (resolve-dependencies): New procedure.
(channel-instance-derivations)[edges]: New variable.
[instance-&gt;derivation]: New procedure.
* tests/channels.scm (make-instance): Use 'checkout-&gt;channel-instance'
instead of 'channel-instance'.
("channel-instances-&gt;manifest"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-12-09 13:55:22 +0100'>2018-12-09</span></td><td><a href='/guix/commit/tests/channels.scm?id=af12790bdd3805bbd7bca2b7c1d9045666f377eb'>guix: Add support for channel dependencies.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/channels.scm (&lt;channel-metadata&gt;): New record.
(read-channel-metadata, channel-instance-dependencies): New procedures.
(latest-channel-instances): Include channel dependencies; add optional
argument PREVIOUS-CHANNELS.
(channel-instance-derivations): Build derivation for additional channels and
add it as dependency to the channel instance derivation.
* doc/guix.texi (Channels): Add subsection "Declaring Channel Dependencies".
* tests/channels.scm: New file.
* Makefile.am (SCM_TESTS): Add it.
</span></span></td><td>Ricardo Wurmus</td></tr>