[chore] format code

Signed-off-by: SouthFox <master@southfox.me>

files/zshrc

@@ -73,6 +73,7 @@ export LC_COLLATE=C
 . $HOME/.guix-home/setup-environment
 
 export GUIX_PROFILE="$HOME/.guix-home/profile"
+export GUIX_LOCPATH="$HOME/.guix-profile/lib/locale"
 export ZSH_CUSTOM="$GUIX_PROFILE/share/zsh"
 .reload() {
     autoload compinit && compinit
@@ -97,3 +98,5 @@ eval "$(fzf --zsh)"
 export PYENV_ROOT="$HOME/.pyenv"
 [[ -d $PYENV_ROOT/bin ]] && export PATH="$PYENV_ROOT/bin:$PATH"
 eval "$(pyenv init -)"
+
+eval "$(zellij setup --generate-auto-start zsh)"

home-configuration.scm

@@ -14,25 +14,24 @@
 
 (load "packages.scm")
 
-
 (home-environment
  ;; Below is the list of packages that will show up in your
  ;; Home profile, under ~/.guix-home/profile.
- (packages (specifications->packages (list "guile-hoot"
+ (packages (append  (specifications->packages
+                     (list
+                      "guile-hoot"
                       "guile-next"
                       "zsh"
                       "zsh-autosuggestions"
                       "zsh-syntax-highlighting"
-                                           "fzf")))
+                      "fzf"))
+                    (list
+                     zellij)))
 
  (services
   (list
-   (service oh-my-zsh-service-type '())
+   (service oh-my-zsh-service-type)
-
+   (service home-emacs-service-type)
    (service home-zsh-service-type
             (home-zsh-configuration
-             (zshrc (list (local-file "files/zshrc")))
+             (zshrc (list (local-file "files/zshrc"))))))))
-                          ))
-   )
-  )
- )

packages.scm

@@ -4,6 +4,8 @@
              (guix git-download)
              (guix utils)
              (gnu packages)
+             (gnu packages emacs)
+             (gnu home services shepherd)
              (guix build-system copy)
              (gnu services))
 
@@ -36,4 +38,55 @@ your morning, and an auto-update tool that makes it easy to keep up with the lat
                 (extensions
                  (list (service-extension
                         home-files-service-type
-                        (lambda (_) (list `(".oh-my-zsh" ,oh-my-zsh))))))))
+                        (lambda (_) (list `(".oh-my-zsh" ,oh-my-zsh))))))
+                (default-value '())))
+
+(define-public zellij
+  (package
+    (name "zellij")
+    (version "0.41.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/zellij-org/zellij/releases/download/v"
+                    version "/zellij-x86_64-unknown-linux-musl.tar.gz"))
+              (sha256
+               (base32 "113c9agbx36hiq6a1kf2jydrv3h3cd8s0albnwxi0qd1c0n1rxyw"))))
+    (build-system copy-build-system)
+    (arguments
+     (list
+      #:substitutable? #f
+      #:install-plan
+      #~'(("zellij" "bin/"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'unpack
+            (lambda* (#:key source #:allow-other-keys)
+              (invoke "tar" "-xvf" source))))))
+    (home-page "https://github.com/zellij-org/zellij")
+    (synopsis "A terminal workspace with batteries included.")
+    (description
+     "A terminal workspace with batteries included.")
+    (license expat)))
+
+(define (home-emacs-shepherd-service config)
+  (list
+   (shepherd-service
+    (documentation "Start Emacs")
+    (provision '(emacs))
+    (auto-start? #t)
+    (start
+     #~(make-forkexec-constructor
+        (list #$(file-append emacs "/bin/emacs")
+              "--fg-daemon")
+        #:log-file (format #f "~a/.local/var/log/emacs.log" (getenv "HOME"))))
+    (stop #~(make-kill-destructor)))))
+
+(define home-emacs-service-type
+  (service-type (name 'emacs-configuration)
+                (extensions
+                 (list (service-extension
+                        home-shepherd-service-type
+                        home-emacs-shepherd-service)))
+                (default-value '())
+                (description "Configures Emacs and installs packages to home-profile.")))