guix-config: Init

2018-03-27 10:55:07 +05:30 · 2018-03-27 10:55:07 +05:30 · ff7b7b21ad
parent e37e83adc7
commit ff7b7b21ad
1 changed files with 140 additions and 0 deletions
--- a/.guix-config/config.scm
+++ b/.guix-config/config.scm
@ -0,0 +1,140 @@
+;; This is an operating system configuration template
+;; for a "desktop" setup without full-blown desktop
+;; environments.
+
+(use-modules (gnu)
+             (gnu packages linux)
+             (gnu packages tls)
+             (gnu system nss)
+             (guix build-system trivial)
+             (guix download)
+             (guix git-download)
+             (gnu services xorg)
+             ((guix licenses) #:prefix license:)
+             (guix packages)
+             (srfi srfi-1))
+
+(use-service-modules desktop)
+;; TODO: Remove ratpoinson, wm
+(use-package-modules bootloaders certs ratpoison suckless wm)
+
+(define (linux-nonfree-urls version)
+  "Return a list of URLs for Linux-Nonfree VERSION."
+  (list (string-append
+         "https://www.kernel.org/pub/linux/kernel/v4.x/"
+         "linux-" version ".tar.xz")))
+
+(define-public linux-nonfree
+  (package
+    (inherit linux-libre)
+    (name "linux-nonfree")
+    (source
+     ;; (origin
+     ;;  (method url-fetch)
+     ;;  (uri (linux-nonfree-urls
+     ;;        (package-version linux-libre)))
+     ;;  (sha256
+     ;;   (base32
+     ;;    "144gd7f7qpzcwj0yyj75cdfj6b1a9vk8s6qc3pg61j10div2gvf8")))
+     (local-file "/linux.tar.xz"))))
+
+(define-public linux-nonfree-firmware
+  (let ((version "0.0.0")
+        (commit "6d5131107f2ba67a13f469ac770a55f101ba654d"))
+    (package
+     (name "linux-nonfree-firmware")
+     (version version)
+     (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "git://git.kernel.org/pub/scm/linux/kernel/git/firmware/linux-firmware.git")
+                    (commit commit)))
+              (sha256
+               (base32
+                "0nql7rqkx064lsw5bh6n29yfdxmp3hl4nqgp1fxdb4ys76awchg3"))))
+     (build-system trivial-build-system)
+     (arguments
+      `(#:modules ((guix build utils))
+                #:builder (begin
+                          (use-modules (guix build utils))
+                          (let ((source (assoc-ref %build-inputs "source"))
+                                (destination (string-append %output "/lib/firmware")))
+                            (mkdir-p destination)
+                            (copy-recursively source destination #:follow-symlinks? #t)
+                            #t))))
+     (home-page "")
+     (synopsis "Non-free firmware for the Linux kernel")
+     (description "Non-free firmware for the Linux kernel")
+     (license #f))))
+
+;; Use the "desktop" services, which include the X11
+;; log-in service, networking with Wicd, and more.
+(define %my-services
+  (modify-services
+   %desktop-services
+   (slim-service-type config =>
+                      (slim-configuration
+                       (inherit config)
+                       (auto-login? #f)
+                       ;; TODO: Can't slim pre-fill the username?
+                       (default-user "ambrevar")))))
+
+(operating-system
+ (host-name "mimimi")
+ (timezone "Asia/Kolkata")
+ (locale "en_US.utf8")
+
+ ;; Use the UEFI variant of GRUB with the EFI System
+ ;; Partition mounted on /boot/efi.
+ ;; If generating an image to a USB stick, use -bios- instead.
+ (bootloader (bootloader-configuration
+              (bootloader grub-efi-bootloader)
+              (target "/boot/efi")))
+
+ (kernel linux-nonfree)
+ (kernel-arguments '("rootwait"))       ; TODO: Do we need this?
+ ;; https://unix.stackexchange.com/questions/67199/whats-the-point-of-rootwait-rootdelay
+ (firmware (cons* linux-nonfree-firmware %base-firmware))
+
+ (initrd-modules (append (list "shpchp")
+                         %base-initrd-modules))
+
+ ;; Assume the target root file system is labelled "guixsd",
+ ;; and the EFI System Partition is specified by its UUID.
+ (file-systems (cons* (file-system
+                       (device "guixsd")
+                       (title 'label)
+                       (mount-point "/")
+                       (type "ext4"))
+                      (file-system
+                       (device "home")
+                       (title 'label)
+                       (mount-point "/mnt")
+                       (type "ext4"))
+                      (file-system
+                       (device (uuid "8AC2-4252" 'fat))
+                       (title 'uuid)
+                       (mount-point "/boot/efi")
+                       (type "vfat"))
+                      %base-file-systems))
+
+ (users (cons* (user-account
+                (name "ambrevar")
+                (group "users")
+                (supplementary-groups '("wheel" "netdev" ; netdev is needed for networking.
+                                        "audio" "video"))
+                (home-directory "/home/ambrevar"))
+               ;; TODO: Mount dedicated home partition.
+               %base-user-accounts))
+
+ ;; Add a bunch of window managers; we can choose one at
+ ;; the log-in screen with F1.
+ ;; TODO: Remove i3-wm i3status dmenu ratpoison
+ (packages (cons* ratpoison i3-wm i3status dmenu ;window managers
+                  nss-certs                      ;for HTTPS access
+                  %base-packages))
+
+ (services %my-services)
+
+ ;; Allow resolution of '.local' host names with mDNS.
+ (name-service-switch %mdns-host-lookup-nss))