gnu: Add exercism-cli.

Fixes guix/guix#858.

* gnu/packages/education.scm (exercism-cli): New variable.

Change-Id: I49008ebec63129af52c279ff664ef82788e28d3a

gnu/packages/education.scm

@@ -1112,7 +1112,7 @@ machine, and more.")
 (define-public exercism
   (package
     (name "exercism")
-    (version "3.5.4")
+    (version "3.5.5")
     (source
      (origin
        (method git-fetch)
@@ -1121,48 +1121,61 @@ machine, and more.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32
+        (base32 "1a53caqrxv0rhg79md97vnzcbr9gnz3mzjkk7xyafc3h456b4gsz"))
-         "0shh84g7j977kn9kcm09rj3lz6a3y5qq9yvklsldgb9zvass5szd"))
        (patches (search-patches "exercism-disable-self-update.patch"))))
     (build-system go-build-system)
     (arguments
-     `(#:import-path "github.com/exercism/cli/exercism"
+     (list
-       #:unpack-path "github.com/exercism/cli"
+      #:install-source? #f
-       #:install-source? #f
+      #:import-path "github.com/exercism/cli/exercism"
-       #:phases
+      #:unpack-path "github.com/exercism/cli"
-       (modify-phases %standard-phases
+      ;; Step away from cli/exercism to test the whole project.
-         (add-after 'install 'install-completions
+      #:test-subdirs #~(list "../../...")
-           (lambda* (#:key outputs #:allow-other-keys)
+      #:phases
-             (let* ((out  (assoc-ref outputs "out"))
+      #~(modify-phases %standard-phases
-                    (bash (string-append out "/etc/bash_completion.d/exercism"))
+          (add-after 'install 'install-completions
-                    (fish (string-append
+            (lambda* (#:key outputs #:allow-other-keys)
-                            out "/share/fish/vendor_completions.d/exercism.fish"))
+              (let* ((exercism (string-append #$output "/bin/exercism"))
-                    (zsh  (string-append out "/share/zsh/site-functions/_exercism")))
+                     (bash (string-append
-               (mkdir-p (dirname bash))
+                            #$output
-               (with-output-to-file bash
+                            "/etc/bash_completion.d/exercism"))
-                 (lambda ()
+                     (fish (string-append
-                   (invoke (string-append out "/bin/exercism") "completion" "bash")))
+                            #$output
-               (mkdir-p (dirname fish))
+                            "/share/fish/vendor_completions.d/exercism.fish"))
-               (with-output-to-file fish
+                     (zsh (string-append
-                 (lambda ()
+                           #$output
-                   (invoke (string-append out "/bin/exercism") "completion" "fish")))
+                           "/share/zsh/site-functions/_exercism")))
-               (mkdir-p (dirname zsh))
+                (mkdir-p (dirname bash))
-               (with-output-to-file zsh
+                (with-output-to-file bash
-                 (lambda ()
+                  (lambda ()
-                   (invoke (string-append out "/bin/exercism") "completion" "zsh")))))))))
+                    (invoke exercism "completion" "bash")))
-    (inputs
+                (mkdir-p (dirname fish))
+                (with-output-to-file fish
+                  (lambda ()
+                    (invoke exercism "completion" "fish")))
+                (mkdir-p (dirname zsh))
+                (with-output-to-file zsh
+                  (lambda ()
+                    (invoke exercism "completion" "zsh")))))))))
+    (native-inputs
      (list go-github-com-blang-semver
            go-github-com-spf13-cobra
            go-github-com-spf13-pflag
            go-github-com-spf13-viper
+           go-github-com-stretchr-testify
            go-golang-org-x-net
            go-golang-org-x-text))
     (home-page "https://exercism.org/")
     (synopsis "Mentored learning for programming languages")
-    (description "Commandline client for exercism.io, a free service providing
+    (description
-mentored learning for programming languages.")
+     "Commandline client for exercism.io, a free service providing mentored
+learning for programming languages.")
     (license license:expat)))
 
+(define-public exercism-cli
+  (package/inherit exercism
+    (name "exercism-cli")))
+
 (define-public mazo
   (package
     (name "mazo")

gnu/packages/lisp-xyz.scm

@@ -16272,6 +16272,7 @@ streams which are similar to string streams.")
   (package
     (inherit (sbcl-package->clasp-package sbcl-flexi-streams))
     (arguments
+     ;; TODO: https://github.com/edicl/flexi-streams/issues/51
      '(#:tests? #f))))
 
 (define-public sbcl-flexichain
@@ -19027,6 +19028,13 @@ It is similar to the @code{CL:LOOP} macro, with these distinguishing marks:
 (define-public ecl-iterate
   (sbcl-package->ecl-package sbcl-iterate))
 
+(define-public clasp-iterate
+  (package
+    (inherit (sbcl-package->clasp-package sbcl-iterate))
+    (arguments
+     ;; Tests are broken on clasp.
+     (list #:tests? #f))))
+
 (define-public sbcl-ixf
   (let ((commit "ed26f87e4127e4a9e3aac4ff1e60d1f39cca5183")
         (revision "1"))
@@ -23811,6 +23819,9 @@ optimizing techniques widely used in the functional programming world.")
 (define-public ecl-optima
   (sbcl-package->ecl-package sbcl-optima))
 
+(define-public clasp-optima
+  (sbcl-package->clasp-package sbcl-optima))
+
 (define-public sbcl-org-sampler
   (let ((commit "ee135a417750e5b1d810bb9574eb85223cb3038a")
         (revision "1"))
@@ -29527,6 +29538,9 @@ and camel-case rules.")
 (define-public ecl-symbol-munger
   (sbcl-package->ecl-package sbcl-symbol-munger))
 
+(define-public clasp-symbol-munger
+  (sbcl-package->clasp-package sbcl-symbol-munger))
+
 (define-public sbcl-system-load
   (let ((commit "3ff1a40be55866cc5316ac7a530d872b12510294")
         (revision "0"))

gnu/packages/prolog.scm

@@ -185,7 +185,7 @@ it.")
 (define-public trealla
   (package
     (name "trealla")
-    (version "2.76.0")
+    (version "2.76.1")
     (source
      (origin
        (method git-fetch)
@@ -194,7 +194,7 @@ it.")
          (url "https://github.com/trealla-prolog/trealla")
          (commit (string-append "v" version))))
        (sha256
-        (base32 "1b0pp3w7xnp91lw1df6az4mg2qmjcc0vizsmqxa8382lq88dv50h"))
+        (base32 "00vf6nqmrvqnqzdbx57ijx5samhm2ri3c3vl32wlzghvrnirk4jk"))
        (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (native-inputs

gnu/packages/web-browsers.scm

@@ -3,7 +3,7 @@
 ;;; Copyright © 2014, 2019 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2015, 2016, 2019, 2021-2023, 2025 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
-;;; Copyright © 2017, 2024 Eric Bavier <bavier@posteo.net>
+;;; Copyright © 2017, 2024, 2025 Eric Bavier <bavier@posteo.net>
 ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com>
 ;;; Copyright © 2018 Timo Eisenmann <eisenmann@fn.de>
@@ -1170,16 +1170,16 @@ Features include
 (define-public edbrowse
   (package
     (name "edbrowse")
-    (version "3.8.10")
+    (version "3.8.12")
     (source
      (origin
        (method git-fetch)
        (uri (git-reference
-             (url "https://github.com/CMB/edbrowse.git")
+             (url "https://github.com/edbrowse/edbrowse")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1rkz3xrx96071xbd9cd6iiqvaiinsf9lfj7s7ahnkp7hywr9whm5"))))
+        (base32 "19wpsil3927qchky5frczlp75fiqir9l2wzfqq95gbpssiafwkpy"))))
     (build-system gnu-build-system)
     (inputs (list curl-ssh pcre2 quickjs openssl readline-7 unixodbc))
     (native-inputs (list perl pkg-config))