diff options
Diffstat (limited to 'gitto/main.scm')
-rw-r--r-- | gitto/main.scm | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/gitto/main.scm b/gitto/main.scm index 1699118..2d72e18 100644 --- a/gitto/main.scm +++ b/gitto/main.scm @@ -1,3 +1,21 @@ +;; gitto -- Keep track of your git repositories +;; Copyright (C) 2012 Tom Willemsen <tom at ryuslash dot org> + +;; This file is part of gitto. + +;; gitto is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; gitto is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with gitto. If not, see <http://www.gnu.org/licenses/>. + (define-module (gitto main) #:use-module (ice-9 format) #:use-module (ice-9 getopt-long) @@ -25,7 +43,12 @@ (define (version) "Display version information" - (display "gitto version 0.1\n")) + (display "gitto 0.1") (newline) + (display "Copyright (C) 2012 Tom Willemsen") (newline) + (display "This program comes with ABSOLUTELY NO WARRANTY.") (newline) + (display "You may redistribute copies of this program") (newline) + (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 (help) "Display some help." |