04/04: gnu: wsjtx: Only build html documentation on supported systems.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit b0bfddd7f937fcefdaeb1de4ccafd415c1df4122
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Nov 8 22:06:25 2023 +0200

    gnu: wsjtx: Only build html documentation on supported systems.
    
    * gnu/packages/radio.scm (wsjtx)[arguments]: Add configure-flag to skip
    html documentation on systems where ruby-asciidoctor isn't supported.
    [native-inputs]: Don't build with ruby-asciidoctor on systems where it
    isn't supported.
    
    Change-Id: I73436f887933e6b37033c8ba3ff32ba125a797f8
---
 gnu/packages/radio.scm | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/radio.scm b/gnu/packages/radio.scm
index 17589b584c..41810cb382 100644
--- a/gnu/packages/radio.scm
+++ b/gnu/packages/radio.scm
@@ -13,6 +13,7 @@
 ;;; Copyright © 2022 Greg Hogan <code@greghogan.com>
 ;;; Copyright © 2022 Ryan Tolboom <ryan@using.tech>
 ;;; Copyright © 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
+;;; Copyright © 2023 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1662,13 +1663,19 @@ instances over the network, and general QSO and 
DXpedition logging.")
         (base32 "1lqd77v9xm58k9g9kfwxva3mmzm1yyk1v27nws5j1a293zfg2hkw"))))
     (build-system qt-build-system)
     (arguments
-     (list #:tests? #f)) ; No test suite
+     (list #:tests? #f   ; No test suite
+           #:configure-flags
+           (if (this-package-native-input "ruby-asciidoctor")
+             #~'()
+             #~(list "-DWSJT_GENERATE_DOCS=OFF"))))
     (native-inputs
-     (list asciidoc
-           gfortran
-           pkg-config
-           qttools-5
-           ruby-asciidoctor))
+     (append (list asciidoc
+                   gfortran
+                   pkg-config
+                   qttools-5)
+             (if (supported-package? ruby-asciidoctor)
+               (list ruby-asciidoctor)
+               '())))
     (inputs
      (list boost
            fftw