diff options
| -rw-r--r-- | XMonad/Layout/BoringWindows.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Layout/BoringWindows.hs b/XMonad/Layout/BoringWindows.hs index d66aa73..2629077 100644 --- a/XMonad/Layout/BoringWindows.hs +++ b/XMonad/Layout/BoringWindows.hs @@ -31,6 +31,7 @@ data BoringMessage = FocusUp | FocusDown | IsBoring Window | ClearBoring deriving ( Read, Show, Typeable ) instance Message BoringMessage +markBoring, clearBoring, focusUp, focusDown :: X () markBoring = withFocused (sendMessage . IsBoring) clearBoring = sendMessage ClearBoring focusUp = sendMessage FocusUp |