GNU bug report logs - #46432
[PATCH 3/3] gnu: Add ssh-chat.

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 10 Feb 2021 21:54:45 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Feb 10 16:54:45 2021
Received: from localhost ([127.0.0.1]:57332 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1l9xRX-0003zN-G8
	for submit <at> debbugs.gnu.org; Wed, 10 Feb 2021 16:54:45 -0500
Received: from lists.gnu.org ([209.51.188.17]:60506)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <stefan@HIDDEN>) id 1l9xRU-0003zE-Pe
 for submit <at> debbugs.gnu.org; Wed, 10 Feb 2021 16:54:37 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10]:52416)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <stefan@HIDDEN>) id 1l9xRR-0005zO-CD
 for guix-patches@HIDDEN; Wed, 10 Feb 2021 16:54:36 -0500
Received: from dd3624.kasserver.com ([85.13.130.11]:45828)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <stefan@HIDDEN>) id 1l9xRD-00058n-OE
 for guix-patches@HIDDEN; Wed, 10 Feb 2021 16:54:33 -0500
Received: from localhost (217-149-162-201.nat.highway.telekom.at
 [217.149.162.201])
 by dd3624.kasserver.com (Postfix) with ESMTPA id 3F34C5D43DF5;
 Wed, 10 Feb 2021 22:54:18 +0100 (CET)
From: =?UTF-8?q?Stefan=20Reich=C3=B6r?= <stefan@HIDDEN>
To: guix-patches@HIDDEN
Subject: [PATCH 3/3] gnu: Add ssh-chat.
Date: Wed, 10 Feb 2021 22:54:04 +0100
Message-Id: <20210210215404.209053-3-stefan@HIDDEN>
X-Mailer: git-send-email 2.25.1
In-Reply-To: <20210210215404.209053-1-stefan@HIDDEN>
References: <20210210215404.209053-1-stefan@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Received-SPF: none client-ip=85.13.130.11; envelope-from=stefan@HIDDEN;
 helo=dd3624.kasserver.com
X-Spam_score_int: -25
X-Spam_score: -2.6
X-Spam_bar: --
X-Spam_report: (-2.6 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_LOW=-0.7,
 SPF_HELO_NONE=0.001, SPF_NONE=0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: submit
Cc: =?UTF-8?q?Stefan=20Reich=C3=B6r?= <stefan@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

* gnu/packages/ssh.scm (ssh-chat): New variable.
---
 gnu/packages/ssh.scm | 47 +++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 46 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index 04c8c6ceaa..9e146ea03a 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -7,7 +7,7 @@
 ;;; Copyright © 2016, 2021 Nicolas Goaziou <mail@HIDDEN>
 ;;; Copyright © 2016 Christopher Allan Webber <cwebber@HIDDEN>
 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@HIDDEN>
-;;; Copyright © 2017 Stefan Reichör <stefan@HIDDEN>
+;;; Copyright © 2017, 2021 Stefan Reichör <stefan@HIDDEN>
 ;;; Copyright © 2017 Ricardo Wurmus <rekado@HIDDEN>
 ;;; Copyright © 2017 Nikita <nikita@HIDDEN>
 ;;; Copyright © 2018 Manuel Graf <graf@HIDDEN>
@@ -41,6 +41,7 @@
   #:use-module (gnu packages crypto)
   #:use-module (gnu packages elf)
   #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages golang)
   #:use-module (gnu packages gperf)
   #:use-module (gnu packages groff)
   #:use-module (gnu packages guile)
@@ -62,11 +63,13 @@
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages readline)
+  #:use-module (gnu packages terminals)
   #:use-module (gnu packages texinfo)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages xorg)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system go)
   #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix git-download)
@@ -915,3 +918,45 @@ Ed25519 keys.
 @item Modern browsers are supported.
 @end itemize")
     (license license:expat)))
+
+(define-public ssh-chat
+  (package
+    (name "ssh-chat")
+    (version "1.10")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/shazow/ssh-chat")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "15avqg9j7yx0cx1dvz46r0ipgqnq5i9lfv9rwy2fjqsy501qx03v"))))
+    (build-system go-build-system)
+    (propagated-inputs
+     `(("go-github-com-alexcesaro-log" ,go-github-com-alexcesaro-log)
+       ("go-github-com-shazow-rateio" ,go-github-com-shazow-rateio)
+       ("go-golang-org-x-crypto" ,go-golang-org-x-crypto)
+       ("go-golang-org-x-text" ,go-golang-org-x-text)
+       ("go-github.com-howeyc-gopass" ,go-github.com-howeyc-gopass)
+       ("go-github.com-jessevdk-go-flags" ,go-github.com-jessevdk-go-flags)))
+    (arguments
+     `(#:install-source? #f
+       #:import-path "github.com/shazow/ssh-chat"
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'build
+           (lambda _
+             (with-directory-excursion "src/github.com/shazow/ssh-chat"
+               (invoke "make" "build")
+               #t)))
+         (replace 'install
+           (lambda* (#:key outputs import-path #:allow-other-keys)
+             (let ((dest    (string-append (assoc-ref outputs "out") "/bin"))
+                   (source  (string-append "src/" import-path "/")))
+               (install-file (string-append source "ssh-chat") dest)
+               #t))))))
+    (synopsis "Chat over SSH.")
+    (description "Custom SSH server written in Go. Instead of a shell, you get a chat prompt.")
+    (home-page "https://github.com/shazow/ssh-chat")
+    (license license:expat)))
-- 
2.25.1