[bug#74384] [PATCH 0/2] gnu: stlink: Update to 1.8.0.

[bug#74384] [PATCH 0/2] gnu: stlink: Update to 1.8.0.

[Artyom V. Poptsov via Guix-patches]

This patchset updates "stlink" package and improves its style by using GEXPs.

Artyom V. Poptsov (2):
  gnu: stlink: Update to 1.8.0.
  gnu: stlink: Use GEXPs.

 gnu/packages/embedded.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)


base-commit: b647d3a149c94ee84cde1af3af7442633afa3416
-- 
2.46.0

[bug#74384] [PATCH 1/2] gnu: stlink: Update to 1.8.0.

[Artyom V. Poptsov]

* gnu/packages/embedded.scm (stlink): Update to 1.8.0.

Change-Id: I51a3c664c4035ec542fa82753dc8e6aa8a8c0256
---
 gnu/packages/embedded.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index cc999d35f8..6b3acefea2 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -13,6 +13,7 @@
 ;;; Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
 ;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1639,7 +1640,7 @@ (define-public stcgal
 (define-public stlink
   (package
     (name "stlink")
-    (version "1.7.0")
+    (version "1.8.0")
     (source
      (origin
        (method git-fetch)
@@ -1649,7 +1650,7 @@ (define-public stlink
        (file-name (git-file-name name version))
        (sha256
         (base32
-         "03xypffpbp4imrczbxmq69vgkr7mbp0ps9dk815br5wwlz6vgygl"))))
+         "1g5ahnj400sdf75k3xafawa6x0pzz7s86nqnfd65gqjr3bdlhlc6"))))
     (build-system cmake-build-system)
     (arguments
      `(#:tests? #f                      ;no tests
-- 
2.46.0

[bug#74384] [PATCH 2/2] gnu: stlink: Use GEXPs.

[Artyom V. Poptsov]

* gnu/packages/embedded.scm (stlink): Use GEXPs.

Change-Id: I26e2649f29c1e742f848f3efc5a10c218bb5bb28
---
 gnu/packages/embedded.scm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index 6b3acefea2..0dcfc6669f 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -1653,14 +1653,13 @@ (define-public stlink
          "1g5ahnj400sdf75k3xafawa6x0pzz7s86nqnfd65gqjr3bdlhlc6"))))
     (build-system cmake-build-system)
     (arguments
-     `(#:tests? #f                      ;no tests
-       #:configure-flags
-       (let* ((out (assoc-ref %outputs "out"))
-              (etc (in-vicinity out "etc"))
-              (modprobe (in-vicinity etc "modprobe.d"))
-              (udev-rules (in-vicinity etc "udev/rules.d")))
-         (list (string-append "-DSTLINK_UDEV_RULES_DIR=" udev-rules)
-               (string-append "-DSTLINK_MODPROBED_DIR=" modprobe)))))
+     (list #:tests? #f                      ;no tests
+           #:configure-flags
+           #~(let* ((etc (in-vicinity #$output "etc"))
+                    (modprobe (in-vicinity etc "modprobe.d"))
+                    (udev-rules (in-vicinity etc "udev/rules.d")))
+               (list (string-append "-DSTLINK_UDEV_RULES_DIR=" udev-rules)
+                     (string-append "-DSTLINK_MODPROBED_DIR=" modprobe)))))
     (inputs
      (list libusb))
     (synopsis "Programmer for STM32 Discovery boards")
-- 
2.46.0