15 lines
497 B
Common Lisp
15 lines
497 B
Common Lisp
(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")))
|