--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
 coverage
-*.png
\ No newline at end of file
+*.png
+*.tmproj
\ No newline at end of file

--- /dev/null
+++ b/.kipling
@@ -0,0 +1 @@
+Kipling.card_dir = 'stories/stories'
\ No newline at end of file

--- a/lib/kipling.rb
+++ b/lib/kipling.rb
@@ -8,3 +8,26 @@ require 'kipling/renderer'
 require 'kipling/scanner'
 require 'kipling/reader'
 require 'kipling/command_line'
+
+module Kipling
+  class << self
+    attr_accessor :card_dir
+    
+    def file_system
+      @file_system ||= Scanner::FileSystem.new(card_dir)
+    end
+    
+    def scm
+      @scm ||= Scanner::Git.new('.', card_dir)
+    end
+
+    # Returns an array [Time, [Kipling::Card]]
+    #
+    # TODO: If +rev+ is passed, the snapshot is taken from the SCM.
+    def snapshot(rev=nil)
+      after = Time.utc(1980)
+      before = Time.utc(2030)
+      file_system.timeline(after, before).points[0]
+    end
+  end
+end

--- a/lib/kipling/camping/kipling_web.rb
+++ b/lib/kipling/camping/kipling_web.rb
@@ -6,12 +6,7 @@ Camping.goes :KiplingWeb
 module KiplingWeb::Controllers
   class Index < R '/'
     def get
-      @scanner = Kipling::Scanner::Git.new('.', 'stories/stories')
-      after = Time.now - 4*24*3600
-      before = Time.now
-      @timeline = scanner.timeline(after, before)
-      points = timeline.points[0]
-      cards = points[1]
+      cards = Kipling.snapshot[1]
       @card_view = Kipling::CardView.new(cards, :attribute => 'state')
       render :index
     end
@@ -21,6 +16,23 @@ end
 module KiplingWeb::Views
   def index
     h1 'Cards'
-    'hallo'
+    table do
+      tr do
+        @card_view.card_groups.each do |card_group|
+          th card_group.attribute_value
+        end
+      end
+      tr do
+        @card_view.card_groups.each do |card_group|
+          td do
+            ul do
+              card_group.cards.each do |card|
+                li card.name
+              end
+            end
+          end
+        end
+      end
+    end
   end
 end

--- a/lib/kipling/card_group.rb
+++ b/lib/kipling/card_group.rb
@@ -13,6 +13,8 @@ module Kipling
       end
     end
 
+    attr_reader :cards, :attribute_value
+
     def initialize(cards, attribute_value)
       @cards = cards.dup
       @attribute_value = attribute_value

--- a/lib/kipling/command_line.rb
+++ b/lib/kipling/command_line.rb
@@ -8,6 +8,7 @@ module Kipling
   class CommandLine < CmdParse::CommandParser
     def initialize
       super(true,true)
+      load_prefs
       self.program_name = "kipling"
       self.program_version = Kipling::VERSION.split('.')
       
@@ -15,9 +16,6 @@ module Kipling
       @glob = 'stories/**/*.story'
 
       self.options = CmdParse::OptionParserWrapper.new do |opt|
-        opt.separator "Global options:"
-        opt.on("--verbose", "Be verbose when outputting info") {|t| $verbose = true }
-        opt.on("--scanner=SCANNER", "What scanner to use. Valid values are git or file") {|v| @scanner = v }
       end
 
       add_command(CmdParse::HelpCommand.new)
@@ -31,16 +29,13 @@ module Kipling
       add_command(Commands::ServerCommand.new)
     end
     
-    def scanner
-      if @scanner == 'file'
-        scanner = Scanner::FileSystem.new(@glob)
-      else
-        scanner = Scanner::Git.new('.', 'stories/stories')
+    def load_prefs
+      begin
+        load '.kipling'
+      rescue MissingSourceFile
+        STDERR.puts "There is no .kipling file here. Please create one."
+        exit 1
       end
     end
-    
-    def timeline(after, before)
-      scanner.timeline(after, before)
-    end
   end
 end

--- a/lib/kipling/commands/snapshot_command.rb
+++ b/lib/kipling/commands/snapshot_command.rb
@@ -10,7 +10,6 @@ module Kipling
         
         @format = 'ascii'
         @attribute = 'state'
-        @n = 0
         @sum = nil
         self.options = CmdParse::OptionParserWrapper.new do |opt|
           opt.on("--format=X",  "How to output format. Valid types are ascii or html") {|f| @format = f }
@@ -21,10 +20,7 @@ module Kipling
       end
       
       def execute(args)
-        after = Time.now - 4*24*3600
-        before = Time.now
-        timeline = super_command.super_command.timeline(after, before)
-        points = timeline.points[@n]
+        points = Kipling.snapshot
         cards = points[1]
         card_view = CardView.new(cards, :attribute => @attribute, :sum => @sum)
         renderer_class = {'ascii' => Renderer::Snapshot::Ascii, 'html' => Renderer::Snapshot::Html}[@format]

--- a/lib/kipling/commands/timeline_command.rb
+++ b/lib/kipling/commands/timeline_command.rb
@@ -44,9 +44,9 @@ module Kipling
       end
       
       def execute(args)
-        after = Time.now - 4*24*3600
+        after = Time.now - 14*24*3600
         before = Time.now
-        timeline = super_command.super_command.timeline(after, before)
+        timeline = Kipling.scm.timeline(after, before)
         timeline.render(renderer, @y_attribute, @grouping_attribute, grouping_values)
       end
     end

--- a/lib/kipling/scanner/file_system.rb
+++ b/lib/kipling/scanner/file_system.rb
@@ -3,8 +3,8 @@ require 'yaml'
 module Kipling
   module Scanner
     class FileSystem
-      def initialize(glob, card_reader=Reader::Yaml.new)
-        @glob = glob
+      def initialize(dir, card_reader=Reader::Yaml.new)
+        @glob = "#{dir}/*"
         @card_reader = card_reader
       end
     

--- a/lib/kipling/scanner/git.rb
+++ b/lib/kipling/scanner/git.rb
@@ -13,7 +13,8 @@ module Kipling
         timeline = Timeline.new(after, before)
 
         # TODO: Make git-ruby support until
-        @repo.log.since(after).each do |commit|
+        # TODO: since doesn't work. I have emailed Scott Chacon about it
+        @repo.log(100).each do |commit|
           timeline.add(commit.author_date) do
             tree = subtree(commit)
             unless tree.nil?