From 55641ee0250f2e244efe4a888cbd777453f75eb3 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Wed, 11 Nov 2009 02:29:15 +0100
Subject: Add defaultTopicConfig, to allow adding more fields to TopicSpace
 later.

Ignore-this: 6dad95769651a9a1ef8d771f81c91f8e

darcs-hash:20091111012915-1499c-125a9eb4016c35753929c5e551f81d2e9083deaa.gz
---
 XMonad/Actions/TopicSpace.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'XMonad/Actions')

diff --git a/XMonad/Actions/TopicSpace.hs b/XMonad/Actions/TopicSpace.hs
index 90e80d3..5632b85 100644
--- a/XMonad/Actions/TopicSpace.hs
+++ b/XMonad/Actions/TopicSpace.hs
@@ -22,6 +22,7 @@ module XMonad.Actions.TopicSpace
    Topic
   , Dir
   , TopicConfig(..)
+  , defaultTopicConfig
   , getLastFocusedTopics
   , setLastFocusedTopic
   , pprWindowSet
@@ -227,6 +228,14 @@ data TopicConfig = TopicConfig { topicDirs          :: M.Map Topic Dir
                                  -- numeric keypad.
                                }
 
+defaultTopicConfig :: TopicConfig
+defaultTopicConfig = TopicConfig { topicDirs = M.empty
+                                 , topicActions = M.empty
+                                 , defaultTopicAction = const (ask >>= spawn . terminal . config)
+                                 , defaultTopic = "1"
+                                 , maxTopicHistory = 10
+                                 }
+
 newtype PrevTopics = PrevTopics { getPrevTopics :: [String] } deriving (Read,Show,Typeable)
 instance ExtensionClass PrevTopics where
     initialValue = PrevTopics []
-- 
cgit v1.2.3