-
-
Notifications
You must be signed in to change notification settings - Fork 285
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Simplify the design of the manage hook #435
Open
LSLeary
wants to merge
7
commits into
xmonad:master
Choose a base branch
from
LSLeary:remanage
base: master
Could not load branches
Branch not found: {{ refName }}
Could not load tags
Nothing to show
Are you sure you want to change the base?
Some commits from the old base branch may be removed from the timeline,
and old review comments may become outdated.
Open
Changes from all commits
Commits
Show all changes
7 commits
Select commit
Hold shift + click to select a range
b15c97b
Track Model--View Deviation in the X monad
LSLeary 2d6ef0f
MVDT: Propagate changes through Operations and Main
LSLeary 3325706
MVDT: Declare every deviation; deprecate the undeclaring
LSLeary 2fff2a0
Clean up sendMessage, setLayout & manage
LSLeary 4f50c84
Support nesting of handleRefresh
LSLeary 506b13c
Document MVDT changes; declare authorship
LSLeary 9b930c6
MVDT: Simplify the design of the manage hook
LSLeary File filter
Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,32 @@ | ||
{-# LANGUAGE NamedFieldPuns #-} | ||
|
||
module XMonad.Internal.Core | ||
( Internal, unsafeMakeInternal | ||
, readView, unsafeWriteView | ||
) where | ||
|
||
import Data.IORef (IORef, newIORef, readIORef, writeIORef) | ||
|
||
-- | An opaque data type for holding state and configuration that isn't to be | ||
-- laid bare to the world outside, nor even to the rest of the package if we | ||
-- can help it. | ||
newtype Internal model = Internal | ||
{ view :: IORef model -- ^ An 'IORef' to which we log the state of the view. | ||
} | ||
|
||
-- | The ability to construct an 'Internal' allows one to play tricks with | ||
-- 'local'. | ||
unsafeMakeInternal :: model -> IO (Internal model) | ||
unsafeMakeInternal model = do | ||
viewRef <- newIORef model | ||
pure Internal | ||
{ view = viewRef | ||
} | ||
|
||
readView :: Internal model -> IO model | ||
readView Internal{view} = readIORef view | ||
|
||
-- | The 'view' ref can only be safely written to with a just-rendered model. | ||
unsafeWriteView :: Internal model -> model -> IO () | ||
unsafeWriteView Internal{view} = writeIORef view | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,18 @@ | ||
|
||
module XMonad.Internal.Operations | ||
( rendered, unsafeLogView | ||
) where | ||
|
||
import Control.Monad.Reader (asks) | ||
import XMonad.Internal.Core (readView, unsafeWriteView) | ||
import XMonad.Core (X, WindowSet, internal, io, withWindowSet) | ||
|
||
-- | Examine the 'WindowSet' that's currently rendered. | ||
rendered :: X WindowSet | ||
rendered = asks internal >>= io . readView | ||
|
||
-- | See 'unsafeWriteView'. | ||
unsafeLogView :: X () | ||
unsafeLogView = do | ||
i <- asks internal | ||
withWindowSet (io . unsafeWriteView i) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
You could keep the old order by making it
Dual (Ap Query a)
, but then it becomes even harder to learn.