diff options
| -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 [] |