guest@dotshare [~/groups/wms/xmonad] $ ls pinku-eiga/ | cat

pinku eiga (scrot, raw, dl) (+7 likes)

hokagemadura Nov 18, 2015 (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
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.SetWMName

import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Util.SpawnOnce

import Data.List
import qualified XMonad.StackSet as W

import XMonad.Layout.Spacing
import XMonad.Layout.ResizableTile
import XMonad.Layout.WindowArranger
import XMonad.Layout.NoBorders
import XMonad.Layout.Fullscreen
import XMonad.Layout.Circle
import XMonad.Layout.Gaps

import XMonad.Actions.CycleWS (prevWS, nextWS)

import System.IO

myWorkspaces 	:: [String]
myWorkspaces	= click $ [ " PHOS ", " ETHE ", " ASTR ", " THEE ", " CRES "]
		  where click l = [ "^ca(1, xdotool key super+"
				  ++ show (n) ++ ")" ++ ws ++ "^ca()" |
				  (i,ws) <- zip [1..] l,
				  let n = i]

myManageHook = composeAll
	[ className =? "Gimp"	--> doFloat
	, className =? "bomi"	--> doFloat
	]

mKeys = [ ((modm, xK_r), spawn "dmenu_run -b")
	, ((mod1Mask, xK_F4), kill)
	, ((modm, xK_Left), prevWS)
	, ((modm, xK_Right), nextWS)
	, ((modm .|. controlMask              , xK_s    ), sendMessage  Arrange         )
        , ((modm .|. controlMask .|. shiftMask, xK_s    ), sendMessage  DeArrange       )
        , ((modm .|. controlMask              , xK_Left ), sendMessage (MoveLeft      10))
        , ((modm .|. controlMask              , xK_Right), sendMessage (MoveRight     10))
        , ((modm .|. controlMask              , xK_Down ), sendMessage (MoveDown      10))
        , ((modm .|. controlMask              , xK_Up   ), sendMessage (MoveUp        10))
        , ((modm                 .|. shiftMask, xK_Left ), sendMessage (IncreaseLeft  10))
        , ((modm                 .|. shiftMask, xK_Right), sendMessage (IncreaseRight 10))
        , ((modm                 .|. shiftMask, xK_Down ), sendMessage (IncreaseDown  10))
        , ((modm                 .|. shiftMask, xK_Up   ), sendMessage (IncreaseUp    10))
        , ((modm .|. controlMask .|. shiftMask, xK_Left ), sendMessage (DecreaseLeft  10))
        , ((modm .|. controlMask .|. shiftMask, xK_Right), sendMessage (DecreaseRight 10))
        , ((modm .|. controlMask .|. shiftMask, xK_Down ), sendMessage (DecreaseDown  10))
        , ((modm .|. controlMask .|. shiftMask, xK_Up   ), sendMessage (DecreaseUp    10))
	, ((modm, xK_KP_Add), sequence_ [ sendMessage (IncreaseLeft 10)
					, sendMessage (IncreaseRight 10)
					, sendMessage (IncreaseUp 10)
					, sendMessage (IncreaseDown 10) 
					])
	, ((modm, xK_KP_Subtract), sequence_ [ sendMessage (DecreaseLeft 10)
  					     , sendMessage (DecreaseRight 10)
					     , sendMessage (DecreaseUp 10)
					     , sendMessage (DecreaseDown 10) 
					     ])
	] where modm = mod4Mask

startUp :: X()
startUp = do
	spawnOnce "compton"
	spawnOnce "./.fehbg"
	spawnOnce "xsetroot -cursor_name left_ptr"
	spawnOnce "xrdb -load .Xresources"
	setWMName "LG3D"

logbar h = do
	dynamicLogWithPP $ tryPP h
tryPP :: Handle -> PP
tryPP h = defaultPP
	{ ppOutput		= hPutStrLn h
	, ppCurrent		= dzenColor (fore) (blu1) . pad
	, ppVisible		= dzenColor (fore) (back) . pad
	, ppHidden		= dzenColor (fore) (back) . pad
	, ppHiddenNoWindows	= dzenColor (fore) (back) . pad
	, ppUrgent		= dzenColor (fore) (red1) . pad
	, ppOrder		= \(ws:l:t) -> [ws,l]
	, ppSep			= ""
	, ppLayout		= dzenColor (fore) (red1) .
				( \t -> case t of
					"Spacing 2 ResizableTall" -> " " ++ i ++ "tile.xbm) TALL "
					"Full" -> " " ++ i ++ "dice1.xbm) FULL "
					"Circle" -> " " ++ i ++ "dice2.xbm) CIRC "
					_ -> " " ++ i ++ "tile.xbm) TALL "
				)
	} where i = "^i(/home/je/.icons/stlarch/"

-- color --

blu1 = "#528588"
red1 = "#BA5E57"
fore = "#DEE3E0"
back = "#343C48"

-----------


-- layout --

res = ResizableTall 1 (2/100) (1/2) []
ful = noBorders (fullscreenFull Full)

   -- useless gap --

layout = (gaps [(U, 42), (R, 8), (L, 8), (D, 8)] $ avoidStruts (spacing 2 $ res)) ||| Circle ||| ful 

------------

main = do
	bar <- spawnPipe panel
	info <- spawnPipe "conky | dzen2 -x 410 -y 10 -h 24 -w 1180 -p -ta r -e ''"
	xmonad $ defaultConfig
		{ manageHook = manageDocks <+> manageHook defaultConfig
		, layoutHook = windowArrange layout
		, startupHook = startUp
		, workspaces = myWorkspaces
		, modMask = mod4Mask
		, terminal = "urxvt"
		, borderWidth = 5
		, focusedBorderColor = "#6A555C" --"#404752"
		, normalBorderColor = "#404752" --"#343C48"
		, logHook = logbar bar
		} `additionalKeys` mKeys
		where panel = "dzen2 -ta l -p -w 400 -y 10 -x 10 -h 24 -e ''"

CLICK TO VIEW

x

Notes

my favorite is the japanese wife next door: part 1

Comments

steimntz said about 1 year ago

Nice config, can you share you Conky configuration?
Thanks for sharing your config.

hokagemadura said about 1 year ago

hi, Steimntz
this is my conky config

conky.config = {
background = false,
out_to_console = true,
out_to_x = false,
update_interval = 1
}

conky.text = [[
^fg(#528588)^i(/home/je/.icons/stlarch/uparrow4.xbm)^fg() ${upspeedf enp2s0} \
^fg(#BA5E57)^i(/home/je/.icons/stlarch/downarrow4.xbm)^fg() ${downspeedf enp2s0} ^fg(#505E73)//^fg() \
^ca(1, mpc toggle)^ca(4, mpc prev)^ca(5, mpc next) ${exec mpc current -f %title% | tr ‘[a-z]’ ‘[A-Z]’} \
(${mpd_elapsed}/${mpd_length}) \
^ca()^ca()^ca()\
^fg(#505E73)//^fg()\
^ca(4, amixer set Master 2%+)^ca(5, amixer set Master 2%-) \
${exec amixer sget Master | grep -m1 “%]” | cut -d “[” -f2 | cut -d “]” -f1} \
^ca()^ca()\
^bg(#528588) ${time %R} ^bg()
]]

basically just to parse some info into dzen2

snotr said about 1 year ago

Beautiful.
what’s your system font?

jad340 said about 10 months ago

What vim colorscheme do you use?

hokagemadura said about 10 months ago

@snotr
i think it’s PragmataPro

@jad340
the default one

GoodOldWar said about 8 months ago

Could you share your colors?

hokagemadura said about 8 months ago

@GoodOldWar i don’t have it anymore, but this maybe can satisfy your need http://gegenokitaro.github.io/img/colorscheme.png

ztrxm said about 6 months ago

do you still have the ncmpcpp ?