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 ''"
|
x
Notes
my favorite is the japanese wife next door: part 1
steimntz said about 9 years ago
Nice config, can you share you Conky configuration?
Thanks for sharing your config.
hokagemadura said about 8 years 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 8 years ago
Beautiful. –
what’s your system font?
jad340 said about 8 years ago
What vim colorscheme do you use?
hokagemadura said about 8 years ago
@snotr
i think it’s PragmataPro
@jad340
the default one
GoodOldWar said about 8 years ago
Could you share your colors?
hokagemadura said about 8 years 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 8 years ago
do you still have the ncmpcpp ?