(defun git-status ()
  "Executes git status and returns the output."
  (uiop:run-program '("git" "status" "--short") :output :string))

(defun git-commit (message)
  "Stages all tracked changes and commits them."
  (kernel-log "GIT - Committing: ~a" message)
  (uiop:run-program '("git" "add" "-u"))
  (uiop:run-program `("git" "commit" "-m" ,message)))

(defun git-push ()
  "Pushes to the current branch origin."
  (kernel-log "GIT - Pushing to origin...")
  (uiop:run-program '("git" "push")))