Let there be light!

.gitignore

@@ -0,0 +1,2 @@
+*~
+current

channels.scm

@@ -0,0 +1,19 @@
+(list
+ (channel
+  (name 'guix)
+  (url "https://git.savannah.gnu.org/git/guix.git")
+  (branch "master")
+  (introduction
+   (make-channel-introduction
+    "9edb3f66fd807b096b48283debdcddccfea34bad"
+    (openpgp-fingerprint
+     "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))
+ (channel
+  (name 'nonguix)
+  (url "https://gitlab.com/nonguix/nonguix")
+  (branch "master")
+  (introduction
+   (make-channel-introduction
+    "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+    (openpgp-fingerprint
+     "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5")))))

system.scm

@@ -0,0 +1,84 @@
+;; This is an operating system configuration generated
+;; by the graphical installer.
+;;
+;; Once installation is complete, you can learn and modify
+;; this file to tweak the system configuration, and pass it
+;; to the 'guix system reconfigure' command to effect your
+;; changes.
+
+
+;; Indicate which modules to import to access the variables
+;; used in this configuration.
+(use-modules (gnu)
+	     (gnu packages linux)
+	     (nongnu packages linux))
+(use-service-modules cups desktop networking ssh xorg)
+
+(operating-system
+ (kernel (corrupt-linux linux-libre-lts #:configs '("CONFIG_MT7921E=m")))
+ (firmware (list linux-firmware))
+ (locale "en_US.utf8")
+ (timezone "America/Los_Angeles")
+ (keyboard-layout (keyboard-layout "us" "dvorak"))
+ (host-name "GuiNovo")
+
+ ;; The list of user accounts ('root' is implicit).
+ (users (cons* (user-account
+                (name "benson")
+                (comment "Benson Chu")
+                (group "users")
+                (home-directory "/home/benson")
+                (supplementary-groups '("wheel" "netdev" "audio" "video")))
+               %base-user-accounts))
+
+ ;; Packages installed system-wide.  Users can also install packages
+ ;; under their own account: use 'guix search KEYWORD' to search
+ ;; for packages and 'guix install PACKAGE' to install a package.
+ (packages (append (list (specification->package "i3-wm")
+                         (specification->package "i3status")
+                         (specification->package "dmenu")
+                         (specification->package "st")
+                         (specification->package "emacs")
+                         (specification->package "emacs-exwm")
+                         (specification->package
+                          "emacs-desktop-environment")
+                         (specification->package "nss-certs"))
+                   %base-packages))
+
+ ;; Below is the list of system services.  To search for available
+ ;; services, run 'guix system search KEYWORD' in a terminal.
+ (services
+  (append (list (service xfce-desktop-service-type)
+
+                ;; To configure OpenSSH, pass an 'openssh-configuration'
+                ;; record as a second argument to 'service' below.
+                (service openssh-service-type)
+                (service cups-service-type)
+                (set-xorg-configuration
+                 (xorg-configuration (keyboard-layout keyboard-layout))))
+
+          ;; This is the default list of services we
+          ;; are appending to.
+          %desktop-services))
+ (bootloader (bootloader-configuration
+              (bootloader grub-efi-bootloader)
+              (targets (list "/boot/efi"))
+              (keyboard-layout keyboard-layout)))
+ (swap-devices (list (swap-space
+                      (target (uuid
+                               "2652fa52-1450-48e1-b9b2-be82fb9a8df0")))))
+
+ ;; The list of file systems that get "mounted".  The unique
+ ;; file system identifiers there ("UUIDs") can be obtained
+ ;; by running 'blkid' in a terminal.
+ (file-systems (cons* (file-system
+                       (mount-point "/")
+                       (device (uuid
+                                "b49f8883-6428-4213-ae00-8d9a2de912e2"
+                                'ext4))
+                       (type "ext4"))
+                      (file-system
+                       (mount-point "/boot/efi")
+                       (device (uuid "7CFD-742B"
+                                     'fat32))
+                       (type "vfat")) %base-file-systems)))