;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner ;;; Copyright © 2017 Ricardo Wurmus ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice ;;; Copyright © 2018, 2021 Ludovic Courtès ;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou ;;; Copyright © 2019 Clément Lassieur ;;; Copyright © 2020 Jakub Kądziołka ;;; Copyright © 2021 Stefan Reichör ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages sync) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix build-system cmake) #:use-module (guix build-system copy) #:use-module (guix build-system gnu) #:use-module (guix build-system go) #:use-module (guix build-system meson) #:use-module (guix build-system qt) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix packages) #:use-module (gnu packages) #:use-module (gnu packages acl) #:use-module (gnu packages adns) #:use-module (gnu packages autotools) #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages curl) #:use-module (gnu packages documentation) #:use-module (gnu packages freedesktop) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages golang) #:use-module (gnu packages graphviz) #:use-module (gnu packages image) #:use-module (gnu packages kde-frameworks) #:use-module (gnu packages linux) #:use-module (gnu packages lua) #:use-module (gnu packages ocaml) #:use-module (gnu packages pcre) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages readline) #:use-module (gnu packages rsync) #:use-module (gnu packages ruby) #:use-module (gnu packages selinux) #:use-module (gnu packages shells) #:use-module (gnu packages sphinx) #:use-module (gnu packages sqlite) #:use-module (gnu packages tls)) (define-public nextcloud-client (package (name "nextcloud-client") (version "3.1.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nextcloud/desktop") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "15ymk3gvfmgwzmqbhlw7jjy9y65ib3391h1dlmpll65iaj2miajk")) (modules '((guix build utils) (ice-9 ftw) (srfi srfi-1))) (snippet '(begin ;; Not available in Guix. (let* ((keep '("QProgressIndicator" "qtokenizer"))) (with-directory-excursion "src/3rdparty" (for-each delete-file-recursively (lset-difference string=? (scandir ".") (cons* "." ".." keep))))) (with-directory-excursion "src/gui" (substitute* "CMakeLists.txt" ;; Remove references of deleted 3rdparties. (("[ \t]*\\.\\./3rdparty/qtlockedfile/?.*\\.cpp") "") (("[ \t]*\\.\\./3rdparty/qtsingleapplication/?.*\\.cpp") "") (("[ \t]*\\.\\./3rdparty/kmessagewidget/?.*\\.cpp") "") (("[ \t]*list\\(APPEND 3rdparty_SRC \\.\\./3rdparty/?.*\\)") "") (("\\$\\{CMAKE_SOURCE_DIR\\}/src/3rdparty/qtlockedfile") "") (("\\$\\{CMAKE_SOURCE_DIR\\}/src/3rdparty/qtsingleapplication") "") (("\\$\\{CMAKE_SOURCE_DIR\\}/src/3rdparty/kmessagewidget") ;; For this, we rely on build inputs, so let's just replace ;; them by an autoconf-style variable. "@kwidgetsaddons@") ;; Expand libraries, that used to be statically linked, but ;; no longer are post-vendoring. (("\\$\\{synclib_NAME\\}") (string-append "${synclib_NAME} " "QtSolutions_LockedFile " "QtSolutions_SingleApplication " "KF5WidgetsAddons"))) ;; Fix compatibility with QtSingleApplication from QtSolutions. (substitute* '("application.h" "application.cpp") (("SharedTools::QtSingleApplication") "QtSingleApplication") (("slotParseMessage\\(const QString &(msg)?.*\\)") "slotParseMessage(const QString &msg)"))) #t)))) (build-system qt-build-system) (arguments `(#:configure-flags (list "-DUNIT_TESTING=ON" ;; Upstream Bug: https://github.com/nextcloud/desktop/issues/2885 "-DNO_SHIBBOLETH=ON") #:imported-modules ((guix build glib-or-gtk-build-system) ,@%qt-build-system-modules) #:modules (((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) (guix build qt-build-system) (guix build utils)) #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-cmake (lambda* (#:key inputs #:allow-other-keys) ;; Patch install directory for dbus service files. (substitute* "shell_integration/libcloudproviders/CMakeLists.txt" (("PKGCONFIG_GETVAR\\(.+ _install_dir\\)") (string-append "set(_install_dir \"${CMAKE_INSTALL_PREFIX}" "/share/dbus-1/services\")"))) (substitute* "shell_integration/dolphin/CMakeLists.txt" ;; Make sure, that Qt modules are installed under $prefix. (("ON CACHE") "OFF CACHE")) (substitute* "src/gui/CMakeLists.txt" (("@kwidgetsaddons@") (search-input-directory inputs "/include/KF5/KWidgetsAddons/"))))) (add-before 'check 'pre-check (lambda _ ;; Tests write to $HOME. (setenv "HOME" (getcwd)) #t)) (add-after 'install 'glib-or-gtk-compile-schemas (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))))) (native-inputs `(("cmocka" ,cmocka) ("dot" ,graphviz) ("doxygen" ,doxy