guix/gnu/packages/mastodon.scm
Lilah Tascheter 88027480b5
gnu: tuba: Fix videoplayer crash and webp support.
* gnu/packages/mastodon.scm (tuba)[arguments]<phases: Add lib-vars-wrap
phase to set GST_PLUGIN_SYSTEM_PATH and GDK_PIXBUF_MODULE_FILE
variables.
(tuba)[native-inputs]: Add gdk-pixbuf.
(tuba)[inputs]: Add gstreamer, gst-plugins-bad, gst-plugins-base,
gst-plugins-good and webp-pixbuf-loader.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
2023-07-10 00:33:58 -04:00

242 lines
8.4 KiB
Scheme

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Taiju HIGASHI <higashi@taiju.info>
;;;
;;; 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 <http://www.gnu.org/licenses/>.
(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 #~(list "-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)))