From b153b85841d779c9f5e418a9eec4d979872b450d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 25 Jun 2022 14:23:34 +0530
Subject: bin: Deprecate `tissue edit' subcommand.

* bin/tissue (tissue-edit): Delete function.
(print-usage): Unlist edit subcommand.
(main): Do not call tissue-edit.
---
 bin/tissue | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/bin/tissue b/bin/tissue
index e4be831..f91f600 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -210,26 +210,6 @@ List issues.
                                rcount
                                (issues)))))))
 
-(define tissue-edit
-  (match-lambda*
-    (("--help")
-     (format #t "Usage: ~a edit ISSUE-NUMBER
-Start $EDITOR to edit issue #ISSUE-NUMBER.
-
-"
-             (command-line-program)))
-    ((issue-number)
-     (unless (getenv "EDITOR")
-       (error "Please set the EDITOR environment variable to your favorite editor. For example,
-export EDITOR=emacsclient"))
-     (let ((issue-file (issue-file (list-ref (issues)
-                                             (1- (string->number issue-number))))))
-       ;; Files may be renamed or deleted, but not
-       ;; committed. Therefore, only read the file if it exists.
-       (if (file-exists? issue-file)
-           (invoke (getenv "EDITOR") issue-file)
-           (raise (issue-file-not-found-error issue-file)))))))
-
 (define tissue-show
   (match-lambda*
     (("--help")
@@ -338,7 +318,6 @@ Export the repository as a website to OUTPUT-DIRECTORY.
 COMMAND must be one of the sub-commands listed below:
 
   list      list issues
-  edit      edit an issue
   show      show the text of an issue
   repl      run a Guile script in a tissue environment
   web       export repository as website
@@ -367,7 +346,6 @@ To get usage information for one of these sub-commands, run
                           (%aliases (tissue-configuration-aliases (load-config))))
              (apply (match command
                       ("list" tissue-list)
-                      ("edit" tissue-edit)
                       ("show" tissue-show)
                       ("repl" tissue-repl)
                       ("web" tissue-web)
-- 
cgit v1.2.3