如何使程序在Haskell中等待

问题描述

我的笔记本电脑屏幕很小，通常在全屏/单片布局中使用我的应用程序。但是，由于我看不到它们，因此很难记住我的应用程序在堆栈中的确切位置。

为解决此问题，我想让xmonad在将其聚焦一定时间后自动使窗口移至堆栈顶部。有点像Android如何管理其应用程序。

我正在尽最大努力通过以下钩子实现这一目标。但是我只是对Haskell的了解不足，无法完成这项工作。

hook :: Event -> X All
hook (AnyEvent {ev_event_type = et}) = do
  when (et == focusIn) $
        withWindowSet(\ws -> 
           let focused = W.peek ws
           timeout 1000000
           if (focused == W.peek ws) then promote else ws 
        )
  return (All True)
hook _ = return (All True)

我是这个新手，我真的很感谢一些建议，这已经困扰了我一段时间，您真的会帮我一个忙。：D

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

haskell haskell xmonad