fiddlerwoaroof/dotfiles - Change IMMB6ZKLCUL7UEXN4RGAGXWFIEOAYGBZ73C3R3G2XZX72D4RFMBAC

Making Xmonad into a thing of beauty

Tweaked layout selection to only display the available layouts
- TODO: cleanup this code to reduce duplication
Added dzen2 popups at useful times
- On workspace switch
  - TODO: make sure all the various ways of switching workspaces get covered.
- On layout change
Added layout options to "web" and "terminal" workspaces
- web now allows fullscreen and two-pane layouts
- terminal now allows fullscreen and three-column layouts

Created by fiddlerwoaroof on July 26, 2014

IMMB6ZKLCUL7UEXN4RGAGXWFIEOAYGBZ73C3R3G2XZX72D4RFMBAC

Dependencies

In channels

main

Change contents

Insertion in .xmonad/xmonad.hs at line 4 [3.45]
[3.85]
[3.85]
```
import Data.Maybe
```
Insertion in .xmonad/xmonad.hs at line 42 [3.45]
[3.1201]
[3.1201]
```
import XMonad.Util.Dzen
```

Replacement in .xmonad/xmonad.hs at line 73 [3.45]

B:BD[3.2345] → [3.2345:2411]

   onWorkspace "web" myTabbed $
   onWorkspace "terminal" tiled $

[3.2345]

[3.2411]

   onWorkspace "web" (myTabbed ||| Full ||| (TwoPane (3/100) (1/2))) $
   onWorkspace "terminal" (tiled ||| threeLayout ||| Full) $

Insertion in .xmonad/xmonad.hs at line 80 [3.45]

[3.2675]


myDzenConfig :: DzenConfig
myDzenConfig = (timeout 1 >=> (onCurr (vCenter 100)) >=> (onCurr (hCenter 300)) >=> XMonad.Util.Dzen.font "xft:Source Code Pro:size=20:antialias=true")
makeLayoutList [] = []
makeLayoutList (l:ls) = (l,l):(makeLayoutList ls)
changeLayout a =
  case a of
     Just x -> sendMessage $ JumpToLayout x
     _ -> error "this shouldn't happen"
--mySTConfig = STC {
--   st_font = "Source Code Pro",
--   st_bg = "black",
--   st_fg = "red"
--}
-- This is the currently used layout change
-- activated with Meta+;
-- It displays the relevant list of layouts for the current display
-- TODO: show new layout as a popup message
nchooseLayout :: GSConfig String -> X ()
nchooseLayout conf = do
   loName <- wrapped_loName
   wsName <- wrapped_wsName 
   a <- gridselect conf $ makeLayoutList $
      cycleFront loName $ case wsName of
         "web" -> webList
         "terminal" -> terminalList
         "im" -> imList
         "images" -> imagesList
         _ -> defaultList
   case a of
      Just x -> do
         sendMessage $ JumpToLayout x
         dzenConfig myDzenConfig x
   return ()
 where
   wrapped_loName :: X [Char]
   wrapped_loName =  liftM (fromMaybe "") logLayout
   wrapped_wsName :: X [Char]
   wrapped_wsName =  liftM (fromMaybe "") logCurrent
   cycleFront :: String -> [String] -> [String]
   cycleFront n l = n:(Data.List.delete n l)
   basicList = ["Accordion", "Full", "Tabbed", "Spiral", "Wide", "ThreeWide", "WideAccordion", "Writing", "WritingNew", "Gridding", "TwoPane", "OneBig"]
   defaultList = ["Tall", "ThreeCol"] ++ basicList
   webList = ["Tabbed", "Full", "TwoPane"]
   terminalList = ["Tall", "ThreeCol", "Full"]
   imList = ["im"]
   imagesList = ["gimp", "Tall", "ThreeCol"] ++ basicList

Deletion in .xmonad/xmonad.hs at line 145 [3.45]

B:BD[3.3011] → [3.3011:3216]

      where
         makeLayoutList [] = []
         makeLayoutList (l:ls) = (l,l):(makeLayoutList ls)
         changeLayout a =
            case a of
               Just x -> sendMessage $ JumpToLayout x

Replacement in .xmonad/xmonad.hs at line 150 [3.45]

B:BD[3.3348] → [3.3348:3398]

   ppTitle = xmobarColor "green" "" . shorten 110

[3.3348]

[3.3398]

   ppTitle = xmobarColor "green" "" . shorten 126

Insertion in .xmonad/xmonad.hs at line 172 [3.45]
[3.4031]
[3.4031]
```
dShow = dzenConfig myDzenConfig
```
Insertion in .xmonad/xmonad.hs at line 178 [3.45]
[3.4120]
[3.4120]
```
  dShow target
```

Insertion in .xmonad/xmonad.hs at line 182 [3.45]

[3.4179]

  windows $ W.greedyView target
  dShow target
switchWorkspace target = do

Insertion in .xmonad/xmonad.hs at line 187 [3.45]
[3.4211]
[3.4211]
```
  dShow target
```

Insertion in .xmonad/xmonad.hs at line 191 [3.45]

[3.4301]

   xmproc1 <- spawnPipe "/home/edwlan/.cabal/bin/xmobar /home/edwlan/.xmobarrc1"

Insertion in .xmonad/xmonad.hs at line 195 [3.45]
[3.4416]
[3.4416]
```
         --handleEventHook = handleTimerEvent,
```

