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(+)
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