From a8868a3f7b6940a3699fccc5cd6f956c72475ac9 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 22 Sep 2021 16:02:18 +0530
Subject: gnbug: Add show sub-command.

* gnbug: Import (rnrs io ports).
(main): Add show sub-command.
(gnbug-show): New function.
* README.gmi (gnbug): Document the show sub-command.
---
 gnbug | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'gnbug')

diff --git a/gnbug b/gnbug
index 02966ba..2b42111 100755
--- a/gnbug
+++ b/gnbug
@@ -2,6 +2,7 @@
 !#
 
 (import (rnrs hashtables)
+        (rnrs io ports)
         (srfi srfi-9)
         (srfi srfi-26)
         (srfi srfi-37)
@@ -238,13 +239,20 @@ export EDITOR=emacsclient"))
           (issue-file (list-ref (issues)
                                 (1- (string->number issue-number))))))
 
+(define (gnbug-show issue-number)
+  (put-string (current-output-port)
+              (call-with-input-file (issue-file (list-ref (issues)
+                                                          (1- (string->number issue-number))))
+                get-string-all)))
+
 (define main
   (match-lambda*
     ((_ command args ...)
      (apply (match command
               ("news" gnbug-news)
               ("list" gnbug-list)
-              ("edit" gnbug-edit))
+              ("edit" gnbug-edit)
+              ("show" gnbug-show))
             args))
     ;; gnbug is an alias for `gnbug list'
     ((_)
-- 
cgit v1.2.3