paku/setup-lisp
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Commit after checkout.

Browse source
This commit is contained in:
Alexander Artemenko 2021-02-07 03:06:14 +03:00
parent 4a1261cd8a
commit 3ebc39835f
1 changed files with 27 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
.github/actions/build-docs/upload.ros vendored
View file

@ -159,36 +159,38 @@ behaviour could be overriden by keyword argument ``:raise t``."
((git-repository-was-changed-p)
(log:info "Pushing local changes to the repository")
(git "add -u")
(flet ((make-commit ()
(git "add -u")
;; We don't want to commit changes to qlfile,
;; because documentation builders might change them:
(git "reset qlfile*")
;; We don't want to commit changes to qlfile,
;; because documentation builders might change them:
(git "reset qlfile*")
(when (uiop:getenv "GITHUB_ACTIONS")
(when (uiop:getenv "GITHUB_ACTIONS")
(git "config --global user.name \"github-actions[bot]\"")
(git "config --global user.email \"actions@github.com\""))
(git "config --global user.name \"github-actions[bot]\"")
(git "config --global user.email \"actions@github.com\""))
(git "commit -m 'Update docs'")
(cond
((uiop:getenv "GITHUB_HEAD_REF")
(let ((ref (uiop:getenv "GITHUB_HEAD_REF")))
(git "commit -m 'Update docs'")))
(cond
((uiop:getenv "GITHUB_HEAD_REF")
(let ((ref (uiop:getenv "GITHUB_HEAD_REF")))
;; Inside github action we are running on
;; detached commit. Github takes last commit
;; from the "master" branch and merges
;; a branch from pull-request settings.
;;
;; To push changes back, we need to change
;; our HEAD back to the pull-request's reference:
(git "checkout " ref)
(git "remote add upstream "
(get-origin-to-push))
(git "push upstream HEAD:" ref)))
(t
(git "push"))))
;; Inside github action we are running on
;; detached commit. Github takes last commit
;; from the "master" branch and merges
;; a branch from pull-request settings.
;;
;; To push changes back, we need to change
;; our HEAD back to the pull-request's reference:
(git "checkout " ref)
(make-commit)
(git "remote add upstream "
(get-origin-to-push))
(git "push upstream HEAD:" ref)))
(t
(make-commit)
(git "push")))))
;; or
(t (log:info "There is no local changes.")))))