Initial commit.

5 files changed, 252 insertions, 0 deletions

diff --git a/.reuse/dep5 b/.reuse/dep5
new file mode 100644
index 0000000000..6b731b4898
--- /dev/null
+++ b/.reuse/dep5
@@ -0,0 +1,4 @@
+Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
+Upstream-Name: koszko Guix scripts
+Upstream-Contact: Wojtek Kosior <koszko@koszko.org>
+Source: https://git.koszko.org/guix/tree/?h=koszko-scripts
diff --git a/LICENSES/CC0-1.0.txt b/LICENSES/CC0-1.0.txt
new file mode 100644
index 0000000000..0e259d42c9
--- /dev/null
+++ b/LICENSES/CC0-1.0.txt
@@ -0,0 +1,121 @@
+Creative Commons Legal Code
+
+CC0 1.0 Universal
+
+    CREATIVE COMMONS CORPORATION IS NOT A LAW FIRM AND DOES NOT PROVIDE
+    LEGAL SERVICES. DISTRIBUTION OF THIS DOCUMENT DOES NOT CREATE AN
+    ATTORNEY-CLIENT RELATIONSHIP. CREATIVE COMMONS PROVIDES THIS
+    INFORMATION ON AN "AS-IS" BASIS. CREATIVE COMMONS MAKES NO WARRANTIES
+    REGARDING THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS
+    PROVIDED HEREUNDER, AND DISCLAIMS LIABILITY FOR DAMAGES RESULTING FROM
+    THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS PROVIDED
+    HEREUNDER.
+
+Statement of Purpose
+
+The laws of most jurisdictions throughout the world automatically confer
+exclusive Copyright and Related Rights (defined below) upon the creator
+and subsequent owner(s) (each and all, an "owner") of an original work of
+authorship and/or a database (each, a "Work").
+
+Certain owners wish to permanently relinquish those rights to a Work for
+the purpose of contributing to a commons of creative, cultural and
+scientific works ("Commons") that the public can reliably and without fear
+of later claims of infringement build upon, modify, incorporate in other
+works, reuse and redistribute as freely as possible in any form whatsoever
+and for any purposes, including without limitation commercial purposes.
+These owners may contribute to the Commons to promote the ideal of a free
+culture and the further production of creative, cultural and scientific
+works, or to gain reputation or greater distribution for their Work in
+part through the use and efforts of others.
+
+For these and/or other purposes and motivations, and without any
+expectation of additional consideration or compensation, the person
+associating CC0 with a Work (the "Affirmer"), to the extent that he or she
+is an owner of Copyright and Related Rights in the Work, voluntarily
+elects to apply CC0 to the Work and publicly distribute the Work under its
+terms, with knowledge of his or her Copyright and Related Rights in the
+Work and the meaning and intended legal effect of CC0 on those rights.
+
+1. Copyright and Related Rights. A Work made available under CC0 may be
+protected by copyright and related or neighboring rights ("Copyright and
+Related Rights"). Copyright and Related Rights include, but are not
+limited to, the following:
+
+  i. the right to reproduce, adapt, distribute, perform, display,
+     communicate, and translate a Work;
+ ii. moral rights retained by the original author(s) and/or performer(s);
+iii. publicity and privacy rights pertaining to a person's image or
+     likeness depicted in a Work;
+ iv. rights protecting against unfair competition in regards to a Work,
+     subject to the limitations in paragraph 4(a), below;
+  v. rights protecting the extraction, dissemination, use and reuse of data
+     in a Work;
+ vi. database rights (such as those arising under Directive 96/9/EC of the
+     European Parliament and of the Council of 11 March 1996 on the legal
+     protection of databases, and under any national implementation
+     thereof, including any amended or successor version of such
+     directive); and
+vii. other similar, equivalent or corresponding rights throughout the
+     world based on applicable law or treaty, and any national
+     implementations thereof.
+
+2. Waiver. To the greatest extent permitted by, but not in contravention
+of, applicable law, Affirmer hereby overtly, fully, permanently,
+irrevocably and unconditionally waives, abandons, and surrenders all of
+Affirmer's Copyright and Related Rights and associated claims and causes
+of action, whether now known or unknown (including existing as well as
+future claims and causes of action), in the Work (i) in all territories
+worldwide, (ii) for the maximum duration provided by applicable law or
+treaty (including future time extensions), (iii) in any current or future
+medium and for any number of copies, and (iv) for any purpose whatsoever,
+including without limitation commercial, advertising or promotional
+purposes (the "Waiver"). Affirmer makes the Waiver for the benefit of each
+member of the public at large and to the detriment of Affirmer's heirs and
+successors, fully intending that such Waiver shall not be subject to
+revocation, rescission, cancellation, termination, or any other legal or
+equitable action to disrupt the quiet enjoyment of the Work by the public
+as contemplated by Affirmer's express Statement of Purpose.
+
+3. Public License Fallback. Should any part of the Waiver for any reason
+be judged legally invalid or ineffective under applicable law, then the
+Waiver shall be preserved to the maximum extent permitted taking into
+account Affirmer's express Statement of Purpose. In addition, to the
+extent the Waiver is so judged Affirmer hereby grants to each affected
+person a royalty-free, non transferable, non sublicensable, non exclusive,
+irrevocable and unconditional license to exercise Affirmer's Copyright and
+Related Rights in the Work (i) in all territories worldwide, (ii) for the
+maximum duration provided by applicable law or treaty (including future
+time extensions), (iii) in any current or future medium and for any number
+of copies, and (iv) for any purpose whatsoever, including without
+limitation commercial, advertising or promotional purposes (the
+"License"). The License shall be deemed effective as of the date CC0 was
+applied by Affirmer to the Work. Should any part of the License for any
+reason be judged legally invalid or ineffective under applicable law, such
+partial invalidity or ineffectiveness shall not invalidate the remainder
+of the License, and in such case Affirmer hereby affirms that he or she
+will not (i) exercise any of his or her remaining Copyright and Related
+Rights in the Work or (ii) assert any associated claims and causes of
+action with respect to the Work, in either case contrary to Affirmer's
+express Statement of Purpose.
+
+4. Limitations and Disclaimers.
+
+ a. No trademark or patent rights held by Affirmer are waived, abandoned,
+    surrendered, licensed or otherwise affected by this document.
+ b. Affirmer offers the Work as-is and makes no representations or
+    warranties of any kind concerning the Work, express, implied,
+    statutory or otherwise, including without limitation warranties of
+    title, merchantability, fitness for a particular purpose, non
+    infringement, or the absence of latent or other defects, accuracy, or
+    the present or absence of errors, whether or not discoverable, all to
+    the greatest extent permissible under applicable law.
+ c. Affirmer disclaims responsibility for clearing rights of other persons
+    that may apply to the Work or any use thereof, including without
+    limitation any person's Copyright and Related Rights in the Work.
+    Further, Affirmer disclaims responsibility for obtaining any necessary
+    consents, permissions or other rights required for any use of the
+    Work.
+ d. Affirmer understands and acknowledges that Creative Commons is not a
+    party to this document and has no duty or obligation with respect to
+    this CC0 or use of the Work.
diff --git a/koszko-pull-and-rebase.sh b/koszko-pull-and-rebase.sh
new file mode 100755
index 0000000000..a4ece3e2a1
--- /dev/null
+++ b/koszko-pull-and-rebase.sh
@@ -0,0 +1,18 @@
+#!/bin/sh
+
+# SPDX-License-Identifier: CC0-1.0
+# Copyright (C) 2023 Wojtek Kosior <koszko@koszko.org>
+
+set -eu
+
+cd "$(dirname "$0")"
+
+git checkout master
+git pull
+guix git authenticate \
+     --keyring=origin/keyring \
+     --cache-key=channels/guix --stats \
+     9edb3f66fd807b096b48283debdcddccfea34bad \
+     "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"
+
+./koszko-rebase.sh
diff --git a/koszko-rebase.sh b/koszko-rebase.sh
new file mode 100755
index 0000000000..f1b7bb16d3
--- /dev/null
+++ b/koszko-rebase.sh
@@ -0,0 +1,42 @@
+#!/bin/sh
+
+# SPDX-License-Identifier: CC0-1.0
+# Copyright (C) 2023 Wojtek Kosior <koszko@koszko.org>
+
+set -eu
+
+KOSZKO_BRANCHES="readme pantalaimon guile-libraries localhost-repo-server"
+
+cd "$(dirname "$0")"
+
+git checkout koszko
+git reset --hard master
+
+for BRANCH_SUFFIX in $KOSZKO_BRANCHES; do
+    git checkout koszko-"$BRANCH_SUFFIX"
+    git rebase master
+
+    git checkout koszko-work
+    git reset --hard koszko-"$BRANCH_SUFFIX"
+    git rebase koszko
+    git checkout koszko
+    git reset --hard koszko-work
+done
+
+git rm .guix-authorizations
+
+git commit -m "Allow unauthorized \`guix pull\`"
+
+git checkout koszko-localhost-urls
+git reset --hard koszko
+
+MODIFIED="$(grep 'url "https://git.koszko.org' gnu/packages/*.scm |
+                awk -F: '{print $1}' | sort | uniq)"
+
+sed -i 's|url \"https://git.koszko.org/|url \"http://localhost:8098/|g' \
+    $MODIFIED
+
+git commit -m "Replace git.koszko.org URLs with local ones" $MODIFIED
+
+# optionally, do
+#     guix shell -D guix -- make -j$((1 + $(nproc)))
diff --git a/koszko-update-hashes.sh b/koszko-update-hashes.sh
new file mode 100755
index 0000000000..6bdcd0c5cf
--- /dev/null
+++ b/koszko-update-hashes.sh
@@ -0,0 +1,67 @@
+#!/bin/sh
+
+# SPDX-License-Identifier: CC0-1.0
+# Copyright (C) 2023 Wojtek Kosior <koszko@koszko.org>
+
+set -eu
+
+cd "$(dirname "$0")"
+
+WORKDIR=/tmp/guix-koszko-update-hashes-workdir
+
+mkdir -p $WORKDIR
+
+FILES_AND_URLS="$(grep -E 'url "https://git.koszko.org' gnu/packages/*.scm)"
+
+while [ x != "x$FILES_AND_URLS" ]
+do :
+   LINE="$(printf '%s' "$FILES_AND_URLS" | head -1)"
+   FILES_AND_URLS="$(printf '%s' "$FILES_AND_URLS" | tail -n +2)"
+
+   FILENAME="$(printf '%s' "$LINE" | awk -F : '{print $1}')"
+   REPO="$(printf '%s' "$LINE" | sed 's|.*git.koszko.org/\([^/"]*\).*|\1|')"
+
+   REPODIR=$WORKDIR/$REPO
+
+   rm -rf $REPODIR
+   git clone http://localhost:8098/$REPO $REPODIR
+
+   CONTENT_HASH=$(guix hash \
+                       --hash=sha256 \
+                       --serializer=nar \
+                       --format=nix-base32 \
+                       --exclude-vcs \
+                       $REPODIR)
+
+   HEAD=$(awk '/^ref: /{print $2;}' $REPODIR/.git/HEAD)
+
+   COMMIT_HASH=$(cat $REPODIR/.git/$HEAD)
+
+   export REPO
+   export CONTENT_HASH
+   export COMMIT_HASH
+
+   gawk -F '"' \
+        'BEGIN {inside_right_package = 0;}
+        {if (inside_right_package) {
+             printed = 1;
+             if (match($0, /"[0-9a-z]{52}"/))
+                 print(gensub(/[0-9a-z]{52}/, ENVIRON["CONTENT_HASH"], 1));
+             else if (match($0, /"[0-9a-z]{40}"/))
+                 print(gensub(/[0-9a-z]{40}/, ENVIRON["COMMIT_HASH"], 1));
+             else
+                 print $0;
+         } else {
+             print $0;
+         }
+
+         if (index($0, "git.koszko.org/" ENVIRON["REPO"]))
+             inside_right_package = 1;
+        }
+        /\(license/ {inside_right_package = 0;}' \
+            $FILENAME > $WORKDIR/modified-file.scm
+
+   mv $WORKDIR/modified-file.scm $FILENAME
+done
+
+rm -rf $WORKDIR