mirror of
				https://codeberg.org/hako/Rosenthal.git
				synced 2025-11-04 03:34:37 +00:00 
			
		
		
		
	utils: counter-stop: Remove unneeded settings.
* rosenthal/utils/counter-stop.scm (%rosenthal-base-packages): Remove curl, mosh, unzip and zstd. (%rosenthal-base-services): Remove ntp-service-type, openssh-service-type and rngd-service.
This commit is contained in:
		
							parent
							
								
									1c1b79d2f1
								
							
						
					
					
						commit
						06cf49842f
					
				@ -56,14 +56,6 @@
 | 
				
			|||||||
  (curve Ed25519)
 | 
					  (curve Ed25519)
 | 
				
			||||||
  (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
 | 
					  (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
;; https://guix.tobias.gr/signing-key.pub
 | 
					 | 
				
			||||||
(define %guix-authorized-key-tobias
 | 
					 | 
				
			||||||
  (plain-file "tobias.pub" "
 | 
					 | 
				
			||||||
(public-key
 | 
					 | 
				
			||||||
 (ecc
 | 
					 | 
				
			||||||
  (curve Ed25519)
 | 
					 | 
				
			||||||
  (q #E21911E159DB6D031A763509A255B054360A4A96F5668CBBAC48052E67D274D3#)))"))
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
;; Procedures
 | 
					;; Procedures
 | 
				
			||||||
(define (normalize-package pkg)
 | 
					(define (normalize-package pkg)
 | 
				
			||||||
  (if (package? pkg)
 | 
					  (if (package? pkg)
 | 
				
			||||||
@ -95,8 +87,7 @@
 | 
				
			|||||||
(define %rosenthal-default-kernel-arguments
 | 
					(define %rosenthal-default-kernel-arguments
 | 
				
			||||||
  `(,@(delete "nosmt=force"
 | 
					  `(,@(delete "nosmt=force"
 | 
				
			||||||
              %kicksecure-kernel-arguments)
 | 
					              %kicksecure-kernel-arguments)
 | 
				
			||||||
    "net.ifnames=0"
 | 
					    "net.ifnames=0"))
 | 
				
			||||||
    "nmi_watchdog=0"))
 | 
					 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define %rosenthal-default-keyboard-layout
 | 
					(define %rosenthal-default-keyboard-layout
 | 
				
			||||||
  (keyboard-layout "us" "dvorak"
 | 
					  (keyboard-layout "us" "dvorak"
 | 
				
			||||||
@ -130,11 +121,7 @@
 | 
				
			|||||||
                 %base-file-systems)))
 | 
					                 %base-file-systems)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define %rosenthal-base-packages
 | 
					(define %rosenthal-base-packages
 | 
				
			||||||
  (let ((to-add    (list curl
 | 
					  (let ((to-add (list nss-certs))
 | 
				
			||||||
                         mosh
 | 
					 | 
				
			||||||
                         nss-certs
 | 
					 | 
				
			||||||
                         unzip
 | 
					 | 
				
			||||||
                         zstd))
 | 
					 | 
				
			||||||
        (to-remove (list bash-completion
 | 
					        (to-remove (list bash-completion
 | 
				
			||||||
                         info-reader
 | 
					                         info-reader
 | 
				
			||||||
                         mg
 | 
					                         mg
 | 
				
			||||||
@ -147,15 +134,7 @@
 | 
				
			|||||||
    (append to-add (lset-difference eqv? %base-packages to-remove))))
 | 
					    (append to-add (lset-difference eqv? %base-packages to-remove))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define %rosenthal-base-services
 | 
					(define %rosenthal-base-services
 | 
				
			||||||
  (cons* (service ntp-service-type)
 | 
					  (cons* (modify-services %base-services
 | 
				
			||||||
 | 
					 | 
				
			||||||
         (service openssh-service-type
 | 
					 | 
				
			||||||
                  (openssh-configuration
 | 
					 | 
				
			||||||
                   (permit-root-login 'prohibit-password)))
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
         (rngd-service)
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
         (modify-services %base-services
 | 
					 | 
				
			||||||
           (sysctl-service-type
 | 
					           (sysctl-service-type
 | 
				
			||||||
            config => (sysctl-configuration
 | 
					            config => (sysctl-configuration
 | 
				
			||||||
                       (inherit config)
 | 
					                       (inherit config)
 | 
				
			||||||
@ -171,9 +150,7 @@
 | 
				
			|||||||
                       (inherit config)
 | 
					                       (inherit config)
 | 
				
			||||||
                       (substitute-urls
 | 
					                       (substitute-urls
 | 
				
			||||||
                        (append %default-substitute-urls
 | 
					                        (append %default-substitute-urls
 | 
				
			||||||
                                '("https://substitutes.nonguix.org"
 | 
					                                '("https://substitutes.nonguix.org")))
 | 
				
			||||||
                                  "https://guix.tobias.gr")))
 | 
					 | 
				
			||||||
                       (authorized-keys
 | 
					                       (authorized-keys
 | 
				
			||||||
                        (cons* %guix-authorized-key-nonguix
 | 
					                        (cons* %guix-authorized-key-nonguix
 | 
				
			||||||
                               %guix-authorized-key-tobias
 | 
					 | 
				
			||||||
                               %default-authorized-guix-keys)))))))
 | 
					                               %default-authorized-guix-keys)))))))
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user