;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.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/>.

(define-module (gnu system images novena)
  #:use-module (gnu bootloader)
  #:use-module (gnu bootloader u-boot)
  #:use-module (gnu image)
  #:use-module (gnu packages linux)
  #:use-module (guix platforms arm)
  #:use-module (gnu services)
  #:use-module (gnu services base)
  #:use-module (gnu system)
  #:use-module (gnu system file-systems)
  #:use-module (gnu system image)
  #:use-module (srfi srfi-26)
  #:export (novena-barebones-os
            novena-image-type
            novena-barebones-raw-image))

(define novena-barebones-os
  (operating-system
    (host-name "vignemale")
    (timezone "Europe/Paris")
    (locale "en_US.utf8")
    (bootloader (bootloader-configuration
                 (bootloader u-boot-novena-bootloader)
                 (targets '("/dev/vda"))))
    (initrd-modules '())
    (kernel linux-libre-arm-generic)
    (kernel-arguments '("console=ttymxc1,115200"))
    (file-systems (cons (file-system
                          (device (file-system-label "my-root"))
                          (mount-point "/")
                          (type "ext4"))
                        %base-file-systems))))

(define novena-image-type
  (image-type
   (name 'novena-raw)
   (constructor (lambda (os)
                  (image
                   (inherit (raw-with-offset-disk-image))
                   (operating-system os)
                   (platform armv7-linux))))))

(define novena-barebones-raw-image
  (image
   (inherit
    (os+platform->image novena-barebones-os armv7-linux
                        #:type novena-image-type))
   (name 'novena-barebones-raw-image)))

;; Return the default image.
novena-barebones-raw-image
href='/guix/log/gnu/services/dns.scm?id=51c8777095ee8863943432cc71a63b6fa6c5b8c0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-11-11 20:30:53 +0800'>2019-11-11</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=6ec68c69b08a873c5896dae9f8f234e44ea45738'>services: Add knot-resolver-service-type.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2019-04-27 15:56:35 +0200'>2019-04-27</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=b8e2bd4fc89f7fd60f74949563fb834dbd8f7660'>gnu: knot: Fix typos.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2019-04-27 13:02:31 +0200'>2019-04-27</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=6cd7b1be7ea2b675e369c6cbb35b31b3c496648b'>gnu: knot: Add configuration fields.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2019-04-27 00:19:41 +0200'>2019-04-27</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=435551f0faccb4f91cadc709ffb9819d850d7e69'>services: knot: Fix configuration file generation.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-26 18:37:48 +0200'>2019-04-26</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=e379d1b5efad293951fd35920bbf142376058696'>gnu: dns: Fix configuration formating.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2019-04-25 21:44:55 +0200'>2019-04-25</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=92eb600f8a94afa36142f8f145efaa485b632433'>gnu: knot-service: Add includes field in configuration.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2018-12-04 07:16:00 +0300'>2018-12-04</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=9325533bd009070f2f4a98362ce1d3afd9af060c'>services: ddclient: Fix unrecognized keywords.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-11-06 07:16:44 +0300'>2018-11-06</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=7f860a8be150df26bdb69024f4dce2cb8acaa43a'>gnu: services: dns: Fix 'ddclient-activation'.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-08-30 01:19:47 +0300'>2018-08-30</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=8490a8346b5c8207f5798be55bea1de865b0bd42'>services: Add ddclient service.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2018-06-08 23:32:49 +0800'>2018-06-08</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=0d4c2d35aff1bb28e2c105b9d7efc8c2a12d4601'>services: dnsmasq-service-type: Add default configuration and description.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2018-06-08 23:32:49 +0800'>2018-06-08</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=c061eb587cbb8590a5cd4793b56a01560af747a8'>services: dnsmasq: Use 'negative-cache?' instead of 'no-negcache?'.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2018-06-05 20:05:31 +0800'>2018-06-05</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=97f6e9133a03f37c79e60678dd5670a805cdf693'>services: Add dnsmasq-service-type.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2017-06-21 19:29:57 +0200'>2017-06-21</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=f3853a259b9b0588f6ae4f32c5c56a77ab096e86'>gnu: services: use seconds instead of duration strings.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2017-05-27 10:40:24 +0200'>2017-05-27</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=ba69e8f7ce21a81bdd5b99fdb1cc64492443e15c'>gnu: Add knot-service-type.</a><span class='msg-avail'>...</span></td><td>Julien Lepiller</td></tr>