SHARE
TWEET

Untitled

a guest Jun 19th, 2017 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     switchToSelectedLayout :: [String] -> X ()
  2.     switchToSelectedLayout layouts = runSelectedAction defaultGSConfig menu
  3.        where
  4.           menu = map (\s -> (s, sendMessage $ JumpToLayout s)) layouts
  5.    
  6.     keysP =
  7.        [
  8.        ,  ("M-<Space>", switchToSelectedLayout ["Tabbed Simplest"
  9.                                                ,"Circle"
  10.                                                ,"TwoPane"
  11.                                                ,"ResizableTall"
  12.                                                ,"Mirror ResizableTall"
  13.                                                ,"Magnifier Grid"
  14.                                                ,"Spiral"
  15.                                                ,"ThreeCol"
  16.                                                ])
  17.     ]
RAW Paste Data
Top