From 74585be49ce99585f0bfb649402cc807a6802fe7 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Sun, 28 Jul 2024 16:53:41 +0200
Subject: refactor!: introduce user obfuscation style

---
 users/marekpasnikowski.scm | 71 ----------------------------------------------
 1 file changed, 71 deletions(-)
 delete mode 100644 users/marekpasnikowski.scm

(limited to 'users/marekpasnikowski.scm')

diff --git a/users/marekpasnikowski.scm b/users/marekpasnikowski.scm
deleted file mode 100644
index e259d55..0000000
--- a/users/marekpasnikowski.scm
+++ /dev/null
@@ -1,71 +0,0 @@
-(define-module (users marekpasnikowski)
-  #:use-module (gnu home)		      ; home-environment
-  #:use-module (gnu home services)	      ; home-profile-service-type
-                                              ; home-xdg-configuration-files-service-type
-  #:use-module (gnu packages emacs)	      ; emacs
-  #:use-module (gnu packages emacs-xyz)	      ; emacs-org-roam
-					      ; emacs-paredit
-  #:use-module (gnu packages librewolf)	      ; librewolf
-  #:use-module (gnu packages version-control) ; git
-  #:use-module (gnu services)		      ; service
-					      ; simple-service
-  #:use-module (gnu system shadow)	      ; user-account
-  #:use-module (guix gexp)		      ; file-append
-  #:use-module (suweren home)		      ; %suweren-home-services
-  )
-
-;; string
-(define-public marekpasnikowski-username
-  "marek")
-
-;; (string) ->
-;; record user-account
-(define-public (marekpasnikowski-account supplementary-groups*)
-  (user-account (name marekpasnikowski-username)
-		(group "users")
-		(supplementary-groups supplementary-groups*)
-		(uid 1000)
-		(comment "Marek Paśnikowski")
-		(home-directory "/home/marek")))
-
-;; string
-(define-public user
-  "marek")
-
-;; record home-environment
-(define-public marekpasnikowski-home-environment
-  (lambda (host-name*)
-    (let* ((gitconfig-file (local-file "marekpasnikowski-gitconfig")) ; TODO modularize
-	   (gitignore-file (local-file "marekpasnikowski-gitignore")) ; TODO review the contents
-
-	   (gitconfig (list "git/config"
-			    gitconfig-file))
-	   (gitignore (list "git/ignore"
-			    gitignore-file))
-
-	   (emacs-packages (list emacs
-				 emacs-org-roam
-				 emacs-paredit))
-	   (git-configuration-files (list gitconfig
-					  gitignore))
-	   (git-packages (list git))
-
-	   (emacs-software (simple-service 'emacs-packages
-					   home-profile-service-type
-					   emacs-packages))
-	   (git-configuration (simple-service 'git-configuration
-					      home-xdg-configuration-files-service-type
-					      git-configuration-files))
-	   (git-software (simple-service 'git-packages
-					 home-profile-service-type
-					 git-packages))
-
-	   (%suweren-home-services* (%suweren-home-services host-name*))
-	   (user-services (list ;; emacs-configuration
-			   emacs-software
-			   git-configuration
-			   git-software))
-
-	   (services* (append %suweren-home-services*
-			      user-services)))
-      (home-environment (services services*)))))
-- 
cgit v1.2.3