;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Joshua S. Grant <jgrant@parenthetical.io>
;;;
;;; 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)
  #:export (use-package-modules
            use-service-modules
            use-system-modules))

;;; Commentary:
;;;
;;; This composite module re-exports core parts the (gnu …) public modules.
;;;
;;; Code:

(eval-when (eval load compile)
  (begin
    (define %public-modules
      '((gnu system)
        (gnu system mapped-devices)
        (gnu system file-systems)
        (gnu system grub)                         ; 'grub-configuration'
        (gnu system pam)
        (gnu system shadow)                       ; 'user-account'
        (gnu system linux-initrd)
        (gnu system nss)
        (gnu services)
        (gnu services base)
        (gnu packages)
        (gnu packages base)
        (guix gexp)))                             ; so gexps can be used

    (for-each (let ((i (module-public-interface (current-module))))
                (lambda (m)
                  (module-use! i (resolve-interface m))))
              %public-modules)))

(define-syntax-rule (use-package-modules module ...)
  (use-modules (gnu packages module) ...))

(define-syntax-rule (use-service-modules module ...)
  (use-modules (gnu services module) ...))

(define-syntax-rule (use-system-modules module ...)
  (use-modules (gnu system module) ...))

;;; gnu.scm ends here
b1e6e537bdc19a4b19b8dc84a'>gnu</a>/<a href='/guix/log/gnu/machine.scm?id=c08b919b67dc1a0b1e6e537bdc19a4b19b8dc84a'>machine.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/machine.scm?id=c08b919b67dc1a0b1e6e537bdc19a4b19b8dc84a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-02-08 13:34:02 +0100'>2022-02-08</span></td><td><a href='/guix/commit/gnu/machine.scm?id=ab7114191d4599e36958c2ec18491618bf0cc6a9'>gnu: Fix typo.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine.scm: Fix typo in top-level comment.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>jgart</td></tr>
<tr><td><span title='2020-07-25 19:11:36 +0200'>2020-07-25</span></td><td><a href='/guix/commit/gnu/machine.scm?id=a5e2fc73760a2ae023f2e56bdbf8025971f90e64'>utils: Move &lt;location&gt; and '&amp;error-location' to (guix diagnostics).</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/utils.scm (&lt;location&gt;, source-properties-&gt;location)
(location-&gt;source-properties, &amp;error-location): Move to...
* guix/diagnostics.scm: ... here.
* gnu.scm: Adjust imports accordingly.
* gnu/machine.scm: Likewise.
* gnu/system.scm: Likewise.
* gnu/tests.scm: Likewise.
* guix/inferior.scm: Likewise.
* tests/channels.scm: Likewise.
* tests/packages.scm: Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-02-09 23:16:45 +0100'>2020-02-09</span></td><td><a href='/guix/commit/gnu/machine.scm?id=e81344428726f3dae5d2a2e7bb296f46fcde6cc5'>Update e-mail address for Jakob L. Kreuze.</a><span class='msg-avail'>...<span class='msg-tooltip'>As requested here:
&lt;https://lists.gnu.org/archive/html/guix-devel/2020-02/msg00128.html&gt;.

* .mailmap: Add an entry for Jakob.
* gnu/machine.scm, gnu/machine/digital-ocean.scm, gnu/machine/ssh.scm,
gnu/packages/admin.scm, gnu/packages/i2p.scm, gnu/packages/music.scm,
gnu/packages/web.scm, gnu/tests/reconfigure.scm, guix/scripts/deploy.scm,
guix/scripts/system/reconfigure.scm: Update their e-mail address.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-12-08 00:47:26 +0100'>2019-12-08</span></td><td><a href='/guix/commit/gnu/machine.scm?id=a1d7920861a8d6c6774149eaf939eb2636942090'>machine: Remove unnecessary record self-referencing bindings.</a><span class='msg-avail'>...<span class='msg-tooltip'>'this-machine' and 'this-machine-ssh-configuration' were useless given
that there are no thunked fields.

* gnu/machine.scm (&lt;machine&gt;)[this-machine]: Remove.
* gnu/machine/ssh.scm (&lt;machine-ssh-configuration&gt;)
[this-machine-ssh-configuration]: Remove.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-12-07 00:59:56 +0100'>2019-12-07</span></td><td><a href='/guix/commit/gnu/machine.scm?id=eaabc5e87f4e48d7bce88ca231f5fc2d554ca3d6'>machine: Add provenance tracking to each machine operating system.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine.scm (&lt;machine&gt;): Rename accessor to
'%machine-operating-system'.
(machine-operating-system): New procedure.
* doc/guix.texi (Service Reference): Mention it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-08-15 07:43:09 -0400'>2019-08-15</span></td><td><a href='/guix/commit/gnu/machine.scm?id=9c70c460a05b2bc60f3f3602f0a2dba0f79ce86c'>machine: Implement 'roll-back-machine'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine.scm (roll-back-machine, &amp;deploy-error, deploy-error?)
(deploy-error-should-roll-back)
(deploy-error-captured-args): New variable.
* gnu/machine/ssh.scm (roll-back-managed-host): New variable.
* guix/scripts/deploy.scm (guix-deploy): Roll-back systems when a
deployment fails.
</span></span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-08-06 15:48:51 -0400'>2019-08-06</span></td><td><a href='/guix/commit/gnu/machine.scm?id=d97ce20400b5d2967bfbc0e9fbfb99bbb2daed4f'>machine: Rename 'system' field.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine.scm (machine-system): Delete variable.
(machine-operating-system): New variable.
All callers changed.
* doc/guix.texi (Invoking guix deploy): Use the
'machine-operating-system' accessor rather than 'machine-system'.
</span></span></td><td>Jakob L. Kreuze</td></tr>
<tr><td><span title='2019-07-06 02:10:04 -0400'>2019-07-06</span></td><td><a href='/guix/commit/gnu/machine.scm?id=fa9edf09e992db7510c7471486dffc93e1e707e5'>gnu: Add machine type for deployment specifications.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine.scm: New file.
* gnu/machine/ssh.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
</span></span></td><td>Jakob L. Kreuze</td></tr>