diff --git a/Makefile.am b/Makefile.am index 0b29883..01f95f2 100644 --- a/Makefile.am +++ b/Makefile.am @@ -81,6 +81,7 @@ SOURCES = \ scripts/config.scm \ scripts/create-bundle.scm \ scripts/list-packages.scm \ + scripts/hall.scm \ scripts/install.scm \ scripts/reinstall.scm \ scripts/remove.scm \ diff --git a/scripts/hall.scm b/scripts/hall.scm new file mode 100644 index 0000000..95e605e --- /dev/null +++ b/scripts/hall.scm @@ -0,0 +1,38 @@ +;;; hall.scm --- Dorodango for Guile + +;; Copyright (C) 2011 Free Software Foundation, Inc. +;; Copyright (C) 2009, 2010 Andreas Rottmann + +;; Author: Arne Babenhauserheide + +;; This program 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. + +;; This program 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 this program. If not, see . + +;;; Commentary: + +;; This is the command-line interface to dorodango. + +;; Plan: +;; default: list people +;; --list-repos --add-repo --delete-repo + + +;;; Code: + +(define-module (scripts hall)) + +(define %summary "Create your guild hall.") +(define (main . args) + (write "hall") + (write args) + (newline))