refactor(systems): for easier debug, mask mcdowell

1 files changed, 51 insertions, 51 deletions

diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm
index df54eec..79541ce 100644
--- a/systems/mcdowell.scm
+++ b/systems/mcdowell.scm
@@ -1,58 +1,58 @@
-(define-module (systems mcdowell)
-  #:use-module (gnu services)		; service
-  #:use-module (gnu services guix)	; guix-home-service-type
-  #:use-module (gnu system keyboard)    ; keyboard-layout
-  #:use-module (machines portable-bios)	; bootloader-configuration*
-					; file-systems*
-					; firmware*
-					; hardware-groups
-					; initrd*
-					; kernel*
-                                        ; swap-devices*
-  #:use-module (suweren system)		; %suweren-operating-system
-  #:use-module (users id1000)		; uid1000-account
-					; uid1000-home-environment
-					; uid1000-name
-  )
+;; (define-module (systems mcdowell)
+;;   #:use-module (gnu services)		; service
+;;   #:use-module (gnu services guix)	; guix-home-service-type
+;;   #:use-module (gnu system keyboard)    ; keyboard-layout
+;;   #:use-module (machines portable-bios)	; bootloader-configuration*
+;; 					; file-systems*
+;; 					; firmware*
+;; 					; hardware-groups
+;; 					; initrd*
+;; 					; kernel*
+;;                                         ; swap-devices*
+;;   #:use-module (suweren system)		; %suweren-operating-system
+;;   #:use-module (users id1000)		; uid1000-account
+;; 					; uid1000-home-environment
+;; 					; uid1000-name
+;;   )
 
-;; string
-(define host-name*
-  "mcdowell")
+;; ;; string
+;; (define host-name*
+;;   "mcdowell")
 
-;; (record user-account)
-(define users*
-  (list uid1000-account))
+;; ;; (record user-account)
+;; (define users*
+;;   (list uid1000-account))
 
-;; record operating-system
-(define (operating-system*)
-  (use-modules (machines portable-bios)
-	       (suweren system))
-  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))
+;; ;; record operating-system
+;; (define (operating-system*)
+;;   (use-modules (machines portable-bios)
+;; 	       (suweren system))
+;;   (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))
 
-	 (guix-home (service guix-home-service-type
-			     home-environments))
+;; 	 (guix-home (service guix-home-service-type
+;; 			     home-environments))
 
-	 (keyboard-layout* (keyboard-layout "pl"))
-	 (services* (list guix-home))
-	 (timezone* "Europe/Warsaw")
-	 ;; (locale* "en_US.utf8")
-	 )
-    ((@ (gnu system) operating-system)
-     (inherit %suweren-operating-system)
-     (kernel kernel*)
-     (bootloader (bootloader-configuration* keyboard-layout*))
-     (keyboard-layout keyboard-layout*)
-     (initrd initrd*)
-     (firmware firmware*)
-     (host-name host-name*)
-     (file-systems (file-systems* host-name*))
-     (swap-devices (swap-devices* host-name*))
-     (users users*)
-     (timezone timezone*)
-     ;; locale*
-     (services services*))))
+;; 	 (keyboard-layout* (keyboard-layout "pl"))
+;; 	 (services* (list guix-home))
+;; 	 (timezone* "Europe/Warsaw")
+;; 	 ;; (locale* "en_US.utf8")
+;; 	 )
+;;     ((@ (gnu system) operating-system)
+;;      (inherit %suweren-operating-system)
+;;      (kernel kernel*)
+;;      (bootloader (bootloader-configuration* keyboard-layout*))
+;;      (keyboard-layout keyboard-layout*)
+;;      (initrd initrd*)
+;;      (firmware firmware*)
+;;      (host-name host-name*)
+;;      (file-systems (file-systems* host-name*))
+;;      (swap-devices (swap-devices* host-name*))
+;;      (users users*)
+;;      (timezone timezone*)
+;;      ;; locale*
+;;      (services services*))))
 
-(define-public operating-system*
-  (operating-system*))
+;; (define-public operating-system*
+;;   (operating-system*))
 
-operating-system*
+;; operating-system*