add lynn's channel (might not need?)

.gitignore

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

channels.scm

@@ -7,6 +7,15 @@
             "9edb3f66fd807b096b48283debdcddccfea34bad"
             (openpgp-fingerprint
               "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))
+  (channel
+   (name 'artoria)
+   (url "https://git.bloodyno.se/lynn/artoria.git")
+   (branch "main")
+   (introduction
+    (make-channel-introduction
+     "56579fce18ab54c21442a98d923bd2bc6844d321"
+     (openpgp-fingerprint
+      "FE30 E8F6 522D 0615 35E0 E449 55E7 97F6 31DD A03C"))))
       (channel
         (name 'nonguix)
         (url "https://gitlab.com/nonguix/nonguix")
@@ -17,7 +26,7 @@
             (openpgp-fingerprint
               "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))
       (channel
-	(name 'michael_atlas)
+	(name 'michal_atlas)
 	(url "https://git.sr.ht/~michal_atlas/guix-channel")
 	(branch "master")
 	;;(introduction
@@ -26,4 +35,5 @@
 	;;    (openpgp-fingerprint
 	;;      "")
 	;;    ))
-	))
+	)
+)

dconf.ini

@@ -0,0 +1,2 @@
+[/]
+idle-delay=uint32 0

home-configuration.scm

@@ -25,7 +25,10 @@
 (define (file-fetch url hash)
   (with-store store
     (run-with-store store
-     (url-fetch url 'sha256 (base64-decode hash)))))
+		    (url-fetch url 'sha256
+			       ; hash
+			       (base64-decode hash)
+			       ))))
 
 (home-environment
   ;; Below is the list of packages that will show up in your
@@ -45,7 +48,8 @@
 		      `(
 			(".face" ,(file-fetch 
 				   "https://marq42.xyz/mir-avatar-picrew-3.png"
-				    "cf5ck8db4d5n24drdnv77wx1liiqi6an"
+				   ;; get below with `guix download URL --format=base64` - this took ages to work out
+				    "Psx4J7+7mMKqpsT/rl/Iv/XQnZlTJ1WSMpswuNDjv38="
 				    ))))
       (service home-dconf-load-service-type
 	       #~`((org/gnome/shell

system.scm

@@ -11,7 +11,8 @@
 ;; used in this configuration.
 (use-modules 
   (gnu)
-  (nongnu packages linux))
+  (nongnu packages linux)
+  (nongnu system linux-initrd))
 (use-service-modules
   cups
   desktop
@@ -21,12 +22,14 @@
 
 (operating-system
   (kernel linux)
+  (initrd microcode-initrd)
   (firmware (list linux-firmware))
   (locale "en_US.utf8")
   (timezone "America/Anchorage")
   (keyboard-layout (keyboard-layout "us"))
   (host-name "starscream")
 
+
   ;; The list of user accounts ('root' is implicit).
   (users (cons* (user-account
 		  (name "mir")
@@ -44,6 +47,8 @@
 			  (specification->package "emacs")
 			  (specification->package "eza")
 			  (specification->package "git")
+			  (specification->package "gparted")
+			  (specification->package "firefox")
 			  ;; (specification->package "nss-certs") ;removed because version conflict
 			  )
 		    %base-packages))
@@ -51,37 +56,67 @@
   ;; Below is the list of system services.  To search for available
   ;; services, run 'guix system search KEYWORD' in a terminal.
   (services
-   (append (list (service gnome-desktop-service-type)
+    (append
+      (modify-services %desktop-services
+		       (guix-service-type
+			 config => (guix-configuration
+				     (inherit config)
+				     (authorized-keys
+				       (append (list 
+						 (local-file "./unikey.txt"))
+					       %default-authorized-guix-keys))
+
+				     (build-machines (list
+						       #~(build-machine
+							   (name "192.168.1.3") ; unicron
+							   (systems (list "x86_64-linux" "1686-linux"))
+							   (host-key "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIALuQ9g+xYE7Wu5o+8GjtJXLEfOaJwgURMVaJIDb0e8T")
+							   (user "root")
+							   (speed 2.) ; incredibly fast :3
+							   ))		  
+						     )
+				     )))
+      (list (service gnome-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))))
+	      (xorg-configuration (keyboard-layout keyboard-layout)))
 
+	    )
       ;; This is the default list of services we
       ;; are appending to.
-           %desktop-services))
+      ;%desktop-services ; already modified above?
+      ))
   (bootloader (bootloader-configuration
 		(bootloader grub-efi-bootloader)
 		(targets (list "/boot/efi"))
 		(keyboard-layout keyboard-layout)))
   (swap-devices (list (swap-space
-                        (target (uuid
-                                 "dc1220de-fbc4-4008-86d1-5c9b152cc32c")))))
+			(target 
+			 ; (uuid
+			 ;   "dc1220de-fbc4-4008-86d1-5c9b152cc32c")
+			 (file-system-label "swap")
+				))))
 
   ;; 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 "/boot/efi")
-                         (device (uuid "67E3-17ED"
+			 (device (uuid ;"67E3-17ED"
+				   "FBB5-2030"
 				   'fat32))
 			 (type "vfat"))
 		       (file-system
 			 (mount-point "/")
-                         (device (uuid
-                                  "39ec24ba-7c1f-49ff-9af6-57ace91cfba5"
-                                  'ext4))
+			 (device
+			   (file-system-label "guix-root")
+			   ;(uuid
+			   ;  "25b6c953-f92e-47df-baf0-6a80bccba45f" 
+			   ;  'ext4)
+			   )
 			 (type "ext4")) %base-file-systems)))
+

unikey.txt

@@ -0,0 +1,7 @@
+(public-key 
+ (ecc 
+  (curve Ed25519)
+  (q #E175C2683B75DE142F39AA7EA7CEDF1E939A80F44DBDC35479BFA81EB541F125#)
+  )
+ )
+