From 865728dd52600c7aa29a87bf18cb02ddf453cdfc Mon Sep 17 00:00:00 2001 From: cage Date: Wed, 3 Mar 2021 16:54:23 +0100 Subject: gnu: Add tinmop. * gnu/packages/web-browsers.scm (tinmop): New variable. Co-authored-by: Guillaume Le Vaillant --- gnu/packages/web-browsers.scm | 78 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm index 58da0de922..5a83a4ef95 100644 --- a/gnu/packages/web-browsers.scm +++ b/gnu/packages/web-browsers.scm @@ -15,6 +15,7 @@ ;;; Copyright © 2020 Michael Rohleder ;;; Copyright © 2020 Nicolò Balzarotti ;;; Copyright © 2020 Alexandru-Sergiu Marton +;;; Copyright © 2021 Cage ;;; ;;; This file is part of GNU Guix. ;;; @@ -46,12 +47,14 @@ #:use-module (gnu packages) #:use-module (gnu packages backup) #:use-module (gnu packages compression) + #:use-module (gnu packages curl) #:use-module (gnu packages documentation) #:use-module (gnu packages fltk) #:use-module (gnu packages fontutils) #:use-module (gnu packages fonts) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gcc) + #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages gnome-xyz) @@ -66,6 +69,7 @@ #:use-module (gnu packages lua) #:use-module (gnu packages man) #:use-module (gnu packages markup) + #:use-module (gnu packages nano) #:use-module (gnu packages ncurses) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) @@ -817,3 +821,77 @@ command selection. The following protocols are supported as first-class citizens: gopher, gemini, finger, and local. There is also support for telnet, http, and https via third-party applications.") (license license:gpl3+))) + +(define-public tinmop + (package + (name "tinmop") + (version "0.5.9") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://notabug.org/cage/tinmop") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1zdra4q4mkrldv7dpag9p1bsma2k9pvp9pp9k7qsbm0alj7xwqpr")))) + (build-system gnu-build-system) + (native-inputs + `(("curl" ,curl) + ("gettext" ,gnu-gettext) + ("gnupg" ,gnupg) + ("sbcl" ,sbcl))) + (inputs + `(("access" ,sbcl-access) + ("alexandria" ,sbcl-alexandria) + ("babel" ,sbcl-babel) + ("bordeaux-threads" ,sbcl-bordeaux-threads) + ("cl-base64" ,sbcl-cl-base64) + ("cl-colors2" ,sbcl-cl-colors2) + ("cl-html5-parser" ,sbcl-cl-html5-parser) + ("cl-i18n" ,sbcl-cl-i18n) + ("cl-ppcre" ,sbcl-cl-ppcre) + ("cl-spark" ,sbcl-cl-spark) + ("cl-sqlite" ,sbcl-cl-sqlite) + ("cl+ssl" ,sbcl-cl+ssl) + ("clunit2" ,sbcl-clunit2) + ("croatoan" ,sbcl-croatoan) + ("crypto-shortcuts" ,sbcl-crypto-shortcuts) + ("drakma" ,sbcl-drakma) + ("esrap" ,sbcl-esrap) + ("ieee-floats" ,sbcl-ieee-floats) + ("local-time" ,sbcl-local-time) + ("log4cl" ,sbcl-log4cl) + ("marshal" ,sbcl-marshal) + ("nano" ,nano) + ("openssl" ,openssl) + ("osicat" ,sbcl-osicat) + ("parse-number" ,sbcl-parse-number) + ("percent-encoding" ,sbcl-percent-encoding) + ("sxql" ,sbcl-sxql) + ("sxql-composer" ,sbcl-sxql-composer) + ("tooter" ,sbcl-tooter) + ("unix-opts" ,sbcl-unix-opts) + ("usocket" ,sbcl-usocket) + ("xdg-utils" ,xdg-utils))) + (arguments + `(#:tests? #f + #:strip-binaries? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'set-home + (lambda _ + (setenv "HOME" "/tmp") + #t)) + (add-after 'configure 'fix-asdf + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "Makefile.in" + (("LISP_COMPILER) ") + "LISP_COMPILER) --eval \"(require 'asdf)\" --eval \"(push \\\"$$(pwd)/\\\" asdf:*central-registry*)\" ")) + #t))))) + (synopsis "Gemini and pleroma client with a terminal interface") + (description + "This package provides a Gemini and pleroma client with a terminal +interface.") + (home-page "https://www.autistici.org/interzona/tinmop.html") + (license license:gpl3+))) -- cgit v1.2.3