Hello, Clément Lassieur <clem...@lassieur.org> writes:
> * gnu/packages/messaging.scm (freetalk): New variable. > --- > gnu/packages/messaging.scm | 56 > +++++++++++++++++++++++++++++++++++++++++++++- > 1 file changed, 55 insertions(+), 1 deletion(-) > > diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm > index 5b3ed740d..91df75aea 100644 > --- a/gnu/packages/messaging.scm > +++ b/gnu/packages/messaging.scm > @@ -78,7 +78,12 @@ > #:use-module (gnu packages xiph) > #:use-module (gnu packages audio) > #:use-module (gnu packages bison) > - #:use-module (gnu packages fontutils)) > + #:use-module (gnu packages fontutils) > + #:use-module (gnu packages bash) > + #:use-module (gnu packages guile) > + #:use-module (gnu packages less) > + #:use-module (gnu packages readline) > + #:use-module (gnu packages texinfo)) > > (define-public libotr > (package > @@ -1188,4 +1193,53 @@ support, and more.") > (synopsis "Small XMPP console client") > (license license:gpl2+))) > > +(define-public freetalk > + (package > + (name "freetalk") > + (version "4.1") > + (source > + (origin > + (method url-fetch) > + (uri (string-append "mirror://gnu/freetalk/freetalk-" version > ".tar.gz")) > + (sha256 > + (base32 "1rmrn7a1bb7vm26yaklrvx008a9qhwc32s57dwrlf40lv9gffwny")))) > + (build-system gnu-build-system) > + (arguments > + `(#:phases > + (modify-phases %standard-phases > + (add-before 'configure 'autogen > + (lambda _ > + (zero? (system* "sh" "autogen.sh")))) > + ;; For 'system' commands in Scheme code. > + (add-after 'install 'wrap-program > + (lambda* (#:key inputs outputs #:allow-other-keys) > + (let* ((out (assoc-ref outputs "out")) > + (bash (assoc-ref inputs "bash")) > + (coreutils (assoc-ref inputs "coreutils")) > + (less (assoc-ref inputs "less"))) > + (wrap-program (string-append out "/bin/freetalk") > + `("PATH" ":" prefix > + ,(map (lambda (dir) > + (string-append dir "/bin")) > + (list bash coreutils less)))))))))) ^^^ I have made it return #t. > + (native-inputs > + `(("autoconf" ,autoconf) > + ("automake" ,automake) > + ("texinfo" ,texinfo) > + ("pkg-config" ,pkg-config))) > + (inputs > + `(("bash" ,bash) > + ("glib" ,glib) > + ("guile" ,guile-2.0) > + ("less" ,less) > + ("loudmouth" ,loudmouth) > + ("readline" ,readline))) > + (synopsis "Extensible console-based Jabber/XMPP client") I have used the synopsis suggested by 'guix lint'. > + (description "GNU Freetalk is a command-line Jabber/XMPP chat client. It > +notably uses the Readline library to handle input, so it features convenient > +navigation of text as well as tab-completion of buddy names, commands and > +English words. It is also scriptable and extensible via Guile.") > + (home-page "https://www.gnu.org/software/freetalk/freetalk.html") > + (license license:gpl3+))) > + > ;;; messaging.scm ends here Pushed with those minor changes as commit c631233fd44fe6ea32197fa21fda35fc864d0d2a. Thank you! -- Mathieu Lirzin GPG: F2A3 8D7E EB2B 6640 5761 070D 0ADE E100 9460 4D37