;;; 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"))))))