From 73961321ffc197ce69dc22e60200862578250603 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 1 Mar 2014 13:24:58 +0100
Subject: Extract some functions from the help command

Simplify the `help' command by extracting the code into separate
functions.
---
 gitto/main.scm | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/gitto/main.scm b/gitto/main.scm
index 693ae2d..5f21e46 100644
--- a/gitto/main.scm
+++ b/gitto/main.scm
@@ -78,6 +78,23 @@ Displays version and some copyright information."
   (display "under the terms of the GNU General Public License.") (newline)
   (display "For more information about these matters, see the file named COPYING.") (newline))
 
+(define (print-command-help command)
+  "Print the help message for COMMAND."
+  (let ((command-spec (assoc-ref command-list command)))
+    (if command-spec
+        (format #t "~a~%" (assq-ref command-spec #:documentation))
+        (format #t "Unknown command: ~a~%" command))))
+
+(define (print-short-command-help command)
+  "Print COMMAND's name and its short description."
+  (format #t "  ~a~15t~a~%" (car command) (assq-ref command #:usage)))
+
+(define (print-general-help)
+  "Print the general help message for gitto."
+  (display "gitto [command [arguments ...]]")
+  (newline)
+  (for-each print-short-command-help command-list))
+
 (define-command (help #:optional command)
   "Display this help."
   "Usage: gitto help [COMMAND]
@@ -86,17 +103,8 @@ Display a help message. If COMMAND is not specified, print some
 information about gitto, otherwise print some information about
 COMMAND."
   (if command
-      (let ((command-spec (assoc-ref command-list command)))
-        (if command-spec
-            (format #t "~a~%" (assq-ref command-spec #:documentation))
-            (format #t "Unknown command: ~a~%" command)))
-      (begin
-        (display "gitto [command [arguments ...]]")
-        (newline)
-        (for-each
-         (lambda (cmd)
-           (format #t "  ~a~15t~a~%" (car cmd) (assq-ref cmd #:usage)))
-         command-list))))
+      (print-command-help command)
+      (print-general-help)))
 
 (define (known? repo)
   "Do we know REPO?"
-- 
cgit v1.2.3-54-g00ecf