rewrite: apply guix-reference formatting; cleanup some module imports

1 files changed, 250 insertions, 238 deletions

diff --git a/px/packages/desktop-tools.scm b/px/packages/desktop-tools.scm
index b5ab50a..1cfd004 100644
--- a/px/packages/desktop-tools.scm
+++ b/px/packages/desktop-tools.scm
@@ -1,12 +1,13 @@
 ;;; PantherX Desktop Packages and Tools
-;;; Author: Reza Alizadeh Majd (r.majd@pantherx.org)
+;;; Reza Alizadeh Majd (r.majd@pantherx.org)
 ;;;
 ;;; Note: This module is exported from (px packages desktop) to prevent
 ;;;       circular import problem.
 ;;;
 
 (define-module (px packages desktop-tools)
-  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module ((guix licenses)
+                #:prefix license:)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system qt)
   #:use-module (guix build-system copy)
@@ -39,48 +40,52 @@
   #:use-module (px packages images)
   #:use-module (srfi srfi-1))
 
-
 (define-public px-recoll
   (package
     (inherit recoll)
     (name "px-recoll")
     (arguments
-      '(#:tests? #f
-        #:configure-flags '("--disable-webkit" ; no qtwebkit yet
-                            "--with-inotify"
-                            "--enable-recollq"
-                           "QMAKEPATH=")
-        #:phases
-          (modify-phases %standard-phases
-            (add-after 'unpack 'patch-icon
-              (lambda _
-                ;;Update icon
-                (substitute* '("desktop/recoll-searchgui.desktop") 
-                  (("Icon=recoll") 
-                    "Icon=preferences-desktop-search"))
-                (substitute* '("qtgui/main.cpp") 
-                  (("app.setWindowIcon\\(icon\\)") 
-                    "app.setWindowIcon(QIcon::fromTheme(\"preferences-desktop-search\"))"))
-                (substitute* '("qtgui/rclmain_w.cpp") 
-                  (("QIcon\\(QString\\(\":/images/recoll.png\"\\)\\)") 
-                    "QIcon::fromTheme(\"preferences-desktop-search\")"))
-                ;;Enable show tray icon
-                (substitute* '("qtgui/guiutils.cpp")
-                  (("showTrayIcon\", Bool, false") "showTrayIcon\", Bool, true"))
-                ;;Enable show close to tray
-                (substitute* '("qtgui/guiutils.cpp")
-                  (("closeToTray\", Bool, false") "closeToTray\", Bool, true"))
-                ;;Enable desktop notification 
-                (substitute* '("qtgui/guiutils.cpp");
-                  (("trayMessages\", Bool, false") "trayMessages\", Bool, true"))
-                ;;Rename Recoll to Advanced Search
-                (substitute* '("desktop/recoll-searchgui.desktop");
-                  (("Name=Recoll") "Name=Advanced Search"))
-                ;;Update category to Settings
-                (substitute* '("desktop/recoll-searchgui.desktop");
-                  (("Categories=Qt;Utility;Filesystem;Database;") "Categories=Settings;"))
-                #t)))))))
-    
+     '(#:tests? #f
+       #:configure-flags '("--disable-webkit" ;no qtwebkit yet
+                           "--with-inotify" "--enable-recollq" "QMAKEPATH=")
+       #:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'patch-icon
+                    (lambda _
+                      ;; Update icon
+                      (substitute* '("desktop/recoll-searchgui.desktop")
+                        (("Icon=recoll")
+                         "Icon=preferences-desktop-search"))
+                      (substitute* '("qtgui/main.cpp")
+                        (("app.setWindowIcon\\(icon\\)")
+                         "app.setWindowIcon(QIcon::fromTheme(\"preferences-desktop-search\"))"))
+                      (substitute* '("qtgui/rclmain_w.cpp")
+                        (("QIcon\\(QString\\(\":/images/recoll.png\"\\)\\)")
+                         "QIcon::fromTheme(\"preferences-desktop-search\")"))
+                      ;; Enable show tray icon
+                      (substitute* '("qtgui/guiutils.cpp")
+                        (("showTrayIcon\", Bool, false")
+                         "showTrayIcon\", Bool, true"))
+                      ;; Enable show close to tray
+                      (substitute* '("qtgui/guiutils.cpp")
+                        (("closeToTray\", Bool, false")
+                         "closeToTray\", Bool, true"))
+                      ;; Enable desktop notification
+                      (substitute* '("qtgui/guiutils.cpp")
+                         ;
+                        (("trayMessages\", Bool, false")
+                         "trayMessages\", Bool, true"))
+                      ;; Rename Recoll to Advanced Search
+                      (substitute* '("desktop/recoll-searchgui.desktop")
+                         ;
+                        (("Name=Recoll")
+                         "Name=Advanced Search"))
+                      ;; Update category to Settings
+                      (substitute* '("desktop/recoll-searchgui.desktop")
+                         ;
+                        (("Categories=Qt;Utility;Filesystem;Database;")
+                         "Categories=Settings;"))
+                      #t)))))))
+
 (define-public albert-launcher
   (package
     (name "albert-launcher")
@@ -88,125 +93,129 @@
     (source
      (origin
        (method git-fetch)
-       (uri (git-reference 
-                   (url "https://github.com/albertlauncher/albert")
-                   (commit "579d063b8e90fd854fd4738480c2d8dc833f908e")
-                   (recursive? #t)))
+       (uri (git-reference
+             (url "https://github.com/albertlauncher/albert")
+             (commit "579d063b8e90fd854fd4738480c2d8dc833f908e")
+             (recursive? #t)))
        (sha256
         (base32 "1cqh4nsvxwarxm7v0fyzabph3c2ff3ap0q2xi2h4c0s2snrk4qh4"))
-                (file-name (git-file-name name version))))
+       (file-name (git-file-name name version))))
     (build-system cmake-build-system)
     (arguments
-      '(#:tests? #f
-        #:configure-flags '("-DBUILD_VIRTUALBOX=OFF" "-DCMAKE_INSTALL_LIBDIR=libs")
-        #:phases
-          (modify-phases %standard-phases
-            (add-after 'unpack 'patch-cmakelists
-              (lambda _
-                  ;; path-main-cpp-add-plugin-dirs
-                  (substitute* '("src/app/main.cpp")
-                    (("QStringList dirs = \\{") (string-append "QStringList dirs = {\"" %output "/libs\", " )))
-                  ;; Adding X11Extras to target_link_libraries of widgetboxmodel plugin
-                  (substitute* '("plugins/widgetboxmodel/CMakeLists.txt")
-                    (("COMPONENTS Widgets") "COMPONENTS Widgets X11Extras"))
-                  (substitute* '("plugins/widgetboxmodel/CMakeLists.txt")
-                    (("Qt5::Widgets") "Qt5::Widgets Qt5::X11Extras X11"))
-                  ;; Adding X11Extras to target_link_libraries of qmlboxmodel plugin
-                  (substitute* '("plugins/qmlboxmodel/CMakeLists.txt")
-                    (("COMPONENTS Widgets") "COMPONENTS Widgets X11Extras"))
-                  (substitute* '("plugins/qmlboxmodel/CMakeLists.txt")
-                    (("Qt5::Widgets") "Qt5::Widgets Qt5::X11Extras X11"))
-                #t)))))
-    (native-inputs `(
-              ("libx11" ,libx11)
-              ("muparser" ,muparser)
-              ("pkg-config" ,pkg-config)
-              ("python3" ,python)
-              ("qtbase" ,qtbase-5)
-              ("qtcharts" ,qtcharts)
-              ("qtdeclarative" ,qtdeclarative-5)
-              ("qtsvg" ,qtsvg-5)
-              ("qtx11extras" ,qtx11extras)))
+     '(#:tests? #f
+       #:configure-flags '("-DBUILD_VIRTUALBOX=OFF"
+                           "-DCMAKE_INSTALL_LIBDIR=libs")
+       #:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'patch-cmakelists
+                    (lambda _
+                      ;; path-main-cpp-add-plugin-dirs
+                      (substitute* '("src/app/main.cpp")
+                        (("QStringList dirs = \\{")
+                         (string-append "QStringList dirs = {\"" %output
+                                        "/libs\", ")))
+                      ;; Adding X11Extras to target_link_libraries of widgetboxmodel plugin
+                      (substitute* '("plugins/widgetboxmodel/CMakeLists.txt")
+                        (("COMPONENTS Widgets")
+                         "COMPONENTS Widgets X11Extras"))
+                      (substitute* '("plugins/widgetboxmodel/CMakeLists.txt")
+                        (("Qt5::Widgets")
+                         "Qt5::Widgets Qt5::X11Extras X11"))
+                      ;; Adding X11Extras to target_link_libraries of qmlboxmodel plugin
+                      (substitute* '("plugins/qmlboxmodel/CMakeLists.txt")
+                        (("COMPONENTS Widgets")
+                         "COMPONENTS Widgets X11Extras"))
+                      (substitute* '("plugins/qmlboxmodel/CMakeLists.txt")
+                        (("Qt5::Widgets")
+                         "Qt5::Widgets Qt5::X11Extras X11"))
+                      #t)))))
+    (native-inputs `(("libx11" ,libx11)
+                     ("muparser" ,muparser)
+                     ("pkg-config" ,pkg-config)
+                     ("python3" ,python)
+                     ("qtbase" ,qtbase-5)
+                     ("qtcharts" ,qtcharts)
+                     ("qtdeclarative" ,qtdeclarative-5)
+                     ("qtsvg" ,qtsvg-5)
+                     ("qtx11extras" ,qtx11extras)))
     (home-page "https://albertlauncher.github.io/")
     (synopsis "Albert is a unified and efficient access to your machine.")
-    (description "Albert is a desktop agnostic launcher. Its goals are usability and beauty, performance and extensibility. It is written in C++ and based on the Qt framework.")
+    (description
+     "Albert is a desktop agnostic launcher. Its goals are usability and beauty, performance and extensibility. It is written in C++ and based on the Qt framework.")
     (license license:gpl3+)))
 
-
 (define-public px-file-archiver
   (package
     (inherit lxqt-archiver)
     (name "px-file-archiver")
     (version "0.5.0")
     (source
-      (origin
-        (method git-fetch)
-        (uri (git-reference
-               (url (string-append "https://github.com/lxqt/lxqt-archiver.git"))
-               (commit version)))
-        (file-name (git-file-name "lxqt-archiver" version))
-        (sha256
-         (base32 "0qz3j0qby78ngck60rv7kgwygya8cr1v4kn575wrsg3w287v33qb"))))
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url (string-append "https://github.com/lxqt/lxqt-archiver.git"))
+             (commit version)))
+       (file-name (git-file-name "lxqt-archiver" version))
+       (sha256
+        (base32 "0qz3j0qby78ngck60rv7kgwygya8cr1v4kn575wrsg3w287v33qb"))))
     (arguments
-      '(#:tests? #f
-        #:phases 
-          (modify-phases %standard-phases
-            (add-after 'unpack 'patch-app-name
-              (lambda _
-                (substitute* (find-files "src/translations" "\\.desktop.yaml")  
-                  (("LXQt File Archiver") "File Archiver"))
-                #t)))))))
-
+     '(#:tests? #f
+       #:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'patch-app-name
+                    (lambda _
+                      (substitute* (find-files "src/translations"
+                                               "\\.desktop.yaml")
+                        (("LXQt File Archiver")
+                         "File Archiver")) #t)))))))
 
 (define-public px-image-viewer
   (package
-   (inherit qimgv)
-   (name "px-image-viewer")
-   (arguments
-    '(#:tests? #f
-      #:phases
-      (modify-phases %standard-phases
-        (add-after 'unpack 'patch-menu-item
-          (lambda _
-            (substitute* '("qimgv/distrib/qimgv.desktop")
-                         (("Name=qimgv") "Name=Pictures"))
-            #t)))))))
+    (inherit qimgv)
+    (name "px-image-viewer")
+    (arguments
+     '(#:tests? #f
+       #:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'patch-menu-item
+                    (lambda _
+                      (substitute* '("qimgv/distrib/qimgv.desktop")
+                        (("Name=qimgv")
+                         "Name=Pictures")) #t)))))))
 
 (define-public px-terminal
   (package
     (inherit qterminal)
     (name "px-terminal")
     (arguments
-      '(#:tests? #f
-        #:phases
-          (modify-phases %standard-phases
-            (add-after 'unpack 'patch-menu-item 
-              (lambda _
-                (substitute* (find-files "src/translations" "\\.desktop.yaml")  
-                  (("QTerminal") "Terminal"))
-                (substitute* (find-files "src/translations" "\\.desktop.yaml")  
-                  (("Qterminal") "Terminal"))
-                (substitute* '("CMakeLists.txt")
-                  (("qterminal-drop.desktop.in") ""))
-                #t)))))))
+     '(#:tests? #f
+       #:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'patch-menu-item
+                    (lambda _
+                      (substitute* (find-files "src/translations"
+                                               "\\.desktop.yaml")
+                        (("QTerminal")
+                         "Terminal"))
+                      (substitute* (find-files "src/translations"
+                                               "\\.desktop.yaml")
+                        (("Qterminal")
+                         "Terminal"))
+                      (substitute* '("CMakeLists.txt")
+                        (("qterminal-drop.desktop.in")
+                         "")) #t)))))))
 
 (define-public qlipper
   (package
     (name "qlipper")
     (version "5.1.2")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/pvanek/qlipper/archive/" version ".tar.gz"))
-        (sha256
-          (base32
-            "0vbhiyn56qwlssavim02kp0y5rxj6gdffchyigkhpg8qza64afch"))))
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://github.com/pvanek/qlipper/archive/"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "0vbhiyn56qwlssavim02kp0y5rxj6gdffchyigkhpg8qza64afch"))))
     (build-system cmake-build-system)
     (arguments
-      `(#:tests? #f))
-    (native-inputs
-      (list qtbase-5 qttools-5))
+     `(#:tests? #f))
+    (native-inputs (list qtbase-5 qttools-5))
     (home-page "https://github.com/pvanek/qlipper")
     (synopsis "Lightweight and cross-platform clipboard history applet.")
     (description "Lightweight and cross-platform clipboard history applet.")
@@ -217,20 +226,20 @@
     (name "cpputilities")
     (version "5.22.0")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/Martchus/cpp-utilities/archive/refs/tags/v" version ".tar.gz"))
-        (sha256
-          (base32
-            "18mbzw8w0a4l5r0w1fr200m4v8ww65r838618z19v1ymz6aahs7a"))))
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/Martchus/cpp-utilities/archive/refs/tags/v"
+             version ".tar.gz"))
+       (sha256
+        (base32 "18mbzw8w0a4l5r0w1fr200m4v8ww65r838618z19v1ymz6aahs7a"))))
     (build-system cmake-build-system)
-    (inputs
-      `(("gcc" ,gcc-11)))
+    (inputs `(("gcc" ,gcc-11)))
     (arguments
-      `(#:tests? #f
-        #:configure-flags '("-DCMAKE_VERBOSE_MAKEFILE=ON" "-DBUILD_VIRTUALBOX=OFF" "-DCMAKE_INSTALL_LIBDIR=libs")
-        ))
+     `(#:tests? #f
+       #:configure-flags '("-DCMAKE_VERBOSE_MAKEFILE=ON"
+                           "-DBUILD_VIRTUALBOX=OFF"
+                           "-DCMAKE_INSTALL_LIBDIR=libs")))
     (home-page "https://github.com/Martchus/cpp-utilities/")
     (synopsis "Useful C++ classes and routines")
     (description "Useful C++ classes and routines such as
@@ -242,72 +251,82 @@ argument parser, IO and conversion utilities.")
     (name "qtutilities")
     (version "6.12.0")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/Martchus/qtutilities/archive/refs/tags/v" version ".tar.gz"))
-        (sha256
-          (base32
-            "0b58i66hhfg18d9bzbkzx8m34x070af5k3dankz5q69dr1lbrf6k"))))
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/Martchus/qtutilities/archive/refs/tags/v"
+             version ".tar.gz"))
+       (sha256
+        (base32 "0b58i66hhfg18d9bzbkzx8m34x070af5k3dankz5q69dr1lbrf6k"))))
     (build-system cmake-build-system)
-    (native-inputs
-      (list cpputilities qtbase-5 qttools-5))
+    (native-inputs (list cpputilities qtbase-5 qttools-5))
     (arguments
-      `(#:tests? #f
-        ))
+     `(#:tests? #f))
     (home-page "https://github.com/Martchus/qtutilities")
     (synopsis "Common Qt related C++ classes and routines")
     (description "Common Qt related C++ classes and routines")
     (license license:gpl2+)))
 
 (define-public fork-awesome
-    (package
-      (name "fork-awesome")
+  (package
+    (name "fork-awesome")
     (version "1.2.0")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/ForkAwesome/Fork-Awesome/archive/refs/tags/" version ".tar.gz"))
-        (sha256
-          (base32
-            "1cxxbyklk139cj7hw9jiq51cmmqgn74z8ysl9i0y017jj7qsbyr3"))))
-      (build-system copy-build-system)
-      (arguments
-       '(#:install-plan
-         '(("fonts" "share/")
-           ("src" "share/"))))
-      (home-page "https://github.com/ForkAwesome/Fork-Awesome")
-      (synopsis "A fork of the iconic font and CSS toolkit ")
-      (description "Fork Awesome is a suite of 796 pictographic and
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/ForkAwesome/Fork-Awesome/archive/refs/tags/"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1cxxbyklk139cj7hw9jiq51cmmqgn74z8ysl9i0y017jj7qsbyr3"))))
+    (build-system copy-build-system)
+    (arguments
+     '(#:install-plan '(("fonts" "share/")
+                        ("src" "share/"))))
+    (home-page "https://github.com/ForkAwesome/Fork-Awesome")
+    (synopsis "A fork of the iconic font and CSS toolkit ")
+    (description
+     "Fork Awesome is a suite of 796 pictographic and
 brand icons for easy, scalable vector graphics on websites and beyond.")
-      (license license:expat)))
+    (license license:expat)))
 
 (define-public qtforkawesome
   (package
     (name "qtforkawesome")
     (version "0.1.0")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/Martchus/qtforkawesome/archive/refs/tags/v" version ".tar.gz"))
-        (sha256
-          (base32
-            "0pj4w93vrsmgqlgihwz6s2jdazmfsdw3lxns7wk9908l4ilcqw9d"))))
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/Martchus/qtforkawesome/archive/refs/tags/v"
+             version ".tar.gz"))
+       (sha256
+        (base32 "0pj4w93vrsmgqlgihwz6s2jdazmfsdw3lxns7wk9908l4ilcqw9d"))))
     (build-system cmake-build-system)
-    (native-inputs
-      (list gcc-11 qtutilities cpputilities qtbase-5 qtquickcontrols-5 qtquickcontrols2-5 qtdeclarative-5 perl perl-yaml fork-awesome))
+    (native-inputs (list gcc-11
+                         qtutilities
+                         cpputilities
+                         qtbase-5
+                         qtquickcontrols-5
+                         qtquickcontrols2-5
+                         qtdeclarative-5
+                         perl
+                         perl-yaml
+                         fork-awesome))
     (arguments
-      `(#:tests? #f
-          #:configure-flags
-          ,#~(list (string-append "-DFORK_AWESOME_FONT_FILE="
-                                    #$(this-package-native-input "fork-awesome") "/share/fonts/forkawesome-webfont.woff2")
-                  (string-append "-DFORK_AWESOME_ICON_DEFINITIONS="
-                                    #$(this-package-native-input "fork-awesome") "/share/src/icons/icons.yml"))))
+     `(#:tests? #f
+       #:configure-flags ,#~(list (string-append "-DFORK_AWESOME_FONT_FILE="
+                                   #$(this-package-native-input "fork-awesome")
+                                   "/share/fonts/forkawesome-webfont.woff2")
+                                  (string-append
+                                   "-DFORK_AWESOME_ICON_DEFINITIONS="
+                                   #$(this-package-native-input "fork-awesome")
+                                   "/share/src/icons/icons.yml"))))
     (home-page "https://github.com/Martchus/qtforkawesome/")
-    (synopsis "Useful C++ classes and routines such as argument parser, IO and conversion utilities.")
-    (description "Useful C++ classes and routines such as argument parser, IO and conversion utilities.")
+    (synopsis
+     "Useful C++ classes and routines such as argument parser, IO and conversion utilities.")
+    (description
+     "Useful C++ classes and routines such as argument parser, IO and conversion utilities.")
     (license license:gpl2+)))
 
 (define-public qxkb
@@ -315,22 +334,19 @@ brand icons for easy, scalable vector graphics on websites and beyond.")
     (name "qxkb")
     (version "0.5.2")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/thegala/qxkb/archive/refs/tags/" name "-" version ".tar.gz"))
-        (sha256
-          (base32
-            "1nprswfdnqmy6xs6pdkzy6c3xkzh79zifdvy4vpw4l41gnqrl94s"))))
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/thegala/qxkb/archive/refs/tags/" name "-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1nprswfdnqmy6xs6pdkzy6c3xkzh79zifdvy4vpw4l41gnqrl94s"))))
     (build-system qt-build-system)
-    (inputs
-      (list libxkbfile
-            qtbase-5
-            qtsvg-5
-            qtx11extras))
-    (native-inputs
-      (list qttools-5))
-    (arguments (list #:tests? #f))           ; no upstream tests
+    (inputs (list libxkbfile qtbase-5 qtsvg-5 qtx11extras))
+    (native-inputs (list qttools-5))
+    (arguments
+     (list
+      #:tests? #f)) ;no upstream tests
     (home-page "https://github.com/thegala/qxkb")
     (synopsis "Keyboard layout switcher")
     (description "Keyboard layout switcher")
@@ -341,43 +357,40 @@ brand icons for easy, scalable vector graphics on websites and beyond.")
     (name "syncthingtray")
     (version "1.4.1")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://github.com/Martchus/syncthingtray/archive/refs/tags/v" version ".tar.gz"))
-        (sha256
-          (base32
-            "0cyimd018bknvip6jxz83w0va05kgfcix53jryqdka665p4048ba"))))
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/Martchus/syncthingtray/archive/refs/tags/v"
+             version ".tar.gz"))
+       (sha256
+        (base32 "0cyimd018bknvip6jxz83w0va05kgfcix53jryqdka665p4048ba"))))
     (build-system cmake-build-system)
     (arguments
      `(#:tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'build
-              (lambda _
-                (invoke "make" "-j" "1")
-                #t))
-         (add-after 'install 'wrap
-           ;; The program fails to find the QtWebEngineProcess program,
-           ;; so we set QTWEBENGINEPROCESS_PATH to help it.
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((bin (string-append (assoc-ref outputs "out") "/bin"))
-                   (qtwebengineprocess (string-append
-                                        (assoc-ref inputs "qtwebengine")
-                                        "/lib/qt5/libexec/QtWebEngineProcess")))
-               (for-each (lambda (program)
-                           (wrap-program program
-                             `("QTWEBENGINEPROCESS_PATH" =
-                               (,qtwebengineprocess))))
-                         (find-files bin ".*")))
-             #t)))))
-    (native-inputs
-      (list extra-cmake-modules qttools-5 gcc-11))
-    (inputs `(
-              ("qtbase" ,qtbase-5)
+       #:phases (modify-phases %standard-phases
+                  (replace 'build
+                    (lambda _
+                      (invoke "make" "-j" "1") #t))
+                  (add-after 'install 'wrap
+                    ;; The program fails to find the QtWebEngineProcess program,
+                    ;; so we set QTWEBENGINEPROCESS_PATH to help it.
+                    (lambda* (#:key inputs outputs #:allow-other-keys)
+                      (let ((bin (string-append (assoc-ref outputs "out")
+                                                "/bin"))
+                            (qtwebengineprocess (string-append (assoc-ref
+                                                                inputs
+                                                                "qtwebengine")
+                                                 "/lib/qt5/libexec/QtWebEngineProcess")))
+                        (for-each (lambda (program)
+                                    (wrap-program program
+                                      `("QTWEBENGINEPROCESS_PATH" =
+                                        (,qtwebengineprocess))))
+                                  (find-files bin ".*"))) #t)))))
+    (native-inputs (list extra-cmake-modules qttools-5 gcc-11))
+    (inputs `(("qtbase" ,qtbase-5)
               ("qtquickcontrols2" ,qtquickcontrols2-5)
               ("qtutilities" ,qtutilities)
-              ("boost", boost)
+              ("boost" ,boost)
               ("gcc" ,gcc-11)
               ("qtdeclarative" ,qtdeclarative-5)
               ("qtsvg" ,qtsvg-5)
@@ -401,11 +414,10 @@ brand icons for easy, scalable vector graphics on websites and beyond.")
     (name "px-about")
     (version "1.2.0")
     (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-          "https://source.pantherx.org/" name"_" version ".tgz"))
-        (sha256
-          (base32
-            "12cnydcw8rhbwh21j8ayj2x47nvr5zicnqfp6r13dapy1nss5rd4"))))))
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://source.pantherx.org/" name "_" version
+                           ".tgz"))
+       (sha256
+        (base32 "12cnydcw8rhbwh21j8ayj2x47nvr5zicnqfp6r13dapy1nss5rd4"))))))