style: use a more opinionated style when there's no problem

modules/radix/packages/fonts.scm

@@ -15,11 +15,7 @@
               (method url-fetch/zipbomb)
               (uri (string-append
                     "https://github.com/andreberg/Meslo-Font/raw/master/"
-                    "dist/v"
+                    "dist/v" version "Meslo%20LG%20v" version ".zip"))
-                    version
-                    "Meslo%20LG%20v"
-                    version
-                    ".zip"))
               (sha256
                (base32
                 "1l08mxlzaz3i5bamnfr49s2k4k23vdm64b8nz2ha33ysimkbgg6h"))))
@@ -42,11 +38,7 @@
               (method url-fetch/zipbomb)
               (uri (string-append
                     "https://github.com/andreberg/Meslo-Font/raw/master/"
-                    "dist/v"
+                    "dist/v" version "Meslo%20LG%20DZ%20v" version ".zip"))
-                    version
-                    "Meslo%20LG%20DZ%20v"
-                    version
-                    ".zip"))
               (sha256
                (base32
                 "0lnbkrvcpgz9chnvix79j6fiz36wj6n46brb7b1746182rl1l875"))))))

modules/radix/packages/syndication.scm

@@ -26,25 +26,18 @@
     (source (origin
               (method url-fetch)
               (uri (string-append
-                    "https://codeberg.org/grisha/newsraft/archive/newsraft-"
+                    "https://codeberg.org/grisha/newsraft/"
-                    version ".tar.gz"))
+                    "archive/newsraft-" version ".tar.gz"))
               (sha256
                (base32
                 "0r3z8b8qwwnz7093nicxxv9cfxzg4i0mznd4vgwgpv16lm6q455w"))))
     (build-system gnu-build-system)
     (native-inputs (list gnu-make pkg-config scdoc))
-    (inputs (list curl
+    (inputs (list curl expat gumbo-parser ncurses sqlite yajl))
-                  expat
-                  gumbo-parser
-                  ncurses
-                  sqlite
-                  yajl))
     (arguments
      (list #:tests? #f
-           #:make-flags #~(list (string-append "CC="
+           #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
-                                               #$(cc-for-target))
+                                (string-append "PREFIX=" #$output)
-                                (string-append "PREFIX="
-                                               #$output)
                                 "CFLAGS=-DCURL_WRITEFUNC_ERROR=0xFFFFFFFF")
            #:phases #~(modify-phases %standard-phases
                         (delete 'configure))))