diff options
Diffstat (limited to 'users/marekpasnikowski.scm')
| -rw-r--r-- | users/marekpasnikowski.scm | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/users/marekpasnikowski.scm b/users/marekpasnikowski.scm index 54e01d5..e259d55 100644 --- a/users/marekpasnikowski.scm +++ b/users/marekpasnikowski.scm @@ -2,12 +2,10 @@ #:use-module (gnu home) ; home-environment #:use-module (gnu home services) ; home-profile-service-type ; home-xdg-configuration-files-service-type - #:use-module (gnu home services shells) ; home-fish-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 shells) ; fish #:use-module (gnu packages version-control) ; git #:use-module (gnu services) ; service ; simple-service @@ -23,19 +21,20 @@ ;; (string) -> ;; record user-account (define-public (marekpasnikowski-account supplementary-groups*) - (let ((fish (file-append fish "/bin/fish"))) - (user-account (name marekpasnikowski-username) - (group "users") - (supplementary-groups supplementary-groups*) - (shell fish)))) + (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 - "marekpasnikowski") + "marek") ;; record home-environment (define-public marekpasnikowski-home-environment - (lambda (system) + (lambda (host-name*) (let* ((gitconfig-file (local-file "marekpasnikowski-gitconfig")) ; TODO modularize (gitignore-file (local-file "marekpasnikowski-gitignore")) ; TODO review the contents @@ -54,7 +53,6 @@ (emacs-software (simple-service 'emacs-packages home-profile-service-type emacs-packages)) - (fish (service home-fish-service-type)) (git-configuration (simple-service 'git-configuration home-xdg-configuration-files-service-type git-configuration-files)) @@ -62,11 +60,9 @@ home-profile-service-type git-packages)) - (%suweren-home-services* (%suweren-home-services system - user)) + (%suweren-home-services* (%suweren-home-services host-name*)) (user-services (list ;; emacs-configuration emacs-software - fish git-configuration git-software)) |