diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-11 02:29:15 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-11 02:29:15 +0100 |
| commit | 55641ee0250f2e244efe4a888cbd777453f75eb3 (patch) | |
| tree | cd50c2cb536d863d8f4d73f2b05d2d73090eede3 /XMonad/Actions | |
| parent | b29dbd6f2e9648ebb9759e7db82c4c435a0f2831 (diff) | |
| download | XMonadContrib-55641ee0250f2e244efe4a888cbd777453f75eb3.tar.gz XMonadContrib-55641ee0250f2e244efe4a888cbd777453f75eb3.tar.xz XMonadContrib-55641ee0250f2e244efe4a888cbd777453f75eb3.zip | |
Add defaultTopicConfig, to allow adding more fields to TopicSpace later.
Ignore-this: 6dad95769651a9a1ef8d771f81c91f8e
darcs-hash:20091111012915-1499c-125a9eb4016c35753929c5e551f81d2e9083deaa.gz
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/TopicSpace.hs | 9 |
1 files changed, 9 insertions, 0 deletions
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 [] |