この種のxmonadタイル作成方法

Question

xmonadでこの種のタイルを生成するにはどうすればよいですか？私はあなたがへのMOD-コンマでマスターペインのウィンドウの数を増加/減少、およびMOD-スペースMOD-HとMOD-Lを使用することができます知っている

http://xmonad.org/images/screen-ejt-spiral-dzen.png

レイアウトを変更します。しかし、それらのコマンドのセットは上記のリンクでタイリングの種類を再現できないようです。特に

、私は上記のリンクがないことを行う方法を知っていない2つのものがあります：

1. 右側の大きなタイルが中央で水平に分割し、実際に長いされていませんが。 mod-hとmod-l
2. 右側の小さい方のタイルは2つのサブタイルに分割されています。私は、あなたもあなたの.xmonad/xmonad.hsあなたはHaskellのと少し経験を持っている必要があり、このために で新しいレイアウトを作成する必要がxmonad

Answer 1

でこれについては行くだろうか見当がつかない。

私はここに、特定のキーの組み合わせを押すことで使用可能なフルスクリーンレイアウトを作成したの例です：

は、次のようにインポートします。

import XMonad.Layout.Spacing 
import XMonad.Layout.LayoutCombinators hiding ((|||)) 
import XMonad.Layout.Fullscreen 
import XMonad.Layout.NoBorders 
import XMonad.Layout.Reflect 
import XMonad.Layout.Combo 
import XMonad.Layout.TwoPane 
import XMonad.Layout.Tabbed 
import XMonad.Layout.PerWorkspace 
import XMonad.Layout.IM 
import XMonad.Layout.ThreeColumns 

そして、あなたはこのような何かを行うことができます：

この後

sPx = 1 

verticalLayout = spacing sPx $ avoidStruts $ reflectHoriz $ Tall 1 0.03 0.5 
verticalLayoutLargeScreen = spacing sPx $ avoidStruts $ ThreeCol 1 0.03 0.5 
horizontalLayout = spacing sPx $ avoidStruts $ Mirror $ Tall 1 0.03 0.5 
webdevLayout = spacing sPx $ avoidStruts $ Tall 1 0.03 0.63 
fullscreenLayout = noBorders $ fullscreenFull $ Full 

myLayout = 
    onWorkspace "2:web" (webdevLayout ||| fullscreenLayout) $ 
        (verticalLayout ||| horizontalLayout ||| fullscreenLayout) 

あなたのキーコンボのマッピングを定義します。

myAdditionalKeys = [ 
    -- Switch to next layout: 
    ((mod4Mask .|. shiftMask, xK_m), sendMessage NextLayout), 
] 

、その後は次のようになります、あなたのレイアウトや設定へのあなたのキーマッピングを追加することを忘れないでください：

main = do 
    xmonad $ defaultConfig 
      { manageHook = manageSpawn <+> myManageHook <+> manageDocks, 
       layoutHook = myLayout, 
       logHook = dynamicLogWithPP xmobarPP { 
         ppOutput = hPutStrLn xmproc, 
         ppLayout = (\ x -> ""), 
         ppTitle = xmobarColor "#b2ed00" "" 
        } >> updatePointer (Relative 0.99 0.99), 
       modMask = mod4Mask, 
       borderWidth = 4, 
       normalBorderColor = "#777777", 
       focusedBorderColor = "#ccff00", 
       workspaces = myWorkspaces, 
       focusFollowsMouse = True, 
       terminal = "x-terminal-emulator" 
      } 
      `removeKeys` myRemoveKeys 
      `additionalKeys` myAdditionalKeys