guix-kreyren/automation/pull-upstream.scm

#!/usr/bin/env sh
exec guile -s "$0" "$@"
!#
;;;C DNM: Title
;;;C Copyright (C) 2022 Jacob Hrbek <kreyren@rixotstudio.cz>
;;;C
;;;C 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.
;;;C 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.
;;;C
;;;C 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
  (git)
  (git checkout))

;;; GNU Guile script to keep the 'upstream' branch up to date with upstream repository

(load (string-append (dirname (current-filename)) "/common.scm"))
(load (string-append (dirname (current-filename)) "/hotfixes.scm"))

(git:checkout-index %repodir "upstream")

(git:pull %repodir)

(git:push %repodir "upstream")

;;;X pull-upstream.scm ends here