[Solved] Dzen2 , Clock , Date.

Question

Hello.
I was using DWM before and he has an option to in .xinitrc to viev clock on it's bar.
And now I'm using XMonad and I want to see clock on dzen2 bar.
When I type:
date | dzen2
nothing happen's.
And When I type:
date | dmenu
I see normal clock on dmenu.
What should I do to see clock on dzen2?
Last edited by SpeedVin (2009-08-24 07:36:36)

Answer 1

Ashren wrote:
SimpleDate will give you a popup showing the date and time. Is that what you want? SimpleDate is not a layout but an action.
You can integrate a dzen2 statusbar into XMonad showing workspaces and whatnot. Can you post you xmonad.hs here?
Yeah just like in DWM
I can hide/viev bar .
Here is my config:
9 -- Imports
10 import XMonad.Actions.SimpleDate
11 import XMonad hiding (Tall)
12 import XMonad.Hooks.DynamicLog
13 import XMonad.Hooks.UrgencyHook
14 import XMonad.Hooks.ManageDocks
15 import XMonad.Hooks.ManageHelpers
16 import XMonad.Hooks.XPropManage
17 import XMonad.Layout.Tabbed
18 import XMonad.Layout.DecorationMadness
19 import XMonad.Layout.ResizableTile
20 import XMonad.Layout.Reflect
21 import XMonad.Layout.HintedTile
22 import XMonad.Layout.PerWorkspace
23 import XMonad.Layout.NoBorders
24 import XMonad.Layout.ThreeColumns
25 import XMonad.Layout.Grid
26 import XMonad.Layout.IM
27 import XMonad.Actions.WindowGo
28 import XMonad.Util.Run
29 import qualified Data.Map as M
30 import qualified XMonad.StackSet as W
31 import Data.Ratio
32 import System.IO
33 import System.Exit
34
35 import Graphics.X11.Xlib
36 import Graphics.X11.Xlib.Extras
37 import Foreign.C.Types (CLong)
38
39 -- Main
40 main = do
41 d <- spawnPipe myStatusBar
42 spawn myOtherBar
43 xmonad $ withUrgencyHook NoUrgencyHook $ defaultConfig
44 { terminal = myTerminal
45 , workspaces = myWorkspaces
46 , borderWidth = myBorderWidth
47 , normalBorderColor = myNormalBorderColor
48 , focusedBorderColor = myFocusedBorderColor
49 , layoutHook = myLayout
50 , manageHook = myManageHook
51 , keys = myKeys
52 }
53
54 -- Options
55 myBorderWidth = 0
56 myTerminal = "urxvtc"
57 myNormalBorderColor = "#303030"
58 myFocusedBorderColor = "#ff0000"
59 myWorkspaces = ["1-irssi", "2-web" ,"3-im", "4", "5", "6", "7", "8", "9-term"]
60
61 -- Menu and Dialog Hook
62 getProp a w = withDisplay $ \dpy -> io $ getWindowProperty32 dpy a w
63
64 checkAtom name value = ask >>= \w -> liftX $ do
65 a <- getAtom name
66 val <- getAtom value
67 mbr <- getProp a w
68 case mbr of
69 Just [r] -> return $ elem (fromIntegral r) [val]
70 _ -> return False
71
72 checkMenu = checkAtom "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_MENU"
73 checkDialog = checkAtom "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_DIALOG"
74
75 manageMenus = checkMenu --> doFloat
76 manageDialogs = checkDialog --> doFloat
77
78 -- Window Management
79 myManageHook = composeAll . concat $
80 [ [(className =? m <&&> role =? "roster") --> (ask >>= doF . W.sink) | m <- myIMs ]
81 , [className =? m --> doShift "3-im" | m <- myIMs ]
82 , [className =? w --> doShift "2-web" | w <- myWebs ]
83 , [title =? i --> doShift "1-irssi" | i <- myIRC ]
84 , [className =? f --> doFloat | f <- myFloats ]
85 , [className =? c --> doCenterFloat | c <- myCFloats]
86 ]
87 where
88 role = stringProperty "WM_WINDOW_ROLE"
89 myIMs = ["Gajim.py", "Pidgin"]
90 myWebs = ["Navigator", "Shiretoko", "Firefox"]
91 myIRC = ["irssi", "weechat"]
92 myFloats = ["VirtualBox"]
93 myCFloats = ["Gajim.py", "Pidgin", "Zenity"]
94
95 -- Layouts
96 myLayout = avoidStruts $ onWorkspace "3-im" imLayout $ tiled ||| Mirror tiled ||| hintedTile Tall ||| hintedTile Wide ||| imLayout |||
97 where
98 tiled = ResizableTall nmaster delta ratio []
99 hintedTile = HintedTile nmaster delta ratio TopLeft
100 imLayout = reflectHoriz $ withIM (1%10) (Role "roster") Grid
101 nmaster = 1
102 delta = 3 % 100
103 ratio = 1 % 2
104
105 -- LogHook
106 myLogHook h = dynamicLogWithPP $ defaultPP
107 { ppCurrent = dzenColor "#303030" "#909090" . pad
108 , ppHidden = dzenColor "#909090" "" . pad
109 , ppHiddenNoWindows = dzenColor "#606060" "" . pad
110 , ppLayout = dzenColor "#909090" "" . pad
111 , ppUrgent = wrap (dzenColor "#ff0000" "" "{") (dzenColor "#ff0000" "" "}") . pad
112 , ppTitle = wrap "^fg(#909090)[ " " ]^fg()" . shorten 40
113 , ppWsSep = ""
114 , ppSep = " "
115 , ppOutput = hPutStrLn h
116 }
117 -- Key Bindings
118 myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
119 [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
120 , ((modMask, xK_o ), date)
121 , ((modMask, xK_p ), spawn "sh /home/user/u.sh") -- %! program launcher
122 , ((modMask .|. shiftMask, xK_w ), spawn "uzbl") -- %! open web client,
123 , ((modMask .|. shiftMask, xK_m ), spawn "urxvtc -e mutt") -- %! open mail client
124 , ((modMask .|. shiftMask, xK_i ), spawn "urxvtc -e irssi") -- %! open IRC client
125 , ((modMask, xK_a ), spawn "msearch all") -- %! Search current playlist via dmenu
126 , ((modMask, xK_o ), date) -- %! Viev Simple date in dzen2.
127 , ((modMask, xK_w ), kill) -- %! Close current window
128 , ((modMask, xK_n ), refresh) -- %! Resize viewed windows to the correct size
129 , ((modMask, xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms
130 , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) -- %! Reset the layouts on the current workspace to defaul
131 , ((modMask, xK_Tab ), windows W.focusDown) -- %! Move focus to the next window
132 , ((modMask .|. shiftMask, xK_Tab ), windows W.focusUp) -- %! Move focus to the previous window
133 , ((modMask, xK_j ), windows W.focusDown) -- %! Move focus to the next window
134 , ((modMask, xK_k ), windows W.focusUp) -- %! Move focus to the previous window
135 , ((modMask, xK_m ), windows W.focusMaster) -- %! Move focus to the master window
136 , ((modMask, xK_Return), windows W.swapMaster) -- %! Swap the focused window with the master window
137 , ((modMask .|. shiftMask, xK_j ), windows W.swapDown) -- %! Swap the focused window with the next window
138 , ((modMask .|. shiftMask, xK_k ), windows W.swapUp) -- %! Swap the focused window with the previous window
139 , ((modMask, xK_h ), sendMessage Shrink) -- %! Shrink the master area
140 , ((modMask, xK_l ), sendMessage Expand) -- %! Expand the master area
141 , ((modMask, xK_u ), sendMessage MirrorShrink) -- %! Shrink the selected pane vertically
142 , ((modMask, xK_i ), sendMessage MirrorExpand) -- %! Expand the selected pane vertically
143 , ((modMask, xK_t ), withFocused $ windows . W.sink) -- %! Push window back into tiling
144 , ((modMask, xK_comma ), sendMessage (IncMasterN 1)) -- %! Increment the number of windows in the master area
145 , ((modMask, xK_period), sendMessage (IncMasterN (-1))) -- %! Decrement the number of windows in the master area
146 --, ((modMask, xK_q ), restart "xmonad" True) -- %! Restart xmonad
147 , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- %! Quit xmonad
148 ]
149 ++
150 [ ((m .|. modMask, k), windows $ f i)
151 | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] -- %! Switch to workspace N
152 , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] -- %! Move client to workspace N
153 ]
154
155 ---
Last edited by SpeedVin (2009-08-24 06:05:23)