initial commit

1 files changed, 426 insertions, 0 deletions

diff --git a/px/packages/desktop-tools.scm b/px/packages/desktop-tools.scm
new file mode 100644
index 0000000..e534c0f
--- /dev/null
+++ b/px/packages/desktop-tools.scm
@@ -0,0 +1,426 @@
+;;; PantherX Desktop Packages and Tools
+;;; Author: 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 build-system cmake)
+  #:use-module (guix build-system qt)
+  #:use-module (guix build-system copy)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages cups)
+  #:use-module (gnu packages freedesktop)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gnuzilla)
+  #:use-module (gnu packages lxqt)
+  #:use-module (gnu packages mate)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages pdf)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages search)
+  #:use-module (gnu packages video)
+  #:use-module (gnu packages xfce)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages kde-frameworks)
+  #: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)))))))
+    
+(define-public albert-launcher
+  (package
+    (name "albert-launcher")
+    (version "v0.16.1-0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference 
+                   (url "https://github.com/albertlauncher/albert")
+                   (commit "579d063b8e90fd854fd4738480c2d8dc833f908e")
+                   (recursive? #t)))
+       (sha256
+        (base32 "1cqh4nsvxwarxm7v0fyzabph3c2ff3ap0q2xi2h4c0s2snrk4qh4"))
+                (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)))
+    (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.")
+    (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"))))
+    (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)))))))
+
+
+(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)))))))
+
+(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)))))))
+
+(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"))))
+    (build-system cmake-build-system)
+    (arguments
+      `(#: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.")
+    (license license:gpl2+)))
+
+
+(define-public px-network-manager-applet
+  (package
+   (inherit network-manager-applet)
+   (name "px-network-manager-applet")
+   (arguments
+    (substitute-keyword-arguments (package-arguments network-manager-applet)
+      ((#:phases phases)
+       `(modify-phases ,phases
+          (add-after 'unpack 'patch-menu-item
+            (lambda _
+              (substitute* '("nm-connection-editor.desktop.in")
+                           (("Name=Advanced Network Configuration") "Name=Network"))
+              #t))))))))
+
+(define-public cpputilities
+  (package
+    (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"))))
+    (build-system cmake-build-system)
+    (inputs
+      `(("gcc" ,gcc-11)))
+    (arguments
+      `(#: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
+argument parser, IO and conversion utilities.")
+    (license license:gpl2+)))
+
+(define-public qtutilities
+  (package
+    (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"))))
+    (build-system cmake-build-system)
+    (native-inputs
+      (list cpputilities qtbase-5 qttools-5))
+    (arguments
+      `(#: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")
+    (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
+brand icons for easy, scalable vector graphics on websites and beyond.")
+      (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"))))
+    (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))
+    (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"))))
+    (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.")
+    (license license:gpl2+)))
+
+(define-public qxkb
+  (package
+    (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"))))
+    (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
+    (home-page "https://github.com/thegala/qxkb")
+    (synopsis "Keyboard layout switcher")
+    (description "Keyboard layout switcher")
+    (license license:gpl2+)))
+
+(define-public syncthingtray
+  (package
+    (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"))))
+    (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)
+              ("qtquickcontrols2" ,qtquickcontrols2-5)
+              ("qtutilities" ,qtutilities)
+              ("boost", boost)
+              ("gcc" ,gcc-11)
+              ("qtdeclarative" ,qtdeclarative-5)
+              ("qtsvg" ,qtsvg-5)
+              ("qtwebchannel-5" ,qtwebchannel-5)
+              ("qtwebengine" ,qtwebengine-5)
+              ("plasma-framework" ,plasma-framework)
+              ("kwindowsystem" ,kwindowsystem)
+              ("kio" ,kio)
+              ("cppunit" ,cppunit)
+              ("cpputilities" ,cpputilities)
+              ("qtforkawesome" ,qtforkawesome)
+              ("bash-minimal" ,bash-minimal)))
+    (home-page "https://github.com/Martchus/syncthingtray")
+    (synopsis "Qt-based tray application")
+    (description "Qt-based tray application")
+    (license license:gpl2+)))
+
+(define-public px-about
+  (package
+    (inherit lxqt-about)
+    (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"))))))
+