Replacement in .xmonad/xmonad.hs at line 202 [3.45]

B:BD[3.4608] → [3.4608:4708]

         XMonad.workspaces = ["|", "web", "terminal", "1", "2", "3", "4", "5", "6", "images", "IM"]

[3.4608]

[3.4708]

         XMonad.workspaces = ["web", "terminal", "1", "2", "3", "4", "5", "6", "images", "IM"]

Replacement in .xmonad/xmonad.hs at line 215 [3.45]

B:BD[3.5421] → [3.5421:6056]

         ((mod4Mask, numPadKeys !! 1), windows $ W.greedyView "web" ),
         ((mod4Mask, numPadKeys !! 2), windows $ W.greedyView "terminal" ),
         ((mod4Mask, numPadKeys !! 3), windows $ W.greedyView "1" ),
         ((mod4Mask, numPadKeys !! 4), windows $ W.greedyView "2" ),
         ((mod4Mask, numPadKeys !! 5), windows $ W.greedyView "3" ),
         ((mod4Mask, numPadKeys !! 6), windows $ W.greedyView "4" ),
         ((mod4Mask, numPadKeys !! 7), windows $ W.greedyView "5" ),
         ((mod4Mask, numPadKeys !! 8), windows $ W.greedyView "6" ),
         ((mod4Mask, numPadKeys !! 9), windows $ W.greedyView "images" ),

[3.5421]

[3.6056]

         ((mod4Mask, numPadKeys !! 1), switchWorkspace "web" ),
         ((mod4Mask, numPadKeys !! 2), switchWorkspace "terminal" ),
         ((mod4Mask, numPadKeys !! 3), switchWorkspace "1" ),
         ((mod4Mask, numPadKeys !! 4), switchWorkspace "2" ),
         ((mod4Mask, numPadKeys !! 5), switchWorkspace "3" ),
         ((mod4Mask, numPadKeys !! 6), switchWorkspace "4" ),
         ((mod4Mask, numPadKeys !! 7), switchWorkspace "5" ),
         ((mod4Mask, numPadKeys !! 8), switchWorkspace "6" ),
         ((mod4Mask, numPadKeys !! 9), switchWorkspace "images" ),

Insertion in .xmonad/xmonad.hs at line 245 [3.45]

[3.7554]

         ((mod4Mask, xK_1), switchWorkspace "web" ),
         ((mod4Mask, xK_2), switchWorkspace "terminal" ),
         ((mod4Mask, xK_3), switchWorkspace "1" ),
         ((mod4Mask, xK_4), switchWorkspace "2" ),
         ((mod4Mask, xK_5), switchWorkspace "3" ),
         ((mod4Mask, xK_6), switchWorkspace "4" ),
         ((mod4Mask, xK_7), switchWorkspace "5" ),
         ((mod4Mask, xK_8), switchWorkspace "6" ),
         ((mod4Mask, xK_9), switchWorkspace "images" ),
         ((mod4Mask, xK_grave), switchWorkspace "IM" ),

Deletion in .xmonad/xmonad.hs at line 276 [3.45]

B:BD[3.8853] → [3.8853:9453]

         ((mod4Mask, xK_1), windows $ W.greedyView "web" ),
         ((mod4Mask, xK_2), windows $ W.greedyView "terminal" ),
         ((mod4Mask, xK_3), windows $ W.greedyView "1" ),
         ((mod4Mask, xK_4), windows $ W.greedyView "2" ),
         ((mod4Mask, xK_5), windows $ W.greedyView "3" ),
         ((mod4Mask, xK_6), windows $ W.greedyView "4" ),
         ((mod4Mask, xK_7), windows $ W.greedyView "5" ),
         ((mod4Mask, xK_8), windows $ W.greedyView "6" ),
         ((mod4Mask, xK_9), windows $ W.greedyView "images" ),
         ((mod4Mask, xK_grave), windows $ W.greedyView "IM" ),

Replacement in .xmonad/xmonad.hs at line 292 [3.45]

B:BD[3.10696] → [3.10696:10763]

         ((mod4Mask, xK_semicolon), chooseLayout defaultGSConfig),

[3.10696]

[3.10763]

         ((mod4Mask, xK_semicolon), nchooseLayout defaultGSConfig),

Deletion in .xmobarrc at line 7 [2.1614]

B:BD[2.1986] → [2.1986:2077]

                    , Run Mpris2 "mpd" ["-t", "(<state>) <artist>/<composer>: <title>"] 10

Replacement in .xmobarrc at line 12 [2.1614]

B:BD[2.2352] → [2.2352:2483]

                    , Run Com "echo" ["$USER"] "username" 864000
                    , Run Com "hostname" ["-s"] "hostname" 864000

[2.2352]

[2.2483]

                    , Run Com "whoami" [] "username" 864000
                    , Run Com "hostname" [] "hostname" 864000

Replacement in .xmobarrc at line 18 [2.1614]

B:BD[2.2591] → [2.2591:2748]

       , template = "%mpris2% :: %StdinReader% }{ %cpu% | %memory% * %swap% | %loadavg% -- %username%@%hostname%    <fc=#ee9a00>%date% %time%</fc> | %EGPF%"

[2.2591]

[2.2748]

       , template = " %StdinReader% }{ %cpu% | %memory% * %swap% | %loadavg% -- %username%@%hostname%    <fc=#ee9a00>%date% %time%</fc> | %EGPF%"