02/04: gnu: librsvg: Add 'librsvg-for-system' procedure.

[guix-commits]

civodul pushed a commit to branch core-updates-frozen
in repository guix.

commit d371abbd0f46461aa8210de8140f95aad05e9e7e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Dec 2 13:15:31 2021 +0100

    gnu: librsvg: Add 'librsvg-for-system' procedure.
    
    * gnu/packages/gnome.scm (librsvg-for-system): New procedure.
---
 gnu/packages/gnome.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index fd67be7..727d061 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -3679,6 +3679,17 @@ diagrams.")
     (synopsis "Render SVG files using Cairo (ancient C version)")
     (properties '((hidden? . #t)))))
 
+(define* (librsvg-for-system #:optional
+                             (system (or (%current-target-system)
+                                         (%current-system))))
+  ;; Since librsvg 2.50 depends on Rust, and Rust is only correctly supported
+  ;; on x86_64 so far, use the ancient C version on other platforms (FIXME).
+  (if (string-prefix? "x86_64-" system)
+      librsvg
+      librsvg-2.40))
+
+(export librsvg-for-system)
+
 (define-public libidl
   (package
     (name "libidl")