ओवरराइड xmonad फीका एक विंडो के लिए निष्क्रिय

Question

मैं Xmonad-contrib का फीका Inactive और xcompmgr का उपयोग करता हूं ताकि अनफोकस्ड विंडो को पारदर्शी बनाया जा सके।

कभी-कभी, मैं एक निष्क्रिय विंडो पूरी तरह से अपारदर्शी होना पसंद करता हूं, जैसे कि जब मैं एक वीडियो देख रहा हूं।

किसी को भी फीका निष्क्रिय का उपयोग कर कई अपारदर्शी खिड़कियां होने के लिए एक रणनीति है?

Answer 1

मैं इस पर काम कर रहा हूँ। :) यदि आप डार्क्स से xmonad चला रहे हैं, तो http://www.ece.cmu.edu/~allbery/FadeWindows.tgz देखें । (ध्यान दें कि आप जिस चीज़ का परीक्षण कर रहे हैं वह यह है कि क्या टारबॉल में शामिल होने की तुलना में इसकी अधिक निर्भरता है; यह अभी भी प्रगति पर है।) इसके लिए xmonad कोर के हाल के पैच की आवश्यकता है, जो मुझे पूरी तरह से यकीन नहीं है। अभी तक अपस्ट्रीम लागू है।

यह संग्रह आपके पास अनपैक किया जाना चाहिए ~/.xmonadऔर इसमें दो हास्केल स्रोत फ़ाइलों को रखा जाएगा ~/.xmonad/lib/XMonad/Hooks। (बेझिझक कहीं और अनपैक करें और उन्हें उनकी सही जगह पर कॉपी करने से पहले सत्यापित करें।) दस्तावेज़ीकरण हैडॉक मार्कअप है lib/XMonad/Hooks/FadeWindows.hs। विशेष रूप से आवश्यक ManageHook पैच के लिए जाँच करने के लिए कैसे नोट करें।

Comments

वैसे, एक त्वरित हैक के रूप में आप एक कुंजी को बांध सकते हैं spawn "xprop -set _NET_WINDOW_OPACITY 4294967295"; जब आप इसे चलाते हैं, तो कर्सर क्रॉसहेयर में बदल जाएगा, उस विंडो पर क्लिक करें जिसे आप अपारदर्शी बनाना चाहते हैं। फ़ोकस या कार्यक्षेत्र परिवर्तनों के बाद आपको आमतौर पर इसे दोहराना होगा, यही कारण है कि यह एक हैक है और समाधान नहीं है।

— गीकॉर्स

मैं आपके पैकेज में MoreManagerHelpers को संकलित करते हुए 2011.2.0.0 हास्केल प्लेटफार्म

— जकी

Pastebin उन्हें, और / या #xmonadFreeNode पर जाएँ।

— गीकॉशर

Answer 2

मैंने इस Xmonad.hs उदाहरणों की मदद से एक समाधान निकाला

http://code.google.com/p/xmonad/issues/attachmentText?id=393&aid=4341235945524725336&name=xmonad.hs&token=cc0422d6dd7c329bce14d1f4ca93a3db

आप FadeIf के माध्यम से फीका नहीं है कि खिड़कियों की एक सूची बना सकते हैं

एक उदाहरण xmonad.hs इस तरह दिखेगा

import XMonad
import XMonad.Hooks.FadeInactive
import Control.Monad (filterM,liftM, join)
import Data.IORef
import Data.List
import qualified Data.Set as S
import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig(additionalKeys,removeKeys)

myFadeHook toggleFadeSet = fadeOutLogHook $ fadeIf (testCondition toggleFadeSet) 0.7
doNotFadeOutWindows = title =? "Call with " <||> className =? "xine" <||> className =? "MPlayer"

testCondition :: IORef (S.Set Window) -> Query Bool
testCondition floats =
    liftM not doNotFadeOutWindows <&&> isUnfocused
    <&&> (join . asks $ \w -> liftX . io $ S.notMember w `fmap` readIORef floats)

toggleFadeOut :: Window -> S.Set Window -> S.Set Window
toggleFadeOut w s | w `S.member` s = S.delete w s
                  | otherwise = S.insert w s


main = do
  toggleFadeSet <- newIORef S.empty
  xmonad $ defaultConfig
  {
  logHook = myFadeHook toggleFadeSet
  , modMask = mod4Mask
  } `additionalKeys`
  [
  ((mod4Mask, xK_f), withFocused $ io . modifyIORef toggleFadeSet . toggleFadeOut
  ]