bin: Deprecate tissue news subcommand.

* bin/tissue (git-updated-files, git-first-commit-since, tissue-news):
Delete functions.
* bin/tissue (main): Remove delegation to news subcommand.
* bin/tissue (print-usage): Unlist tissue-news.

1 files changed, 0 insertions, 68 deletions

diff --git a/bin/tissue b/bin/tissue
index f323e20..75f1b9e 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -41,42 +41,12 @@ exec guile --no-auto-compile -s "$0" "$@"
   (unless (zero? (apply system* program args))
     (error "Invocation of program failed" (cons program args))))
 
-(define (git-updated-files transducer start-commit end-commit)
-  "Use TRANSDUCER to transduce over the list of files updated between
-START-COMMIT and END-COMMIT."
-  (call-with-input-pipe
-   (lambda (port)
-     (port-transduce (compose (tmap (lambda (line)
-                                      (match (string-split line #\tab)
-                                        ((status file)
-                                         (list (match status
-                                                 ("A" 'added)
-                                                 ("D" 'deleted)
-                                                 ("M" 'modified))
-                                               file)))))
-                              transducer)
-                     (const #t) get-line port))
-   "git" "diff" "--stat" "--name-status"
-   (string-append start-commit ".." end-commit)))
-
 (define rlast
   (case-lambda
     (() #f)
     ((result) result)
     ((result input) input)))
 
-(define (git-first-commit-since since)
-  "Return the hash of the first git commit since SINCE, where SINCE is
-passed verbatim to the --since argument of `git log'. Return #f if
-there is no such commit."
-  (call-with-input-pipe
-   (lambda (port)
-     (port-transduce (tmap identity)
-                     rlast
-                     get-line
-                     port))
-   "git" "log" "--format=format:%H" "--since" since))
-
 ;;;
 ;;; 3 bit colors using ANSI escape codes
 ;;;
@@ -114,42 +84,6 @@ to run tissue."
   (match (command-line)
     ((program _ ...) program)))
 
-(define tissue-news
-  (match-lambda*
-    (("--help")
-     (format #t "Usage: ~a news
-List recent updates.
-
-  --since=DATE  show updates more recent than DATE
-
-"
-             (command-line-program)))
-    (args
-     (let ((args (args-fold args
-                            (list (option (list "since") #t #f
-                                          (lambda (opt name arg loads)
-                                            (acons 'since arg loads))))
-                            invalid-option
-                            invalid-operand
-                            '())))
-       (unless (assq 'since args)
-         (error "--since argument required"))
-       (git-updated-files (tlog (match-lambda*
-                                  ((_ (status file))
-                                   (format #t ((case status
-                                                 ((added) green)
-                                                 ((deleted) red)
-                                                 ((modified) magenta))
-                                               "~a (~a)~%")
-                                           file
-                                           (case status
-                                             ((added) "new")
-                                             ((deleted) "deleted")
-                                             ((modified) "updated"))))))
-                          (or (git-first-commit-since (assq-ref args 'since))
-                              "HEAD")
-                          "HEAD")))))
-
 (define (print-issue issue-number issue)
   "Print ISSUE with number ISSUE-NUMBER."
   (let ((number-of-posts (length (issue-posts issue))))
@@ -406,7 +340,6 @@ COMMAND must be one of the sub-commands listed below:
   list      list issues
   edit      edit an issue
   show      show the text of an issue
-  news      list recent updates
   repl      run a Guile script in a tissue environment
   web       export repository as website
 
@@ -433,7 +366,6 @@ To get usage information for one of these sub-commands, run
            (parameterize ((%issue-files (tissue-configuration-issue-files (load-config)))
                           (%aliases (tissue-configuration-aliases (load-config))))
              (apply (match command
-                      ("news" tissue-news)
                       ("list" tissue-list)
                       ("edit" tissue-edit)
                       ("show" tissue-show)