;;; 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 (gnu installer utils)
  #:use-module (guix records)
  #:use-module (guix read-print)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-9)
  #:use-module (srfi srfi-9 gnu)
  #: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"))))

  (define-syntax-rule (G_ str) str)

  `(,(vertical-space 1)
    ,(comment (G_ ";; The list of user accounts ('root' is implicit).\n"))
    (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))))
></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/elf.scm?id=2c400ae94207b3b84fcdcaa21c122076c050d307&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-07-22 01:39:22 +0200'>2020-07-22</span></td><td><a href='/guix/commit/gnu/packages/elf.scm?id=337333c2567bdf767fdc8e04520c4bc0c8b33784'>gnu: patchelf: Update to 0.11.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/elf.scm (patchelf): Update to 0.11.

Signed-off-by: Marius Bakke &lt;marius@gnu.org&gt;
</span></span></td><td>Michael Rohleder</td></tr>
<tr><td><span title='2020-06-02 23:41:36 +0200'>2020-06-02</span></td><td><a href='/guix/commit/gnu/packages/elf.scm?id=c45431a2838644bae90613690b023019b8bce456'>gnu: libabigail: Update to 1.7.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/elf.scm (libabigail): Update to 1.7.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-05-17 20:23:18 +0300'>2020-05-17</span></td><td><a href='/guix/commit/gnu/packages/elf.scm?id=03f4c9414b0c165c856d236ee0024fdf8d54862f'>gnu: elfutils: Skip tests on powerpc.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/elf.scm (elfutils)[arguments]: Skip tests on powerpc.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-02-05 22:03:34 +0100'>2020-02-05</span></td><td><a href='/guix/commit/gnu/packages/elf.scm?id=e5fcff3190efec8a29f0c17b9c69793062f3c927'>gnu: elfutils: Update synopsis and description</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/elf.scm (elfutils): Update summaries.
  [synopsis]: Updated.
  [description]: Updated.

Signed-off-by: Marius Bakke &lt;mbakke@fastmail.com&gt;
</span></span></td><td>Mark Wielaard</td></tr>
<tr><td><span title='2019-11-11 11:00:33 +0200'>2019-11-11</span></td><td><a href='/guix/commit/gnu/packages/elf.scm?id=0d01a5a9d47781f63c7bea3f6065fb0bed9f07f8'>gnu: patchelf: Update to 0.10.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/elf.scm (patchelf): Update to 0.10.
[source]: Remove patches.
[arguments]: Remove patch/rework-for-arm phase. Add phase to modify
tests for our modified GCC package.
[native-inputs]: Add gcc:lib.
* gnu/packages/patches/patchelf-page-size.patch,
* gnu/packages/patches/patchelf-rework-for-arm.patch: Remove files.
* gnu/local.mk (dist_patch_DATA): Remove them.
</span></span></td><td>Efraim Flashner</td></tr>