guest@dotshare [~/groups/wms/xmonad] $ ls good-kenthu/ | cat

good kenthu (scrot, raw, dl)

hokagemadura Jan 10, 2014 (wms/xmonad)

SCROT

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
import XMonad
import Control.Monad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
import XMonad.Layout.Spacing
import XMonad.Layout.ResizableTile
import XMonad.Layout.SimpleFloat
import XMonad.Layout.NoBorders	  (noBorders)
import XMonad.Layout.PerWorkspace (onWorkspace)
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import qualified GHC.IO.Handle.Types as H

fro 	= "^i(/home/kagura/.icons/xbm8x8/fro_01.xbm)"

--------------------------------------------------------------------------
-- workspace --
--------------------------------------------------------------------------

myWorkspaces	:: [String]
myWorkspaces	= clickable $ [ "^i(/home/kagura/.icons/stlarch/grid.xbm)  fuck "++fro++""
			      , "^i(/home/kagura/.icons/xbm8x8/cpu.xbm)  kewl "++fro++""
			      , "^i(/home/kagura/.icons/xbm8x8/fox.xbm)  newt "++fro++""
			      , "^i(/home/kagura/.icons/xbm8x8/info_02.xbm)  oil "++fro++""
			      , "^i(/home/kagura/.icons/xbm8x8/phones.xbm)  joke "++fro++""
			      ]
		where clickable l 	= [ "^ca(1,xdotool key super+" ++ show (n) ++ ")" ++ ws ++ "^ca()" |
					    (i,ws) <- zip [1..] l,
					    let n = i ]

laycon		= "/home/kagura/.icons/stlarch/"

--------------------------------------------------------------------------
-- style --
--------------------------------------------------------------------------
myLogHook h = do
	dynamicLogWithPP $ tryPP h
tryPP :: Handle -> PP
tryPP h = defaultPP	
	{ ppOutput		= hPutStrLn h
	, ppCurrent 		= dzenColor "#f8f8f8" "#151515" . pad
	, ppVisible		= dzenColor "#808080" "#151515" . pad
	, ppHidden		= dzenColor "#808080" "#151515" . pad
	, ppHiddenNoWindows	= dzenColor "#8f8f8f" "#151515" . pad
	, ppWsSep		= ""
	, ppSep			= " "
	, ppLayout		= dzenColor "#b3b3b3" "#151515" .
				  ( \x -> case x of
					"Spacing 20 ResizableTall"	-> "^ca(1,xdotool key super+space)^i("++laycon++"tile.xbm)^ca()"
					"Simple Float"			-> "^ca(1,xdotool key super+space)^i("++laycon++"float.xbm)^ca()"
					"Full"				-> "^ca(1,xdotool key super+space)^i("++laycon++"monocle2.xbm)^ca()"
					"ResizableTall"			-> "^ca(1,xdotool key super+space)^i("++laycon++"ntile.xbm)^ca()"
					"Mirror ResizableTall"		-> "^ca(1,xdotool key super+space)^i("++laycon++"nbstack.xbm)^ca()"
				  )
	}

dzenFont = "lime-10"

---------------------------------------------------------------------------
-- additional key --
---------------------------------------------------------------------------

myKeys	 = [ ((mod4Mask,	xK_m), sendMessage MirrorShrink)
	   , ((mod4Mask,	xK_u), sendMessage MirrorExpand)
	   ]

---------------------------------------------------------------------------
-- layout tiling --
---------------------------------------------------------------------------

myLayout = spacing 20 $ ResizableTall 2 (3/200) (7/13) []
tiled	 = ResizableTall 2 (2/300) (1/2) []

---------------------------------------------------------------------------
-- main code --
---------------------------------------------------------------------------

main = do
	bar <- spawnPipe dzenbar
	bar2 <- spawnPipe "sh /home/kagura/dzenbar.sh"
	xmonad $ defaultConfig
		{ manageHook = manageDocks <+> manageHook defaultConfig
		, layoutHook = avoidStruts $ myLayout ||| simpleFloat ||| Full ||| tiled ||| Mirror tiled 
		, borderWidth = 4
		, normalBorderColor = "#161616"
		, focusedBorderColor = "#161616"
		, terminal = "urxvt256c"
		, workspaces = myWorkspaces
		, modMask = mod4Mask
		, logHook = myLogHook bar
		} `additionalKeys` myKeys
		where dzenbar	= "dzen2 -p -ta l -e 'button3=' -fn '"
				  ++ dzenFont
				  ++ "' -h 17 -w 650"

CLICK TO VIEW

x

Comments

franksn said about 3 years ago

buosomu cak serba kelon :D

hokagemadura said about 3 years ago

ah, yo ga mesti seh.. :D

xahax said about 3 years ago

wkwkwkk,,, kenthu nang gang dolly

hokagemadura said about 3 years ago

huasu wkwkwkwkwkwk.. kok dadi kericuhan antar warga ngene bosone.. :v

xahax said about 2 years ago

hahaha, seng paham yo mung songko jowo thok iki.

hokagemadura said about 2 years ago

paklek choirul ga tau ngepost rek.. ngepost po.o pak.. :D