1 files changed, 81 insertions, 0 deletions
diff --git a/users/id1000.scm b/users/id1000.scm
new file mode 100644
index 0000000..ae1e32c
--- /dev/null
+++ b/users/id1000.scm
@@ -0,0 +1,81 @@
+(define-module (users id1000)
+  ;; home-environment
+  #:use-module (gnu home)
+
+  ;; home-profile-service-type
+  ;; home-xdg-configuration-files-service-type
+  #:use-module (gnu home services)
+
+  ;; emacs
+  #:use-module (gnu packages emacs)
+
+  ;; emacs-org-roam
+  ;; emacs-paredit
+  #:use-module (gnu packages emacs-xyz)
+
+  ;; git
+  #:use-module (gnu packages version-control)
+
+  ;; simple-service
+  #:use-module (gnu services)
+
+  ;; user-account
+  #:use-module (gnu system shadow)
+
+  ;; local-file
+  #:use-module (guix gexp)
+
+  ;; %suweren-home-services
+  #:use-module (suweren home))
+
+;; string
+(define-public uid1000-name
+  "marek")
+
+;; (string) ->
+;; record user-account
+(define-public (uid1000-account supplementary-groups*)
+  (user-account (name uid1000-name)
+		(group "users")
+		(supplementary-groups supplementary-groups*)
+		(uid 1000)
+		(comment "Marek Paśnikowski")
+		(home-directory "/home/marek")))
+
+;; record home-environment
+(define-public uid1000-home-environment
+  (lambda (host-name*)
+    (let* ((gitconfig-file (local-file "uid1000-gitconfig")) ; TODO modularize
+	   (gitignore-file (local-file "uid1000-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*)))))