;;; 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))))
026ef7143d36036570e7e027ab85b64'>root</a>/<a href='/guix/log/gnu?id=5dbe7aa92026ef7143d36036570e7e027ab85b64'>gnu</a>/<a href='/guix/log/gnu/packages?id=5dbe7aa92026ef7143d36036570e7e027ab85b64'>packages</a>/<a href='/guix/log/gnu/packages/graphviz.scm?id=5dbe7aa92026ef7143d36036570e7e027ab85b64'>graphviz.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/gnu/packages/graphviz.scm?id=5dbe7aa92026ef7143d36036570e7e027ab85b64&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-07-08 19:46:07 +0200'>2018-07-08</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=3ccad0f3daf413573647f99c54d0f45a5f53a554'>gnu: python-graphviz: Update to 0.8.4.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-05-17 01:00:50 -0400'>2018-05-17</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=539bf8f2c071b53834829259bb3fabf0390c5dc6'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-05-17 01:01:58 +0200'>2018-05-17</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=1df4d1b4d9d25d017fbda08da911303d5a40ac91'>gnu: python-graphviz: Update to 0.8.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-04-10 00:42:22 -0400'>2018-04-10</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=f89aa1521af69b0e1a1350c2380579788b0f8945'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-04-04 14:39:39 +0200'>2018-04-04</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=d56ecf623ec26134d4b1d47017f3530160234143'>gnu: Add dot2tex.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2018-03-29 17:34:41 +0200'>2018-03-29</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=5576cfabf3485e0cf794cc3de085a3578151ee64'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-03-25 00:36:35 +0100'>2018-03-25</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=4bd76eac1100dc9c8c9bc97f3ea97d1fdbdeb595'>gnu: python-graphviz: Update to 0.8.2.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-02-20 16:06:08 +0100'>2018-02-20</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=c0ad84ff1e74d2c69682fae9ed05bff88b20c4ab'>gnu: gts: Update phase style.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-11-07 21:03:15 +0100'>2017-11-07</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=2b295f5a2fc221020dd4ae8e090bd19a7e017872'>gnu: Add python-pydot.</a><span class='msg-avail'>...</span></td><td>Gábor Boskovits</td></tr>
<tr><td><span title='2017-10-23 14:49:31 +0200'>2017-10-23</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=6a4ad78dd6ec24590c3e26d410b1e995765f8767'>gnu: python-graphviz: Update to 0.8.1.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-10-10 23:09:40 +0200'>2017-10-10</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=6414410d7a2306ab6712801666aba973bc18ecac'>gnu: Add python-graphviz.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-10-05 00:45:38 +0200'>2017-10-05</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=7716ccd59c0c17f9399d73abec05001b775d100b'>Merge branch 'master' into staging</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-10-03 17:07:54 +0200'>2017-10-03</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=d109b1e85c5c1438e66dfc05ea4a018418edaf19'>Update e-mail for Theodoros Foradis.</a><span class='msg-avail'>...</span></td><td>Theodoros Foradis</td></tr>
<tr><td><span title='2017-07-14 15:39:26 +0530'>2017-07-14</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=cca9c756613201baec6655b4d7376727179e9951'>gnu: graphviz: Update to 2.40.1.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2017-07-14 15:39:08 +0530'>2017-07-14</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=2170cc76d4b2c47ccb831a706e8f40669c156e60'>gnu: graphviz: Use modify-phases.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2017-01-01 20:06:43 -0500'>2017-01-01</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=abdd28e8c1e5b96c035b4e0a364a1726372b2055'>gnu: Add xdot.</a><span class='msg-avail'>...</span></td><td>Theodoros Foradis</td></tr>