gnu: python-klaus: Patch to support python 3.12.

* gnu/packages/patches/python-klaus-support-python-3.12.patch: New file.
* gnu/local.mk (dist_patch_DATA): Register it.
* gnu/packages/version-control.scm (python-klaus)[source]: Use it.

Change-Id: I2a6a228a318b28bc071d5f368c5ab828f8f84b9f

3 files changed, 58 insertions, 1 deletions

diff --git a/gnu/local.mk b/gnu/local.mk
index 5cbf117a148..4e8dfa74e7a 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -2138,6 +2138,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/python-hdmedians-replace-nose.patch      \
   %D%/packages/patches/python-holodeck-cython-3-compat.patch    \
   %D%/packages/patches/python-jinja2-fragments-modify-conftest-py.patch \
+  %D%/packages/patches/python-klaus-support-python-3.12.patch   \
   %D%/packages/patches/python-louvain-fix-test.patch            \
   %D%/packages/patches/python-mohawk-pytest.patch       \
   %D%/packages/patches/python-msal-requests.patch       \
diff --git a/gnu/packages/patches/python-klaus-support-python-3.12.patch b/gnu/packages/patches/python-klaus-support-python-3.12.patch
new file mode 100644
index 00000000000..ca13d1c7cfa
--- /dev/null
+++ b/gnu/packages/patches/python-klaus-support-python-3.12.patch
@@ -0,0 +1,54 @@
+From 0dacec59248446c3dbadcb83e23bbddcd9ce94db Mon Sep 17 00:00:00 2001
+From: fin444 <fin444@users.noreply.github.com>
+Date: Mon, 15 Jul 2024 07:00:12 -0400
+Subject: [PATCH] python 3.12 support (#334)
+
+---
+ klaus/contrib/app_args.py | 11 ++++++++++-
+ setup.py                  | 13 -------------
+ 2 files changed, 10 insertions(+), 14 deletions(-)
+
+diff --git a/klaus/contrib/app_args.py b/klaus/contrib/app_args.py
+index 7ee56891..ba02e53e 100644
+--- a/klaus/contrib/app_args.py
++++ b/klaus/contrib/app_args.py
+@@ -1,5 +1,14 @@
+ import os
+-from distutils.util import strtobool
++
++
++def strtobool(val):
++    val = val.lower()
++    if val in ("y", "yes", "t", "true", "on", "1"):
++        return 1
++    elif val in ("n", "no", "f", "false", "off", "0"):
++        return 0
++    else:
++        raise ValueError(f"invalid truth value {val!r}")
+ 
+ 
+ def get_args_from_env():
+diff --git a/setup.py b/setup.py
+index b06a45f2..2d1f594c 100644
+--- a/setup.py
++++ b/setup.py
+@@ -4,19 +4,6 @@
+ 
+ long_description = open(os.path.join(os.path.dirname(__file__), "README.rst")).read()
+ 
+-
+-def install_data_files_hack():
+-    # This is a clever hack to circumvent distutil's data_files
+-    # policy "install once, find never". Definitely a TODO!
+-    # -- https://groups.google.com/group/comp.lang.python/msg/2105ee4d9e8042cb
+-    from distutils.command.install import INSTALL_SCHEMES
+-
+-    for scheme in INSTALL_SCHEMES.values():
+-        scheme["data"] = scheme["purelib"]
+-
+-
+-install_data_files_hack()
+-
+ requires = [
+     "flask",
+     "Werkzeug>=0.15.0",
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index cd33ccf42a3..e7d31245c9f 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -871,7 +871,9 @@ everything from small to very large projects with speed and efficiency.")
               (uri (pypi-uri "klaus" version))
               (sha256
                (base32
-                "1w6sl15llnkcg7kmnpn64awdiis061q2gijnhdx0ng7z4p1glapl"))))
+                "1w6sl15llnkcg7kmnpn64awdiis061q2gijnhdx0ng7z4p1glapl"))
+              (patches
+               (search-patches "python-klaus-support-python-3.12.patch"))))
     (build-system pyproject-build-system)
     (arguments
      (list