# GNU Guix --- Functional package management for GNU
# Copyright © 2022 Ludovic Courtès <ludo@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/>.

#
# Test 'guix style'.
#

set -e

guix style --version

tmpdir="guix-style-$$"
trap 'rm -r "$tmpdir"' EXIT

tmpfile="$tmpdir/os.scm"
mkdir "$tmpdir"
cat > "$tmpfile" <<EOF
;;; This is a header with three semicolons.
;;;

(define-module (foo bar)
  #:use-module (guix)
  #:use-module (gnu))

;; One blank line and a page break.


;; And now, the OS.
(operating-system
  (host-name "komputilo")
  (locale "eo_EO.UTF-8")

  ;; User accounts.
  (users (cons (user-account
                 (name "alice")
                 (comment "Bob's sister")
                 (group "users")

                 ;; Groups fit on one line.
                 (supplementary-groups '("wheel" "audio" "video")))
               %base-user-accounts))

  ;; The services.
  (services
   (cons (service mcron-service-type) %base-services)))
EOF

cp "$tmpfile" "$tmpfile.bak"

initial_hash="$(guix hash "$tmpfile")"

guix style -f "$tmpfile"
if test "$initial_hash" != "$(guix hash "$tmpfile")"
then
    cat "$tmpfile"
    diff -u "$tmpfile.bak" "$tmpfile"
    false
fi

# Introduce random changes and try again.
sed -i "$tmpfile" -e's/ \+/ /g'
test "$initial_hash" != "$(guix hash "$tmpfile")"

guix style -f "$tmpfile"
test "$initial_hash" = "$(guix hash "$tmpfile")"
ame='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=f6bb7e90a6ddd87877c58b03f3ec6b09c1295393'>root</a>/<a href='/guix/log/gnu?id=f6bb7e90a6ddd87877c58b03f3ec6b09c1295393'>gnu</a>/<a href='/guix/log/gnu/services?id=f6bb7e90a6ddd87877c58b03f3ec6b09c1295393'>services</a>/<a href='/guix/log/gnu/services/networking.scm?id=f6bb7e90a6ddd87877c58b03f3ec6b09c1295393'>networking.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/services/networking.scm?id=f6bb7e90a6ddd87877c58b03f3ec6b09c1295393&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-12-18 18:32:41 +0100'>2024-12-18</span></td><td><a href='/guix/commit/gnu/services/networking.scm?id=17e5ca819024bc4590c40befbbbf83cc120cd459'>services: iptables: Provide a default value.</a><span class='msg-avail'>...<span class='msg-tooltip'>There doesn't seem to be a reason to force users to write

(service iptables-service-type
         (iptables-configuration))

instead of simply

(service iptables-service-type)

This patch provides a default value for the iptables-service-type.

* gnu/services/networking.scm (iptables-service-type): Set default-value.

Change-Id: I93b6c544dfb064c7a0a999549dff61007a38f842
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2024-10-19 21:45:47 +0900'>2024-10-19</span></td><td><a href='/guix/commit/gnu/services/networking.scm?id=503919fcf01d7eb8d550df5c3993aee9a966ba9b'>services: ntp: Default to an address that supports IPv6.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/networking.scm (%ntp-servers): Replace 0.guix.pool.ntp.org with
2.guix.pool.ntp.org.

Fixes: &lt;https://issues.guix.gnu.org/71462&gt;
Change-Id: I8bf3dc1cec58e7977c5369739b8662f817eeb186
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2024-10-16 19:07:55 +0200'>2024-10-16</span></td><td><a href='/guix/commit/gnu/services/networking.scm?id=f8777ceca52b5c66fba27718b3079ffd303d0680'>Add copyright lines.</a><span class='msg-avail'>...<span class='msg-tooltip'>They are related to commit eb1515849efa3e0d3d838cb04ea87100084068a0.

* doc/guix.texi: Add copyright message.
* gnu/services/networking.scm: Add copyright message.

Change-Id: Ica510fd6e80228f124f0c084403e1dea7c9baa1b
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Nigko Yerden</td></tr>
<tr><td><span title='2024-10-14 14:08:43 +0200'>2024-10-14</span></td><td><a href='/guix/commit/gnu/services/networking.scm?id=eb1515849efa3e0d3d838cb04ea87100084068a0'>services: tor: Add support for pluggable transports.</a><span class='msg-avail'>...<span class='msg-tooltip'>Pluggable transports are programs that disguise Tor traffic, which
can be useful in case Tor is censored.  Pluggable transports
cannot be configured by #:config-file file exclusively because Tor
process is run via 'least-authority-wrapper' and cannot have access
to transport plugin, which is a separate executable (Bug#70302,
Bug#70332).

* doc/guix.texi (Networking Services): Document 'tor-transport-plugin'
data type and 'transport-plugins' option for 'tor-configuration.
* gnu/services/networking.scm: Export
'tor-configuration-transport-plugins', 'tor-transport-plugin',
'tor-transport-plugin?', 'tor-plugin-role',
'tor-plugin-protocol', and 'tor-plugin-program'.
(&lt;tor-configuration&gt;): Add 'transport-plugins' field.
(&lt;tor-transport-plugin&gt;): New variable.
(tor-configuration-&gt;torrc): Add content to 'torrc' computed-file.
(tor-shepherd-service): Add file-system-mapping(s).

Change-Id: I1b0319358778c7aee650bc843e021a6803a1cf3a
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Nigko Yerden</td></tr>
<tr><td><span title='2024-10-07 01:20:21 +0900'>2024-10-07</span></td><td><a href='/guix/commit/gnu/services/networking.scm?id=6954cc6c7a211e24b4e2ec8cd67d880318bd04f8'>services: networking: Add 'version' field to dhcp-client-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/networking.scm (&lt;dhcp-client-configuration&gt;)
[version]: New field.
(dhcp-client-shepherd-service): Use 'match-record' instead of various
accessors.  Honor the new 'version field'.  Include the version the PID file
name when a non-default version is used.
* doc/guix.texi (Networking Setup) &lt;dhcp-client-configuration&gt;
[version]: Document it.

Change-Id: I6236ae160967c95fe7a2c1785821cc9b0c183e77
</span></span></td><td>Maxim Cournoyer</td></tr>