-*- mode: org -*-

[[https://www.gnu.org/software/guix/][GNU Guix]] (IPA: /ɡiːks/) is a purely functional package manager, and
associated free software distribution, for the [[https://www.gnu.org/gnu/gnu.html][GNU system]].  In addition
to standard package management features, Guix supports transactional
upgrades and roll-backs, unprivileged package management, per-user
profiles, and garbage collection.

It provides [[https://www.gnu.org/software/guile/][Guile]] Scheme APIs, including a high-level embedded
domain-specific languages (EDSLs) to describe how packages are to be
built and composed.

GNU Guix can be used on top of an already-installed GNU/Linux distribution, or
it can be used standalone (we call that “Guix System”).

Guix is based on the [[https://nixos.org/nix/][Nix]] package manager.


* Requirements

GNU Guix currently depends on the following packages:

  - [[https://gnu.org/software/guile/][GNU Guile 2.2.x]]
  - [[https://notabug.org/cwebber/guile-gcrypt][Guile-Gcrypt]] 0.1.0 or lat</td></tr></table>
<table class='tabs'><tr><td>
<a class='active' href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=64aafe4bc50a39ade66674b487ebc5061905748a'>refs</a><a href='/guix/log/'>log</a><a href='/guix/tree/?id=64aafe4bc50a39ade66674b487ebc5061905748a'>tree</a><a href='/guix/commit/?id=64aafe4bc50a39ade66674b487ebc5061905748a'>commit</a><a href='/guix/diff/?id=64aafe4bc50a39ade66674b487ebc5061905748a'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/'>
<input type='hidden' name='id' value='64aafe4bc50a39ade66674b487ebc5061905748a'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='content'><div id='summary'><pre>
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Julien Lepiller &lt;julien@lepiller.eu&gt;
;;; Copyright © 2020 Pierre Langlois &lt;pierre.langlois@gmx.com&gt;
;;; Copyright © 2021 Maxime Devos &lt;maximedevos@telenet.be&gt;
;;; Copyright © 2022 Remco van &apos;t Veer &lt;remco@remworks.net&gt;
;;;
;;; 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 &lt;http://www.gnu.org/licenses/&gt;.

(define-module (gnu services dns)
  #:use-module (gnu services)
  #:use-module (gnu services configuration)
  #:use-module (gnu services shepherd)
  #:use-module (gnu system shadow)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages dns)
  #:use-module (guix packages)
  #:use-module (guix records)
  #:use-module (guix gexp)
  #:use-module (guix modules)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-35)
  #:use-module (ice-9 match)
  #:use-module (ice-9 regex)
  #:export (knot-service-type
            knot-acl-configuration
            knot-key-configuration
            knot-keystore-configuration
            knot-zone-configuration
            knot-remote-configuration
            knot-policy-configuration
            knot-configuration
            define-zone-entries
            zone-file
            zone-entry

            knot-resolver-service-type
            knot-resolver-configuration

            dnsmasq-service-type
            dnsmasq-configuration))

;;;
;;; Knot DNS.
;;;

(define-record-type* &lt;knot-key-configuration&gt;
  knot-key-configuration make-knot-key-configuration
  knot-key-configuration?
  (id        knot-key-configuration-id
             (default &quot;&quot;))
  (algorithm knot-key-configuration-algorithm
             (default #f)); one of #f, or an algorithm name
  (secret    knot-key-configuration-secret
             (default &quot;&quot;)))

(define-record-type* &lt;knot-acl-configuration&gt;
  knot-acl-configuration make-knot-acl-configuration
  knot-acl-configuration?
  (id      knot-acl-configuration-id
           (default &quot;&quot;))
  (address knot-acl-configuration-address
           (default &apos;()))
  (key     knot-acl-configuration-key
           (default &apos;()))
  (action  knot-acl-configuration-action
           (default &apos;()))
  (deny?   knot-acl-configuration-deny?
           (default #f)))

(define-record-type* &lt;zone-entry&gt;
  zone-entry make-zone-entry
  zone-entry?
  (name  zone-entry-name
         (default &quot;@&quot;))
  (ttl   zone-entry-ttl
         (default &quot;&quot;))
  (class zone-entry-class
         (default &quot;IN&quot;))
  (type  zone-entry-type
         (default &quot;A&quot;))
  (data  zone-entry-data
         (default &quot;&quot;)))

(define-record-type* &lt;zone-file&gt;
  zone-file make-zone-file
  zone-file?
  (entries zone-file-entries
           (default &apos;()))
  (origin  zone-file-origin
           (default &quot;&quot;))
  (ns      zone-file-ns
           (default &quot;ns&quot;))
  (mail    zone-file-mail
           (default &quot;hostmaster&quot;))
  (serial  zone-file-serial
           (default 1))
  (refresh zone-file-refresh
           (default (* 12 3600)))
  (retry   zone-file-retry
           (default (* 15 60)))
  (expiry  zone-file-expiry
           (default (* 2 7 24 3