bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions
guix/gnu/packages/gnome-circle.scm
Liliana Marie Prikler bfdf5a0fec
gnu: Add fragments. 
* gnu/packages/patches/fragments-unchain-if-let.patch: New file.
* gnu/local.mk (dist_patch_DATA): Register it here.
* gnu/packages/gnome-circle.scm (fragments): New variable.
* gnu/packages/rust-crates.scm (rust-ashpd-0.11.0, rust-magnet-uri-0.2.1)
(rust-oo7-0.4.3, rust-proc-macro2-1.0.105, rust-schemars-1.2.0)
(rust-serde-json-1.0.149, rust-serde-spanned-1.0.4, rust-serde-with-3.16.1)
(rust-serde-with-macros-3.16.1, rust-smol-2.0.2, rust-uuid-1.19.0)
(rust-zmij-1.0.14): New variables.
(lookup-cargo-inputs): Add ‘fragments’.
2026-01-24 09:32:58 +01:00

896 lines
33 KiB
Scheme
Raw Blame History

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019-2025 Maxim Cournoyer <maxim@guixotic.coop>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
;;; Copyright © 2019-2022 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2019, 2024, 2025 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020 raingloom <raingloom@riseup.net>
;;; Copyright © 2020, 2021, 2022, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2023 Dominik Delgado Steuter <d@delgado.nrw>
;;; Copyright © 2025 Noé Lopez <noelopez@free.fr>
;;;
;;; 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/>.
;;; Comment:
;;; This module is for packages that are part of GNOME Circle
;;; <https://circle.gnome.org/>.
;;; Code:
(define-module (gnu packages gnome-circle)
#:use-module (gnu packages aidc)
#:use-module (gnu packages backup)
#:use-module (gnu packages bash)
#:use-module (gnu packages cmake)
#:use-module (gnu packages enchant)
#:use-module (gnu packages fonts)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages linux)
#:use-module (gnu packages password-utils)
#:use-module (gnu packages pdf)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages python)
#:use-module (gnu packages python-compression)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages rust)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tls)
#:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xml)
#:use-module (gnu packages)
#:use-module (guix build-system cargo)
#:use-module (guix build-system copy)
#:use-module (guix build-system meson)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages))
(define-public apostrophe
(package
(name "apostrophe")
(version "2.6.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/World/apostrophe")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0wsvq2434p650cf3vq5w7a6czbk8in0ra7nji45mvwyfahdyn6j4"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:imported-modules `(,@%meson-build-system-modules
(guix build python-build-system))
#:modules '((guix build meson-build-system)
((guix build python-build-system) #:prefix python:)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-meson
(lambda _
(substitute* "build-aux/meson_post_install.py"
(("gtk-update-icon-cache") "true"))))
(add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (search-input-file outputs "bin/apostrophe")
`("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")
,(python:site-packages inputs outputs)))
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
`("PATH" prefix (,(dirname
(search-input-file inputs
"/bin/pandoc"))))))))))
(inputs
(list bash-minimal
glib
gobject-introspection
gspell
gtk+
libhandy
pandoc
python
python-chardet
python-levenshtein
python-regex
python-pycairo
python-pygobject
python-pyenchant
python-pypandoc
webkitgtk-with-libsoup2))
(native-inputs
(list gettext-minimal
`(,glib "bin")
pkg-config
sassc))
(home-page "https://gitlab.gnome.org/World/apostrophe")
(synopsis "Markdown editor written in Python with GTK+")
(description "Apostrophe is a GTK+ based distraction-free Markdown editor.
It uses pandoc as back-end for parsing Markdown.")
(license license:gpl3)))
(define-public blanket
(package
(name "blanket")
(version "0.8.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rafaelmardojai/blanket/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1inqb8z2vbmfybcrqbla76sny7cg2qz932agynqj4pn9a3zwnw9f"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:phases
#~(modify-phases %standard-phases
(add-after 'glib-or-gtk-wrap 'wrap-libs
(lambda* (#:key outputs #:allow-other-keys)
(let ((gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
(python-path (getenv "GUIX_PYTHONPATH")))
(wrap-program (search-input-file outputs "/bin/blanket")
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
`("GUIX_PYTHONPATH" ":" prefix (,python-path)))))))))
(native-inputs
(list blueprint-compiler
desktop-file-utils
gettext-minimal
`(,glib "bin")
gobject-introspection
`(,gtk+ "bin")
pkg-config))
(inputs
(list appstream-glib
bash-minimal
gsettings-desktop-schemas
gst-plugins-bad
gst-plugins-good ;for ScaleTempo plugin
gtk
libhandy
libadwaita
python
python-gst
python-pygobject))
(home-page "https://github.com/rafaelmardojai/blanket")
(synopsis "Ambient sound and noise player")
(description
"Blanket provides different ambient sounds and types of noise to listen
to with the goal of improving your focus and enhancing your productivity.
You can also use it to fall asleep in a noisy environment.")
(license license:gpl3+)))
(define-public deja-dup
(package
(name "deja-dup")
(version "45.2")
(source (origin
(method url-fetch)
(uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
version "/deja-dup-" version ".tar.bz2"))
(sha256
(base32
"000cwy1haiglkvn5plmhrs2a1fhpcpw6z4mdzck7ybmky795amza"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:configure-flags
#~(list
;; Otherwise, the RUNPATH will lack the final path component.
(string-append "-Dc_link_args=-Wl,-rpath="
(assoc-ref %outputs "out") "/lib/deja-dup"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((python (assoc-ref inputs "python")))
(substitute* '("libdeja/duplicity/DuplicityInstance.vala"
"libdeja/tests/scripts/instance-error.test")
(("/bin/rm")
(which "rm")))
(substitute* "libdeja/tests/runner.vala"
(("/bin/sh")
(which "sh")))
(substitute* "libdeja/tests/scripts/instance-error.test"
(("`which python3`")
(string-append python "/bin/python3"))))))
(add-after 'unpack 'patch-libgpg-error
(lambda* (#:key inputs #:allow-other-keys)
(let ((libgpg-error (assoc-ref inputs "libgpg-error")))
(substitute* "meson.build"
(("(gpgerror_libs = ).*" _ var)
(format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Add duplicity to the search path
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/deja-dup")
`("PATH" ":" prefix
(,(dirname (search-input-file inputs "/bin/duplicity"))))))))))
(inputs
(list bash-minimal
duplicity
gsettings-desktop-schemas
gtk
json-glib
libadwaita
libgpg-error
libnotify
libsecret
libsoup
libhandy
packagekit
python
python-pygobject))
(native-inputs
(list appstream-glib
desktop-file-utils
gettext-minimal
`(,glib "bin") ;for glib-compile-schemas
gobject-introspection
`(,gtk "bin") ;for gtk-update-icon-cache
itstool
pkg-config
vala))
(home-page "https://wiki.gnome.org/Apps/DejaDup")
(synopsis "Simple backup tool, for regular encrypted backups")
(description
"Déjà Dup is a simple backup tool, for regular encrypted backups. It
uses duplicity as the backend, which supports incremental backups and storage
either on a local, or remote machine via a number of methods.")
(license license:gpl3+)))
(define-public dialect
(package
(name "dialect")
(version "2.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dialect-app/dialect")
(commit version)
(recursive? #t))) ;po module
(file-name (git-file-name name version))
(sha256
(base32
"0wac9r33zslyhvadyj7iaapskk7f9pfvia7zlqfksfhkaji6gmna"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t))
(native-inputs (list blueprint-compiler
desktop-file-utils
`(,glib "bin")
gettext-minimal
gobject-introspection
`(,gtk "bin")
pkg-config))
(propagated-inputs (list gstreamer
libadwaita
libsoup
python
python-gtts
python-pygobject
python-requests))
(home-page "https://apps.gnome.org/app/app.drey.Dialect")
(synopsis "Translation application for GNOME")
(description
"Dialect is a simple translation application that uses Google Translate
(default), LibreTranslate or Lingva Translate. It includes features
like automatic language detection, text-to-speech and clipboard buttons.")
(license license:gpl3+)))
(define-public fragments
;; Last release on May 30th, 2024.
(let ((commit "8e35eb799bda65e691691a5c7732aa8e93650b8f")
(revision "0"))
(package
(name "fragments")
(version (git-version "3.0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/World/Fragments")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "02m6r12znvjb31yfb477747ydwz267mzb2m0zny27z18b22a3z0v"))
(patches
(search-patches "fragments-unchain-if-let.patch"))))
(build-system meson-build-system)
(arguments
(list
#:imported-modules `(,@%meson-build-system-modules
,@%cargo-build-system-modules)
#:modules `(((guix build cargo-build-system) #:prefix cargo:)
(guix build meson-build-system)
(guix build utils))
#:phases
(with-extensions (list (cargo-guile-json))
#~(modify-phases %standard-phases
(add-after 'unpack 'prepare-for-build
(lambda _
(substitute* "meson.build"
(("(vcs_tag *)=[^\n]*" all prefix)
(string-append prefix "= '" #$commit "'")))
(substitute* "Cargo.toml"
(("ashpd = \\{ git = \"[^\"]*\"")
"ashpd = { version = \"0.12\""))
(substitute* "data/meson.build"
(("gtk_update_icon_cache: true")
"gtk_update_icon_cache: false")
(("update_desktop_database: true")
"update_desktop_database: false"))
(delete-file "Cargo.lock")))
;; The meson 'configure phase changes to a different directory and
;; we need it created before unpacking the crates.
(add-after 'configure 'prepare-cargo-build-system
(lambda args
(for-each
(lambda (phase)
(format #t "Running cargo phase: ~a~%" phase)
(apply (assoc-ref cargo:%standard-phases phase)
#:vendor-dir "vendor"
#:cargo-target #$(cargo-triplet)
args))
'(unpack-rust-crates
configure
check-for-pregenerated-files
patch-cargo-checksums))))))))
(native-inputs
(append
(list gettext-minimal
`(,glib "bin") ; for glib-compile-schemas
pkg-config
rust
`(,rust "cargo"))
(or (and=> (%current-target-system)
(compose list make-rust-sysroot))
'())))
(inputs (cons* dbus
glib
gtk
libadwaita
openssl
(cargo-inputs 'fragments)))
(home-page "https://apps.gnome.org/de/Fragments/")
(synopsis "Manage torrents")
(description "Fragments is a graphical bittorrent client built on top of
Transmission, and can be used to control remote Transmission instances.")
(license license:gpl3+))))
(define-public gnome-authenticator
(package
(name "gnome-authenticator")
(version "4.4.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/World/Authenticator.git/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0zavax35n048spx097ymiq31s8b879qwbg8xmcxcx73r6m823mic"))))
(build-system meson-build-system)
(arguments
(list
#:imported-modules `(,@%meson-build-system-modules
,@%cargo-build-system-modules)
#:modules `(((guix build cargo-build-system) #:prefix cargo:)
(guix build meson-build-system)
(guix build utils))
#:phases
(with-extensions (list (cargo-guile-json))
#~(modify-phases %standard-phases
(add-after 'unpack 'prepare-for-build
(lambda _
(substitute* "meson.build"
(("gtk_update_icon_cache: true")
"gtk_update_icon_cache: false")
(("update_desktop_database: true")
"update_desktop_database: false"))
;; Help the tests find the Cargo.toml in the sources.
(substitute* "src/meson.build"
(("'test'") "'test', cargo_options"))
(delete-file "Cargo.lock")))
;; The meson 'configure phase changes to a different directory and
;; we need it created before unpacking the crates.
(add-after 'configure 'prepare-cargo-build-system
(lambda args
(for-each
(lambda (phase)
(format #t "Running cargo phase: ~a~%" phase)
(apply (assoc-ref cargo:%standard-phases phase)
#:vendor-dir "vendor"
#:cargo-target #$(cargo-triplet)
args))
'(unpack-rust-crates
configure
check-for-pregenerated-files
patch-cargo-checksums))))))))
(native-inputs
(append
(list gettext-minimal
`(,glib "bin") ; for glib-compile-schemas
pkg-config
rust
`(,rust "cargo"))
(or (and=> (%current-target-system)
(compose list make-rust-sysroot))
'())))
(inputs (cons* bash-minimal
glib
gstreamer
gst-plugins-base
gst-plugins-bad
gtk
libadwaita
openssl
pipewire ; Needed but not listed
sqlite
zbar
(cargo-inputs 'gnome-authenticator)))
(home-page "https://apps.gnome.org/Authenticator")
(synopsis "Generate two-factor codes")
(description "Simple application for generating Two-Factor Authentication
Codes:
It features:
@itemize
@item Time-based/Counter-based/Steam methods support
@item SHA-1/SHA-256/SHA-512 algorithms support
@item QR code scanner using a camera or from a screenshot
@item Lock the application with a password
@item Beautiful UI
@item GNOME Shell search provider
@item Backup/Restore from/into known applications like FreeOTP+,
Aegis (encrypted / plain-text), andOTP, Google Authenticator
@end itemize")
(license license:gpl3+)))
(define-public gnome-mahjongg
(package
(name "gnome-mahjongg")
(version "3.40.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/GNOME/gnome-mahjongg")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0mc9379lmkcn08gr1wdny8gdwgdadkv11vxmgsiazcdy8bsj5860"))))
(build-system meson-build-system)
(arguments (list #:glib-or-gtk? #t))
(native-inputs
(list appstream-glib
gettext-minimal
`(,glib "bin") ;for glib-compile-resources
`(,gtk "bin") ;for gtk-update-icon-cache
itstool
pkg-config
vala))
(propagated-inputs
(list dconf))
(inputs
(list glib
gtk
libadwaita))
(synopsis "Mahjongg tile-matching game")
(description "GNOME Mahjongg is a game based on the classic Chinese
tile-matching game Mahjongg. It features multiple board layouts, tile themes,
and a high score table.")
(home-page "https://wiki.gnome.org/Apps/Mahjongg")
(license license:gpl2+)))
(define-public komikku
(package
(name "komikku")
(version "1.99.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/valos/Komikku/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1did8rh3aw6d3g1myavsma986rwashw09g3m442lv8fzmdiw18r4"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-sources
(lambda _
(substitute* "komikku/utils.py"
(("from komikku\\.servers import get_servers_list")
;; code following that line should migrate old databases
;; but the line itself results in an import error
"return data_dir_path"))))
(add-after 'unpack 'unpack-fonts
(lambda* (#:key inputs #:allow-other-keys)
(mkdir-p "data/fonts")
(copy-file (search-input-file
inputs
"share/fonts/opentype/0xPropo-Medium.otf")
"data/fonts/0xPropo-Medium.otf")))
(add-after 'unpack 'skip-gtk-update-icon-cache
(lambda _
(substitute* "meson.build"
(("([a-z_]*): true" all option)
(cond ; cond rather than match saves an import
((string=? option "gtk_update_icon_cache")
(string-append option ": false"))
(else all))))))
(add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
(lambda* (#:key outputs #:allow-other-keys)
(wrap-program (search-input-file outputs "bin/komikku")
`("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
`("GDK_PIXBUF_MODULE_FILE" =
(,(getenv "GDK_PIXBUF_MODULE_FILE")))))))))
(inputs
(list bash-minimal
font-0xpropo
gtk
libadwaita
libnotify
libsecret
python
python-beautifulsoup4
python-brotli
python-cloudscraper
python-colorthief
python-dateparser
python-emoji
python-keyring
python-lxml
python-magic
python-natsort
python-piexif
python-pillow
python-pillow-heif-0.22
python-pure-protobuf
python-pycairo
python-pygobject
python-pyjwt
python-pypdf
python-rarfile
python-requests
python-unidecode
webkitgtk
webp-pixbuf-loader))
(native-inputs
(list blueprint-compiler
desktop-file-utils
gettext-minimal
`(,glib "bin")
gobject-introspection
pkg-config))
(home-page "https://apps.gnome.org/Komikku")
(synopsis "Manga reader for GNOME")
(description "Komikku is an online/offline manga reader for GNOME,
developed with the aim of being used with the Librem 5 phone.")
(license license:gpl3+)
(native-search-paths (list (search-path-specification
(variable "KOMIKKU_SERVERS_PATH")
(files '("lib/komikku/servers")))))))
(define-public komikku-servers
(package
(name "komikku-servers")
(version "1.99.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/valos/Komikku/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1did8rh3aw6d3g1myavsma986rwashw09g3m442lv8fzmdiw18r4"))))
(build-system copy-build-system)
(arguments
(list
#:install-plan
#~'(("komikku/servers" "lib/komikku/servers"))
#:modules '((guix build copy-build-system)
(guix build utils)
(ice-9 ftw))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'delete-conflicting-files
(lambda _
(with-directory-excursion "komikku/servers"
(for-each delete-file
(scandir "."
(lambda (f) (string-suffix? ".py" f)))))))
(add-after 'install 'compile
(lambda* (#:key outputs #:allow-other-keys)
(let ((site-dir (string-append (assoc-ref outputs "out")
"/lib/komikku/servers")))
(invoke "python" "-m" "compileall"
"--invalidation-mode=unchecked-hash" site-dir)))))))
(native-inputs (list python-wrapper))
(home-page "https://apps.gnome.org/Komikku")
(synopsis "Servers for Komikku")
(description "This package provides more recent servers for Komikku.")
(license license:gpl3+)))
(define-public polari
(package
(name "polari")
(version "46.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/polari/"
(version-major version)
"/polari-" version ".tar.xz"))
(sha256
(base32
"0c8a6q6g1mgpc9g423rgqplbpjwb7zq1bvylad7jk2ci6yg71cfj"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'skip-gtk-update-icon-cache
(lambda _
(substitute* "meson.build"
(("gtk_update_icon_cache: true")
"gtk_update_icon_cache: false"))))
(add-after 'install 'fix-desktop-file
;; Hard-code launcher to be on the safe side.
(lambda* (#:key outputs #:allow-other-keys)
(substitute* (search-input-file
outputs
"share/applications/org.gnome.Polari.desktop")
(("Exec=.*")
(string-append "Exec=" (search-input-file outputs "bin/polari")
"\n")))))
(add-after 'glib-or-gtk-wrap 'wrap-typelib
(lambda* (#:key outputs #:allow-other-keys)
(wrap-program (search-input-file outputs "bin/polari")
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))))
(native-inputs
(list desktop-file-utils
gettext-minimal
`(,glib "bin")
gobject-introspection
pkg-config
yelp-tools))
(inputs
(list bash-minimal
glib
gsettings-desktop-schemas
gspell
gtk
gjs
libadwaita
libsecret
libsoup
telepathy-glib
telepathy-logger
tinysparql))
(propagated-inputs
(list telepathy-idle
telepathy-mission-control))
(synopsis "Simple IRC Client")
(description
"Polari is a simple Internet Relay Chat (IRC) client that is designed to
integrate seamlessly with the GNOME desktop.")
(home-page "https://wiki.gnome.org/Apps/Polari")
(license license:gpl2+)))
(define-public raider
(package
(name "raider")
(version "1.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ADBeveridge/raider/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ll9220d6qf9m7wdi5xhq69p8h8whs7l5h5nzdhlbn99qh5388bz"))))
(build-system meson-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "data/com.github.ADBeveridge.Raider.gschema.xml"
(("/usr/bin/shred")
(which "shred")))))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/raider")
`("GSETTINGS_SCHEMA_DIR" =
(,(string-append (assoc-ref outputs "out")
"/share/glib-2.0/schemas")))))))))
(native-inputs
(list gettext-minimal
pkg-config
cmake-minimal
`(,glib "bin")
desktop-file-utils
itstool
gobject-introspection
blueprint-compiler
`(,gtk "bin")))
(inputs
(list libadwaita
gtk))
(home-page "https://github.com/ADBeveridge/raider")
(synopsis "Securely delete your files")
(description
"Raider is a simple shredding program built for GNOME. Also known as
File Shredder, it uses the GNU Core Utility called shred to securely delete
files.")
(license license:gpl3+)))
(define-public secrets
(package
(name "secrets")
(version "6.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/World/secrets")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "11jd9f0d3fyrs29p8cyzb6i2ib6mzhwwvjnznl55gkggrgnrcb8z"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:imported-modules `(,@%meson-build-system-modules
(guix build python-build-system))
#:modules '((guix build meson-build-system)
((guix build python-build-system) #:prefix python:)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'disable-postinstall-script
(lambda _
(substitute* "meson.build"
(("gtk_update_icon_cache: true")
"gtk_update_icon_cache: false"))
(setenv "DESTDIR" "/")))
(add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (search-input-file outputs "bin/secrets")
`("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")
,(python:site-packages inputs outputs)))
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))))
(native-inputs
(list desktop-file-utils
gettext-minimal
`(,glib "bin")
gobject-introspection
pkg-config))
(inputs
(list bash-minimal
glib
gsettings-desktop-schemas
gtk
libadwaita
libhandy
libpwquality
python
python-pygobject
python-pykeepass
python-pyotp))
(home-page "https://gitlab.gnome.org/World/secrets")
(synopsis "Password manager for the GNOME desktop")
(description
"Secrets is a password manager which makes use of the KeePass v4
format. It integrates perfectly with the GNOME desktop and provides an easy
and uncluttered interface for the management of password databases.")
(license license:gpl3+)))
(define-public textpieces
(package
(name "textpieces")
(version "3.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/liferooter/textpieces")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"14zq2c7js80m4cq8wpdb3kyz5sw96l8znbz027w8s94gqhm632ff"))))
(arguments
'(;; The test suite fails to validate appstream file due to lack of
;; network access
#:tests? #f
#:glib-or-gtk? #t))
(build-system meson-build-system)
(native-inputs
(list appstream-glib
blueprint-compiler-0.4
desktop-file-utils
gettext-minimal
`(,glib "bin")
`(,gtk "bin")
pkg-config
vala))
(inputs
(list gtk
gtksourceview
json-glib
libadwaita
libgee
python
python-pygobject
python-pyyaml))
(home-page "https://github.com/liferooter/textpieces")
(synopsis "Quick text processor")
(description
"Text Pieces is a tool for quick text transformations such as checksums,
encoding, decoding, etc.
The basic features of Text Pieces are:
@itemize
@item Base64 encoding and decoding
@item SHA-1, SHA-2 and MD5 checksums
@item Prettify and minify JSON
@item Covert JSON to YAML and vice versa
@item Count lines, symbols and words
@item Escape and unescape string, URL and HTML
@item Remove leading and trailing whitespaces
@item Sort and reverse sort lines
@item Reverse lines and whole text
@item You can write your own scripts and create custom tools
@end itemize")
(license license:gpl3)))
Reference in a new issue View git blame Copy permalink