WIP: automation/pull-mirror: Initial declaration #2

Draft
kreyren wants to merge 5 commits from pull-mirror-4-upstream into central
2 changed files with 29 additions and 0 deletions
Showing only changes of commit ee2249b4bd - Show all commits

28
automation/pull-upstream.scm Executable file

@ -0,0 +1,28 @@
#!/usr/bin/env sh
exec guile -s "$0" "$@"
!#
;;; The Project Manager ("pman") -- GNU Guile-based solution for project management
;;; Copyright (C) 2022 Jacob Hrbek <kreyren@rixotstudio.cz>
;;;
;;; This file is Free/Libre Open-Source Software; you may copy, redistribute and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 2 of the License, or (at your option) any later version.
;;; This file is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public license along with this project. If not, see <http://www.gnu.org/licenses>
;(use-modules ())
(define (git-checkout branch)
"Git checkout on set BRANCH"
(system* "git" "checkout" branch))
(git-checkout "upstream")
(define* (git-pull remote #:optional branch)
"Git pull from REMOTE and optional BRANCH"
(system*
"git"
"pull"
remote))
(git-pull "upstream" "master")

1
automation/zz-README.org Normal file

@ -0,0 +1 @@
Directory storing scripts used by Continuous Integration and Delivery ("CI/CD")