fix: jj-config

Makefile

@@ -0,0 +1,5 @@
+home:
+guix home reconfigure ./home.scm
+
+guix:
+guix system reconfigure ./config.scm

config.scm

@@ -18,7 +18,8 @@
 	       #:use-module (gnu services desktop)
 	       #:use-module (gnu services networking)
 	       #:use-module (gnu services ssh)
-	       #:use-module (gnu services xorg))
+	       #:use-module (gnu services xorg)
+	       #:use-module (gnu packages shells))
 
 (operating-system
   (locale "en_CA.utf8")
@@ -32,6 +33,7 @@
                   (comment "Kat Inskip")
                   (group "users")
                   (home-directory "/home/kat")
+		  (shell (file-append zsh "/bin/zsh"))
                   (supplementary-groups '("wheel" "netdev" "audio" "video")))
                 %base-user-accounts))
 
@@ -42,6 +44,7 @@
                           (specification->package "wmenu")
                           (specification->package "librewolf")
                           (specification->package "neovim")
+			  (specification->package "git")
                           (specification->package "foot")) %base-packages))
 
   ;; Below is the list of system services.  To search for available

files/jj-config.toml

@@ -0,0 +1,5 @@
+"$schema" = "https://jj-vcs.github.io/jj/latest/config-schema.json"
+
+[user]
+name = "Kat Inskip"
+email = "kat@inskip.me"

home.scm

@@ -12,10 +12,17 @@
 		     xdisorg ; wl-clipboard
 		     rust-apps) ; jujutsu
 
+(define sway-bar-status #~(string-append "while "
+                 #$coreutils "/bin/date"
+                 " +'%Y-%m-%d %X'; do sleep 1; done"))
+
 (define sway-config
   (sway-configuration
     (inherit %empty-sway-configuration)
-    ;;(bar TODO)
+    (bar (sway-bar
+	   (identifier 'bar0)
+	   (position 'top)
+	   (status-command sway-bar-status)))
     ;;(startup+reload-programs TODO)
     ;;(extra-content TODO)
     (variables %sway-default-variables)
@@ -25,7 +32,7 @@
 			grimshot
 			wl-clipboard) %sway-default-packages))
     (modes %sway-default-modes)
-    (startup-programs %sway-default-startup-programs)
+    ;(startup-programs %sway-default-startup-programs)
     (inputs (list (sway-input (identifier "type:keyboard")
 			      (layout (keyboard-layout "us" #:options '("ctrl:nocaps"))))))))
 
@@ -38,19 +45,20 @@
           ;; Uncomment the shell you wish to use for your user:
           ;(service home-bash-service-type)
           ;(service home-fish-service-type)
-          ;(service home-zsh-service-type)
+          (service home-zsh-service-type)
 
 	  (service home-sway-service-type sway-config)
 
           (service home-files-service-type
            `((".guile" ,%default-dotguile)
              (".Xdefaults" ,%default-xdefaults)
-	     (".gitconfig", (local-file "files/gitconfig"))
+	     (".gitconfig" ,(local-file "files/gitconfig"))
 	     ))
 
           (service home-xdg-configuration-files-service-type
            `(("gdb/gdbinit" ,%default-gdbinit)
-             ("nano/nanorc" ,%default-nanorc))))
+             ("nano/nanorc" ,%default-nanorc)
+	     ("jj/config.toml" ,(local-file "files/jj-config.toml")))))
 
         %base-home-services))))