04/05: talks: scheme-2016: Add OS example.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 1b7ef8d161578c5d1d14e56f50d267dc9b319cc1
Author: Ludovic Courtès <address@hidden>
Date:   Sun Sep 18 15:42:33 2016 +0900

    talks: scheme-2016: Add OS example.
---
 talks/scheme-2016/schememachine.scm |   21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/talks/scheme-2016/schememachine.scm 
b/talks/scheme-2016/schememachine.scm
new file mode 100644
index 0000000..d2cdaa9
--- /dev/null
+++ b/talks/scheme-2016/schememachine.scm
@@ -0,0 +1,21 @@
+(use-modules (gnu))
+(use-service-modules networking ssh)
+
+(operating-system
+  (host-name "schememachine")
+  (timezone "Japan")
+  (locale "en_US.utf8")
+  (bootloader (grub-configuration (device "/dev/sda")))
+  (file-systems (cons (file-system
+                        (device "my-root")
+                        (title 'label)
+                        (mount-point "/")
+                        (type "ext4"))
+                      %base-file-systems))
+  (users (cons (user-account
+                (name "alice")
+                (group "users")
+                (home-directory "/home/alice"))
+               %base-user-accounts))
+  (services (cons* (dhcp-client-service)
+                   %base-services)))