From patchwork Thu Oct 20 13:28:14 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Simon Tournier X-Patchwork-Id: 43738 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 8DD0C27BBEA; Thu, 20 Oct 2022 16:43:15 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-3.7 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI, RCVD_IN_MSPIKE_H2,SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 453F327BBE9 for ; Thu, 20 Oct 2022 16:43:15 +0100 (BST) Received: from localhost ([::1]:33672 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1olXhK-0007QV-P1 for patchwork@mira.cbaines.net; Thu, 20 Oct 2022 11:43:10 -0400 Received: from [::1] (helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1olXgJ-00034a-Iw for patchwork@mira.cbaines.net; Thu, 20 Oct 2022 11:42:03 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:38722) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1olVbc-00070C-VW for guix-patches@gnu.org; Thu, 20 Oct 2022 09:29:10 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:34355) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1olVbb-0002oj-6n for guix-patches@gnu.org; Thu, 20 Oct 2022 09:29:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1olVbb-0004E6-0x for guix-patches@gnu.org; Thu, 20 Oct 2022 09:29:03 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#58660] [PATCH 4/4] etc: teams: Display an id number. Resent-From: zimoun Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 20 Oct 2022 13:29:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 58660 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 58660@debbugs.gnu.org Cc: zimoun Received: via spool by 58660-submit@debbugs.gnu.org id=B58660.166627251516191 (code B ref 58660); Thu, 20 Oct 2022 13:29:02 +0000 Received: (at 58660) by debbugs.gnu.org; 20 Oct 2022 13:28:35 +0000 Received: from localhost ([127.0.0.1]:33428 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1olVb8-0004D4-Iv for submit@debbugs.gnu.org; Thu, 20 Oct 2022 09:28:34 -0400 Received: from mail-wr1-f54.google.com ([209.85.221.54]:36578) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1olVb2-0004CQ-Lx for 58660@debbugs.gnu.org; Thu, 20 Oct 2022 09:28:29 -0400 Received: by mail-wr1-f54.google.com with SMTP id j7so34467724wrr.3 for <58660@debbugs.gnu.org>; Thu, 20 Oct 2022 06:28:28 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:from:to:cc:subject:date :message-id:reply-to; bh=0cS1SnP5IFiMGkvK0CKr3ei8/rfxSK2fXcub4m5RYNk=; b=ffpzSgIR9HRS1AnaeBNMzMfee24Z5z3SVWzgx2E+rtuAvTyaTiMj338mJ1ojLMqYZt svGZ70Wu6KkaBH2ZSoob1n2oFY25j+OJvSXfHgDSxl/oDh8Z5Q5FLVwN8RPV9PxKX5wi J7zFvyMKer8YN8pNSf00MStTRLA6tFXb740hzDa96TprGqQzgS3gBfSeZscYdxgAJjlm LS5U62wKz+ia+Z4zu4zcAksN/jy67XcidofN2vNoG0CCa+aU14wxqlkoRF32Dbcb5LXk LNccYaxj1oP5Ny+83UznCLdC+CBHEb7Q1o4sI3ce3u4FkYlKZrT1/urqIKWqZgtCZule QZ2A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=0cS1SnP5IFiMGkvK0CKr3ei8/rfxSK2fXcub4m5RYNk=; b=MO6tW76SyqOBhFC0B2BlKZtGBrlv/LXvu6UmVc2KyTOeLZYzFeNc7da3cjGRZi5wzy ErFfG8A2PTtcijQsl2PpDo6uiwHB4hpyKM862bc2iNU6twN4G+ab2YiVM5eAJtLe+Lz+ l7OluZu+Vis6KKKTzownKW96wdqzO67MD5nZzZOmL3HPkBEiuhBf0mr4WPxFcLOxCoXC 7Uz3VRLDHXOIMipc+MxZikd+fSLd/M36z5HsV7HC7wih3GbVimc8bstyZox4+UFPiqbc wFFtx6iZbIOcokJZtAYzNIJn1LUpFO1YOYOdoblXx7Zb+V6ZH1mQGcNWg3qE0H20CgXI IqQA== X-Gm-Message-State: ACrzQf1lVHBgT07DkhjNOc1G1vxuYpyseTZpmaX0fJPPvqoy0QcPY/aC iyRMImoeYgzDwbCmfDfTTy9uNOSFiio= X-Google-Smtp-Source: AMsMyM6T2VnwB8JRQfC8HM8l4wwovz0podC2GvfjLFkVyxACD4s833vRh9REjYSv/rqflMzTwl8bqA== X-Received: by 2002:a5d:47c5:0:b0:22e:6573:5621 with SMTP id o5-20020a5d47c5000000b0022e65735621mr8574748wrc.478.1666272502927; Thu, 20 Oct 2022 06:28:22 -0700 (PDT) Received: from localhost.localdomain ([193.48.40.241]) by smtp.gmail.com with ESMTPSA id q3-20020a1c4303000000b003a8434530bbsm2864668wma.13.2022.10.20.06.28.22 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 20 Oct 2022 06:28:22 -0700 (PDT) From: zimoun Date: Thu, 20 Oct 2022 15:28:14 +0200 Message-Id: <20221020132814.1549436-4-zimon.toutoune@gmail.com> X-Mailer: git-send-email 2.36.0 In-Reply-To: <20221020132814.1549436-1-zimon.toutoune@gmail.com> References: <20221020132814.1549436-1-zimon.toutoune@gmail.com> MIME-Version: 1.0 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: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * etc/teams.scm.in (list-teams): Add id number for easing 'recutils' use. --- etc/teams.scm.in | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/etc/teams.scm.in b/etc/teams.scm.in index 3d4c7319c2..790eb17131 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -556,15 +556,16 @@ (define (list-teams) "Print all teams, their scope and their members." (define port* (current-output-port)) (define width* (%text-width)) - (for-each - (lambda (team) + (fold + (lambda (team id-number) (format port* "\ -id: ~a +id: (~d) ~a name: ~a description: ~a ~amembers: " + id-number (team-id team) (team-name team) (or (and=> (team-description team) @@ -583,7 +584,9 @@ (define width* (%text-width)) scope) string<=?))))) (list-members team port* "+ ") - (newline)) + (newline) + (1+ id-number)) + 0 (sort (hash-map->list (lambda (key value) value) %teams) (lambda (team1 team2)