From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id GAwOGT3Q8mMHFQAAbAwnHQ (envelope-from ) for ; Mon, 20 Feb 2023 02:43:25 +0100 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id qDwCGT3Q8mPEIQEAauVa8A (envelope-from ) for ; Mon, 20 Feb 2023 02:43:25 +0100 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id E307E311B5 for ; Mon, 20 Feb 2023 02:43:24 +0100 (CET) Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=systemreboot.net header.s=default header.b=IQyC4hvK; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=systemreboot.net (policy=none) ARC-Seal: i=1; s=key1; d=yhetil.org; t=1676857405; a=rsa-sha256; cv=none; b=uyunklR/NdezATqJKPgA/xw/acKs/BbT9z7RT7Ei/sPhtTIEz4hnxbaQeTdwFTuTmnGTGm QRo4GFO0hpaTcjQARk8AfuFfS9kAJOFdLyrfoV65y/hfllAZZmvqQtC1mv4XkzcKGW1HeO yUJB5R1BoVYlguXW+Zpjx3T2n14Bt+XEXe+CVeTd/+UhI4GSRIzEAEFi3ToscEHftiHrI1 obd5v+KuxGvCkIshdAr2CSm8mZUIyyI9q9LNGW3P6syMKiJT+Fp0i6TQyy82toJSzMtR5c kH1J2sf/z87f2+A2/03/n51/2krNvXgYVWakcHKcUVkpGYcEYg0lzV9iAaj2Iw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=systemreboot.net header.s=default header.b=IQyC4hvK; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=systemreboot.net (policy=none) ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1676857405; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=ukW1xmfnSUSsflOM0WMl6nRrYCP8/qpgq0792wdwKq0=; b=AphWL9Y0WFSiXDg31H1xfVDeV/Pw+R3Pz5hLIDrIyAU5ZWIlSXgOP0S/3fFIzmp0224rSV Og+2HUB4n1mnTSx76+t9UM43wwfgdi9JGoZrwJViUbhcm8v/4DCOHc2BlwhZ3obzrFmgaU RdT0qvH4xpwvRmZOvmC2P85WHP9OKupFmAaUgqaIgV8358B37hAbexFWMBjPA854abUkol siwPhfS2qEMGTRkb2LSLU7/kll2NKExidcJb/dF8yDq3OdZfxRchDEBqumFPk0ncmc49LU casODjKmhxUSkmwWlukqDEqI/PUHj3ZS9G1iBbquBYaL425ekY/qcdc97Tef8Q== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pTvCt-0002yT-T5; Sun, 19 Feb 2023 20:43:07 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pTvCo-0002y9-Rp for guix-patches@gnu.org; Sun, 19 Feb 2023 20:43:02 -0500 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pTvCo-0001Mp-CU for guix-patches@gnu.org; Sun, 19 Feb 2023 20:43:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1pTvCo-00069D-86 for guix-patches@gnu.org; Sun, 19 Feb 2023 20:43:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#61645] [PATCH mumi 1/1] client: Add CLI client to search for issues. References: <20230220013821.27440-1-arunisaac@systemreboot.net> In-Reply-To: <20230220013821.27440-1-arunisaac@systemreboot.net> Resent-From: Arun Isaac Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Mon, 20 Feb 2023 01:43:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 61645 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 61645@debbugs.gnu.org Cc: Ricardo Wurmus , Arun Isaac Received: via spool by 61645-submit@debbugs.gnu.org id=B61645.167685732323552 (code B ref 61645); Mon, 20 Feb 2023 01:43:02 +0000 Received: (at 61645) by debbugs.gnu.org; 20 Feb 2023 01:42:03 +0000 Received: from localhost ([127.0.0.1]:50042 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pTvBq-00067o-Cz for submit@debbugs.gnu.org; Sun, 19 Feb 2023 20:42:03 -0500 Received: from mugam.systemreboot.net ([139.59.75.54]:34600) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pTvBn-00067L-At for 61645@debbugs.gnu.org; Sun, 19 Feb 2023 20:42:00 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=systemreboot.net; s=default; h=Content-Transfer-Encoding:Content-Type: MIME-Version:Message-Id:Date:Subject:Cc:To:From:Sender:Reply-To:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=ukW1xmfnSUSsflOM0WMl6nRrYCP8/qpgq0792wdwKq0=; b=IQyC4hvK3X2YYraQCw4owi7Q/t ehvo9A9qpQb+RZsrB79+bgcfnykB3PUgcDHDqdYKPEa15PdsxQnsg6nayMpZWHD7IPVDvt6KsaEm/ vrdetVPKpbHeWGfoTMMphQ7q3cwCByfmDUJN6biNJ6qWvDimVx4rbsa0dpWrz2NpwXUY5jJOxoWq9 7pS/QRQpBqVYR99P520Tk7JrAeJLyEcUMY3tNsnKKCj5hf6DoSWd3a15WtKyJzyDBt9xAS1w0efzr XESqMpYwyCUPC8DnNirqIW+gED6Sbr5s+QomCKFr49Qgisrj1/9aU7kLSFR3/P1zLSYA7bqtvUzPX kXgoqg/w==; Received: from [192.168.2.1] (port=55598 helo=steel.lan) by systemreboot.net with esmtpsa (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.96) (envelope-from ) id 1pTvBh-0007D5-1v; Mon, 20 Feb 2023 07:11:54 +0530 From: Arun Isaac Date: Mon, 20 Feb 2023 01:41:39 +0000 Message-Id: <20230220014139.27804-1-arunisaac@systemreboot.net> X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: X-Migadu-Queue-Id: E307E311B5 X-Spam-Score: -1.84 X-Migadu-Spam-Score: -1.84 X-Migadu-Scanner: scn0.migadu.com List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: guix-patches-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-TUID: ezrQaYaW2KAs * mumi/client.scm: New file. * scripts/mumi.in: Import (mumi client). (show-mumi-usage): Document search subcommand. (main): Add search subcommand. * Makefile.am (SOURCES): Add mumi/client.scm. --- Makefile.am | 1 + mumi/client.scm | 108 ++++++++++++++++++++++++++++++++++++++++++++++++ scripts/mumi.in | 8 +++- 3 files changed, 116 insertions(+), 1 deletion(-) create mode 100644 mumi/client.scm diff --git a/Makefile.am b/Makefile.am index 8182fc3..a8c11a1 100644 --- a/Makefile.am +++ b/Makefile.am @@ -49,6 +49,7 @@ SOURCES = \ mumi/messages.scm \ mumi/jobs.scm \ mumi/send-email.scm \ + mumi/client.scm \ mumi/config.scm \ mumi/debbugs.scm \ mumi/test-utils.scm \ diff --git a/mumi/client.scm b/mumi/client.scm new file mode 100644 index 0000000..e4a0123 --- /dev/null +++ b/mumi/client.scm @@ -0,0 +1,108 @@ +;;; mumi -- Mediocre, uh, mail interface +;;; Copyright © 2023 Arun Isaac +;;; +;;; This file is part of mumi. +;;; +;;; mumi 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. +;;; +;;; mumi 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 mumi. If not, see . + +(define-module (mumi client) + #:use-module (srfi srfi-19) + #:use-module (srfi srfi-43) + #:use-module (term ansi-color) + #:use-module (web uri) + #:use-module (kolam http) + #:use-module (mumi config) + #:use-module (mumi web view utils) + #:export (search)) + +(define (git-top-level) + "Return the top-level directory of the current git repository." + (let loop ((curdir (getcwd))) + (cond + ((file-exists? (string-append curdir "/.git")) + curdir) + ((string=? curdir "/") + (error "No git top level found")) + (else + (loop (dirname curdir)))))) + +(define (client-config-directory) + "Return client configuration directory." + (string-append (git-top-level) "/.mumi")) + +(define (client-config key) + "Return client configuration value corresponding to KEY." + (or (assq-ref (call-with-input-file (string-append (client-config-directory) + "/config") + read) + key) + (case key + ((mumi-scheme) 'https) + (else (format (current-error-port) + "Key '~a not configured for mumi client.~%" + key))))) + +(define (graphql-endpoint) + "Return GraphQL endpoint." + (uri->string + (build-uri (client-config 'mumi-scheme) + #:host (client-config 'mumi-host) + #:path "/graphql"))) + +(define (iso8601->date str) + "Convert ISO-8601 date/time+zone string to date object." + (string->date str "~Y-~m-~dT~H:~M:~S~z")) + +(define (list-issue issue) + "List issue described by ISSUE association list." + (display (colorize-string + (string-append "#" + (number->string (assoc-ref issue "number"))) + 'YELLOW)) + (display " ") + (unless (assoc-ref issue "open") + (display (colorize-string "✓" 'BOLD 'GREEN)) + (display " ")) + (display (colorize-string + (assoc-ref issue "title") + 'MAGENTA 'UNDERLINE)) + (newline) + (display (string-append + "opened " + (colorize-string (time->string + (iso8601->date (assoc-ref issue "date"))) + 'CYAN) + " by " + (colorize-string + (let ((submitter (assoc-ref issue "submitter"))) + (if (eq? (assoc-ref submitter "name") 'null) + (assoc-ref submitter "address") + (assoc-ref submitter "name"))) + 'CYAN))) + (newline)) + +(define (search query) + "Search for issues with QUERY and list results." + (vector-for-each (lambda (_ issue) + (list-issue issue)) + (assoc-ref + (graphql-http-get (graphql-endpoint) + `(document + (query (#(issues #:search ,query) + number + title + open + date + (submitter name address))))) + "issues"))) diff --git a/scripts/mumi.in b/scripts/mumi.in index 755dfb3..9b61729 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -4,7 +4,7 @@ !# ;;; mumi -- Mediocre, uh, mail interface ;;; Copyright © 2016, 2017, 2019, 2020 Ricardo Wurmus -;;; Copyright © 2018, 2021 Arun Isaac +;;; Copyright © 2018, 2021, 2023 Arun Isaac ;;; ;;; This file is part of mumi. ;;; @@ -26,6 +26,7 @@ (system repl server) (ice-9 match) (ice-9 format) + ((mumi client) #:prefix client:) (mumi config) ((mumi debbugs) #:select (extract-bug-numbers)) @@ -116,6 +117,9 @@ (define (show-mumi-usage) (format (current-error-port) " + `mumi search QUERY': + search mumi for issues. + `mumi web [--address=address] [--port=port] [--listen-repl[=port]] [--disable-mailer]': start the application web server. @@ -132,6 +136,8 @@ (exit 1)) (match (cdr (program-arguments)) + (("search" . query-strings) + (client:search (string-join query-strings))) (("mailer" . rest) (let* ((opts (parse-options rest)) (sender (assoc-ref opts 'sender)) -- 2.38.1