automation/pull-mirror: Initial declaration

automation/pull-upstream.scm

@@ -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")
+

automation/zz-README.org

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