WIP: automation/pull-mirror: Initial declaration #2
28
automation/pull-upstream.scm
Executable file
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
1
automation/zz-README.org
Normal file
@ -0,0 +1 @@
|
|||||||
|
Directory storing scripts used by Continuous Integration and Delivery ("CI/CD")
|
Loading…
Reference in New Issue
Block a user