From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?Cl=C3=A9ment=20Lassieur?= Subject: [PATCH] gnu: Add GNU Freetalk. Date: Sat, 28 Jan 2017 17:05:15 +0100 Message-ID: <20170128160515.27862-1-clement@lassieur.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38862) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cXVW5-0008Da-JX for guix-devel@gnu.org; Sat, 28 Jan 2017 11:06:18 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cXVW1-0005bO-LQ for guix-devel@gnu.org; Sat, 28 Jan 2017 11:06:17 -0500 Received: from mail.lassieur.org ([83.152.10.219]:44538) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cXVW1-0005b2-Bt for guix-devel@gnu.org; Sat, 28 Jan 2017 11:06:13 -0500 Received: from localhost.localdomain (gateway [192.168.0.254]) by mail.lassieur.org (Postfix) with ESMTPSA id 6C6AB6400D3 for ; Sat, 28 Jan 2017 17:06:09 +0100 (CET) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * 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)))))))))) + (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") + (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 -- 2.11.0