Update user profile.
[guixsd.git] / izanagi.scm
1 ;;; Copyright © 2015, 2016, 2017 David Thompson <davet@gnu.org>
2 ;;;
3 ;;; This program is free software; you can redistribute it and/or
4 ;;; modify it under the terms of the GNU General Public License as
5 ;;; published by the Free Software Foundation; either version 3 of the
6 ;;; License, or (at your option) any later version.
7 ;;;
8 ;;; This program is distributed in the hope that it will be useful,
9 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
10 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 ;;; General Public License for more details.
12 ;;;
13 ;;; You should have received a copy of the GNU General Public License
14 ;;; along with this program. If not, see
15 ;;; <http://www.gnu.org/licenses/>.
16
17 ;;; Commentary:
18 ;;
19 ;; Thinkpad X220 configuration.
20
21 (use-modules (gnu)
22 (gnu system nss)
23 (gnu system linux-initrd)
24 (guix packages)
25 (ice-9 match)
26 (srfi srfi-1))
27 (use-service-modules desktop)
28 (use-package-modules admin certs compression glib gnome man less ncurses
29 pulseaudio rsync ssh wicd xorg)
30
31 (operating-system
32 (host-name "izanagi")
33 (timezone "America/New_York")
34 (locale "en_US.UTF-8")
35 (bootloader (grub-configuration (target "/dev/sda")))
36 (file-systems (cons (file-system
37 (device "root")
38 (title 'label)
39 (mount-point "/")
40 (type "ext4"))
41 %base-file-systems))
42 (users (list (user-account
43 (name "dave")
44 (comment "David Thompson")
45 (group "users")
46 (supplementary-groups '("wheel" "netdev" "audio"
47 "video" "cdrom" "kvm"
48 "input" "dialout"))
49 (home-directory "/home/dave"))))
50 (packages (cons* adwaita-icon-theme
51 arc-theme
52 arc-icon-theme
53 htop less man-db ncurses nss-certs
54 openssh unzip rsync
55 gnome-shell-extensions
56 gnome-tweak-tool
57 %base-packages))
58 (services (cons* (gnome-desktop-service)
59 (modify-services %desktop-services
60 (guix-service-type
61 config => (guix-configuration
62 (inherit config)
63 (substitute-urls
64 (list "https://berlin.guixsd.org"
65 "https://mirror.hydra.gnu.org"
66 "https://hydra.gnu.org")))))))
67 (name-service-switch %mdns-host-lookup-nss))