Add desktop configuration.

1 files changed, 48 insertions, 0 deletions

diff --git a/desktop.scm b/desktop.scm
new file mode 100644
index 0000000..cee071b
--- /dev/null
+++ b/desktop.scm
@@ -0,0 +1,48 @@
+;;; Copyright © 2014 David Thompson <davet@gnu.org>
+;;;
+;;; This program 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.
+;;;
+;;; This program 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 this program.  If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(use-modules (gnu)
+	     (gnu services networking)
+             (gnu services avahi)
+             (gnu services dbus)
+             (gnu services ssh)
+	     (gnu services xorg)
+             (gnu packages avahi))
+
+(operating-system
+  (host-name "labrys")
+  (timezone "America/New_York")
+  (locale "en_US.UTF-8")
+  (bootloader (grub-configuration (device "/dev/sdc")))
+  (file-systems (cons (file-system
+                        (device "root")
+                        (title 'label)
+                        (mount-point "/")
+                        (type "ext4"))
+                      %base-file-systems))
+  (users (list (user-account
+                 (name "dave")
+                 (group "users")
+                 (comment "Guix is awesome")
+                 (supplementary-groups '("wheel" "audio" "video"))
+                 (home-directory "/home/dave"))))
+  (services (cons* (dhcp-client-service)
+                   (ntp-service)
+                   (lsh-service #:initialize? #t)
+		   (slim-service #:startx (xorg-start-command))
+                   (avahi-service)
+                   (dbus-service (list avahi))
+		   %base-services)))