;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019-2023 Efraim Flashner ;;; Copyright © 2019 Tobias Geerinckx-Rice ;;; Copyright © 2021 Taiju HIGASHI ;;; ;;; 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 mastodon) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix build-system meson) #:use-module (guix build-system python) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) #:use-module (gnu packages check) #:use-module (gnu packages databases) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages image) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python-check) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-web) #:use-module (gnu packages python-xyz) #:use-module (gnu packages time) #:use-module (gnu packages xml)) (define-public toot (package (name "toot") (version "0.37.0") (source (origin (method url-fetch) (uri (pypi-uri "toot" version)) (sha256 (base32 "0qx8hyb74r85dxf97k23w0f5rzkrs16mq7h3y37nwp6hl6gia0ci")))) (build-system python-build-system) (arguments '(#:phases (modify-phases %standard-phases (replace 'check (lambda* (#:key tests? inputs outputs #:allow-other-keys) (when tests? (add-installed-pythonpath inputs outputs) (invoke "py.test"))))))) (native-inputs (list python-psycopg2 python-pytest)) (inputs (list python-beautifulsoup4 python-requests python-urwid python-wcwidth)) (home-page "https://github.com/ihabunek/toot/") (synopsis "Mastodon CLI client") (description "Interact with Mastodon social network from the command line. Features include: @itemize @item Posting, replying, deleting statuses @item Support for media uploads, spoiler text, sensitive content @item Search by account or hash tag @item Following, muting and blocking accounts @item Simple switching between authenticated in Mastodon accounts @end itemize") (license license:gpl3))) (define-public tuba (package (name "tuba") (version "0.3.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/GeopJr/Tuba") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1xhyz6wi17g4m76lr6qc75q4xnnw7c3dh3d04dg8m5gzk6j0y89x")))) (build-system meson-build-system) (arguments (list #:glib-or-gtk? #t #:configure-flags ''("-Ddistro=true") #:phases #~(modify-phases %standard-phases (add-after 'glib-or-gtk-wrap 'lib-vars-wrap (lambda _ (let ((gstvar "GST_PLUGIN_SYSTEM_PATH") (pixvar "GDK_PIXBUF_MODULE_FILE")) (wrap-program (string-append #$output "/bin/dev.geopjr.Tuba") `(,gstvar ":" suffix (,(getenv gstvar))) `(,pixvar ":" = (,(getenv pixvar))))))) (add-after 'lib-vars-wrap 'symlink-package (lambda _ (with-directory-excursion (string-append #$output "/bin") (symlink "dev.geopjr.Tuba" "tuba"))))))) (native-inputs (list gdk-pixbuf ; so pixbuf loader cache (for webp) is generated gettext-minimal `(,glib "bin") ; for glib-compile-resources pkg-config)) (inputs (list gst-plugins-bad gst-plugins-base gst-plugins-good gstreamer gtk gtksourceview json-glib libadwaita libgee libsoup-minimal libsecret libwebp libxml2 vala webp-pixbuf-loader)) (home-page "https://tuba.geopjr.dev/") (synopsis "GTK client for Mastodon") (description "Tuba is a GTK client for Mastodon. It provides a clean, native interface that allows you to integrate Mastodon's social experience seamlessly with your desktop environment.") (license license:gpl3))) (define-public tootle (package (name "tootle") (version "1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/bleakgrey/tootle") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1nm57239mhdq462an6bnhdlijpijxmjs9mqbyirwxwa048d3n4rm")) (patches (search-patches ;; https://github.com/bleakgrey/tootle/pull/339 "tootle-glib-object-naming.patch" ;; https://github.com/bleakgrey/tootle/pull/322 "tootle-reason-phrase.patch")))) (build-system meson-build-system) (arguments `(#:glib-or-gtk? #t #:phases (modify-phases %standard-phases (add-after 'unpack 'skip-gtk-update-icon-cache ;; Don't create 'icon-theme.cache'. (lambda _ (substitute* "meson/post_install.py" (("gtk-update-icon-cache") "true")))) (add-after 'unpack 'patch-source (lambda _ (substitute* "src/Dialogs/NewAccount.vala" (("xdg-mime") (which "xdg-mime"))) ;; Patch for building on glib < 2.64 (substitute* "src/Build.vala" (("(os_name = ).*" _ first) (string-append first "\"GNU\";\n")) (("(os_ver = ).*" _ first) (string-append first "\"Guix\";\n")) (("GLib.Environment.get_os_info.*") "\"unknown\";\n")))) (add-after 'install 'symlink-package (lambda* (#:key outputs #:allow-other-keys) (symlink "com.github.bleakgrey.tootle" (string-append (assoc-ref outputs "out") "/bin/tootle"))))))) (native-inputs (list gettext-minimal `(,glib "bin") ; for glib-compile-resources gsettings-desktop-schemas pkg-config)) (inputs (list glib-networking gtk+ json-glib libgee libhandy libsoup-minimal-2 vala xdg-utils)) (home-page "https://github.com/bleakgrey/tootle") (synopsis "GTK3 client for Mastodon") (description "Tootle is a GTK client for Mastodon. It provides a clean, native interface that allows you to integrate Mastodon's social experience seamlessly with your desktop environment.") (license license:gpl3+))) (define-public python-mastodon-py (package (name "python-mastodon-py") (version "1.5.1") (source (origin (method url-fetch) (uri (pypi-uri "Mastodon.py" version)) (sha256 (base32 "1vikvkzcij2gd730cssigxi38vlmzqmwdy58r3y2cwsxifnxpz9a")))) (build-system python-build-system) (propagated-inputs (list python-blurhash python-dateutil python-decorator python-magic python-pytz python-requests python-six)) (native-inputs (list python-blurhash python-cryptography python-http-ece python-pytest python-pytest-cov python-pytest-mock python-pytest-runner python-pytest-vcr python-requests-mock python-vcrpy)) (home-page "https://github.com/halcy/Mastodon.py") (synopsis "Python wrapper for the Mastodon API") (description "This package provides a python wrapper for the Mastodon API.") (license license:expat)))