Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Logging pipes moved out to own directory

  • Loading branch information...
commit ee4e33a20422faeed02a258e36550c748ffea05e 1 parent 41dba7d
Andrew Radev authored August 19, 2010
7  lib/Util.hs
@@ -7,11 +7,14 @@ import XMonad.Hooks.ManageDocks
7 7
 import XMonad.Hooks.ManageHelpers
8 8
 import XMonad.Hooks.DynamicHooks
9 9
 
  10
+keypressesPipe = "~/.xmonad/pipes/keypresses"
  11
+statusPipe     = "~/.xmonad/pipes/status"
  12
+
10 13
 logKey key = do
11  
-	spawn $ "echo '<fc=#ff0000>[</fc>" ++ key ++ "<fc=#ff0000>]</fc>' >> ~/.xmonad/keypresses-pipe"
  14
+	spawn $ "echo '<fc=#ff0000>[</fc>" ++ key ++ "<fc=#ff0000>]</fc>' >> " ++ keypressesPipe
12 15
 
13 16
 logStatus message = do
14  
-	spawn $ "echo '" ++ message ++ "' >> ~/.xmonad/status-pipe"
  17
+	spawn $ "echo '" ++ message ++ "' >> " ++ statusPipe
15 18
 
16 19
 spawnLog prog = do
17 20
   pid <- spawnPID prog
0  pipes/empty
No changes.
7  xmobarrc-bottom
@@ -3,12 +3,13 @@ Config { font = "xft:Terminus:size=12"
3 3
        , fgColor = "#eeeeee"
4 4
        , position = BottomW L 90
5 5
        , lowerOnStart = True
6  
-       , commands = [ Run CommandReader "tail -f ~/.xmonad/status-pipe" "log"
7  
-                    , Run CommandReader "tail -f ~/.xmonad/keypresses-pipe" "keyLog"
  6
+       , commands = [ Run CommandReader "tail -f ~/.xmonad/pipes/status" "actionLog"
  7
+                    , Run CommandReader "tail -f ~/.xmonad/pipes/keypresses" "keyLog"
  8
+                    , Run CommandReader "tail -f ~/.xmonad/pipes/tests" "testLog"
8 9
                     , Run CommandReader "sh /home/andrew/remind" "remind"
9 10
                     , Run MPD ["-t", "<title> <statei> <bar>"] 10
10 11
                     ]
11 12
        , sepChar = "%"
12 13
        , alignSep = "}{"
13  
-       , template = "%log% }{ %keyLog% %remind% <fc=#ff0000>|</fc>%mpd%<fc=#ff0000>|</fc>"
  14
+       , template = "%actionLog% | %testLog% }{ %keyLog% %remind% <fc=#ff0000>|</fc>%mpd%<fc=#ff0000>|</fc>"
14 15
        }
3  xmonad.hs
@@ -22,8 +22,7 @@ customConfig logger = defaultConfig
22 22
   { borderWidth        = 3
23 23
   , terminal           = "urxvt"
24 24
   , normalBorderColor  = "#cccccc"
25  
---  , normalBorderColor  = "#000000"
26  
-  , focusedBorderColor = "#ee1111"
  25
+  , focusedBorderColor = "#11ee11"
27 26
   , focusFollowsMouse  = False
28 27
   , workspaces         =
29 28
     [ "1"

0 notes on commit ee4e33a

Please sign in to comment.
Something went wrong with that request. Please try again.