;; This is an operating system configuration template
;; for a "bare bones" setup on BeagleBone Black board.

(use-modules (gnu) (gnu bootloader u-boot))
(use-service-modules networking)
(use-package-modules bootloaders screen ssh)

(operating-system
  (host-name "komputilo")
  (timezone "Europe/Berlin")
  (locale "en_US.utf8")

  ;; Assuming /dev/mmcblk1 is the eMMC, and "my-root" is
  ;; the label of the target root file system.
  (bootloader (bootloader-configuration
               (bootloader u-boot-beaglebone-black-bootloader)
               (target "/dev/mmcblk1")))

  ;; This module is required to mount the SD card.
  (initrd-modules (cons "omap_hsmmc" %base-initrd-modules))

  (file-systems (cons (file-system
                        (device (file-system-label "my-root"))
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

  ;; This is where user accounts are specified.  The "root"
  ;; account is implicit, and is initially created with the
  ;; empty password.
  (users (cons (user-account
                (name "alice")
                (comment "Bob's sister")
                (group "users")

                ;; Adding the account to the "wheel" group
                ;; makes it a sudoer.  Adding it to "audio"
                ;; and "video" allows the user to play sound
                ;; and access the webcam.
                (supplementary-groups '("wheel"
                                        "audio" "video")))
               %base-user-accounts))

  ;; Globally-installed packages.
  (packages (append (list screen openssh) %base-packages))

  (services (append (list (service dhcp-client-service-type)
                          ;; mingetty does not work on serial lines.
                          ;; Use agetty with board-specific serial parameters.
                          (agetty-service
                           (agetty-configuration
                            (extra-options '("-L"))
                            (baud-rate "115200")
                            (term "vt100")
                            (tty "ttyO0"))))
                  %base-services)))
ddf15c78fc72f6a1'>tests</a>/<a href='/guix/log/tests/file-systems.scm?id=6a4c7d311a6f6c4ab1f69506ddf15c78fc72f6a1'>file-systems.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/tests/file-systems.scm?id=6a4c7d311a6f6c4ab1f69506ddf15c78fc72f6a1&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-09-14 00:10:13 +0200'>2017-09-14</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=8f3b63b5d73c0b49139c8a20b7576732abfdeeb8'>uuid: Move tests to 'tests/uuid.scm'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/file-systems.scm ("uuid-&gt;string", "string-&gt;uuid")
("uuid", "uuid, syntax error"): Move to...
* tests/uuid.scm: ... here.  New file.
("uuid, ISO-9660, format preserved"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-14 00:10:13 +0200'>2017-09-14</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=2ed1f4a52d8bec2c18a9c92cf4e7caf93aeb40fc'>uuid: Adjust tests.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 9b336338cdc0e46a3bf7a2913c2f61cd2410c4d6.

* tests/file-systems.scm ("uuid"): Add call to 'uuid-bytevector'.
("uuid, syntax error"): Add 'dce to the expected form.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-21 22:33:07 +0100'>2017-03-21</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=278d486b0c0e3ec0378f6a2ccf6946fb176d088b'>file-systems: Do not use (gnu packages …).</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a regression introduced in
7208995426714c9fc3ad59cadc3cc0f52df0f018 whereby (gnu system
file-systems) would pull in (gnu packages …) module, which in turn
breaks when importing things like (gnu build shepherd).

* gnu/system/file-systems.scm (file-system-type-predicate): Export.
(file-system-packages): Move to...
* gnu/system/linux-initrd.scm (file-system-packages): ... here.  Add
docstring.
* gnu/services/base.scm: Use it.
* tests/file-systems.scm ("does not pull (gnu packages …)"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-04 02:13:43 +0100'>2017-02-04</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=ad167d028e97dca1937ad6ae3d89d2c4de997754'>file-systems: Remove dependency on (guix store).</a><span class='msg-avail'>...<span class='msg-tooltip'>(gnu system file-systems) is used on the "build" side since commit
5970e8e248f6327c41c83b86bb2c89be7c3b1b4e.

* gnu/system/file-systems.scm: Remove dependency on (guix store).
(%store-prefix): New procedure.
* tests/file-systems.scm ("does not pull (guix config)"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-16 23:27:23 +0100'>2017-01-16</span></td><td><a href='/guix/commit/tests/file-systems.scm?id=384344198dcaa97847e66d3dd82f279ede08d690'>file-systems: 'file-system-needed-for-boot?' is #t for parents of the store.</a><span class='msg-avail'>...<span class='msg-tooltip'>Suggested by John Darrington &lt;john@darrington.wattle.id.au&gt;.

* gnu/system/file-systems.scm (%not-slash): New variable.
(file-prefix?): New procedure.
(file-system-needed-for-boot?): Use it to check whether FS holds the
store.
* tests/file-systems.scm ("file-system-needed-for-boot?"): New test.
* gnu/tests/install.scm (%separate-store-os)[file-systems]: Remove
'needed-for-boot?' field for "/gnu".
</span></span></td><td>Ludovic Courtès</td></tr>