Share your xmonad desktop!

Paul-S · 2011-10-08 07:15:35

XMonad

Cheers
Paul-S

pyarch · 2011-12-11 03:38:09

how much time does it take to personalize/tweak Xmonad ?

Last edited by pyarch (2011-12-11 03:44:45)

fsckd · 2011-12-11 06:18:18

Took me about three or four decades.

Just kidding, it doesn't take long.

hellomynameisphil · 2011-12-11 07:21:53

pyarch wrote:

how much time does it take to personalize/tweak Xmonad ?

Really depends on what you want to do with it. I tend to tweak xmonad obsessively, but if you know what you want and can figure out how to do it from the billions of tutorials and code snippets available all over the intertubes (not to mention the #xmonad irc channel and this bbs), then you can set it and forget it.

jrupac · 2011-12-17 20:13:31

Here's mine taken from quite a while ago:

http://i.imgur.com/ae8IL.jpg

mod edit: Welcome to the forums. Your thumbnail is still too big. Please read Forum Etiquette: Pasting Pictures and Code. Thanks. --fsckd

Last edited by fsckd (2011-12-25 16:23:39)

Paul-S · 2011-12-25 11:08:30

Cheers
Paul-S

fsckd · 2011-12-25 16:25:15

Paul-S, link to the wallpaper, gov? Much obliged.

Paul-S · 2011-12-25 17:54:02

fsckd wrote:

Paul-S, link to the wallpaper, gov? Much obliged.

Cheers
Paul-S

lutherus · 2011-12-27 19:06:18

Hy. I`m new to Xmonad.
I have this problem with xmobar and tag. There are no tags it`s only shown Updating....

My xmobarrc

Config { font = "-*-lime-*-*-*-*-*-*-*-*-*-*-*-*"
       , bgColor = "#1C1C1C"
       , fgColor = "#4d4d4d"
       , position = Top
       , lowerOnStart = True
       , commands = [ Run Date "%A, %d %b %Y <fc=#CD5C5C>%H:%M:%S</fc>" "date" 10
                    , Run Com "skb" ["-1"] "kb" 10
                    , Run StdinReader
		    , Run Com "mpc | grep -" [] "mpd" 10
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%StdinReader% }{<fc=#CD5C5C>%mpd%</fc> %date%  "
       }

and my xmonad.hs

-------------------- imports --------------------

--necessary
import XMonad
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import System.Exit
import Graphics.X11.Xlib
import IO (Handle, hPutStrLn) 

--utilities
import XMonad.Util.Run (spawnPipe)
import XMonad.Actions.NoBorders

--hooks
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.XPropManage
import XMonad.Hooks.FadeInactive

--MO' HOOKS
import Graphics.X11.Xlib.Extras
import Foreign.C.Types (CLong)

--layouts
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
import XMonad.Layout.Named
import XMonad.Layout.PerWorkspace
import XMonad.Layout.Spacing
import XMonad.Layout.Spiral
import XMonad.Layout.Tabbed
import Data.Ratio((%))


-------------------- main --------------------

main = do 
	h <- spawnPipe "xmobar ~/.xmobarrc"
	xmonad $ defaultConfig
		{ workspaces = ["term", "web", "irc", "code", "hosting", "else"]
		, modMask = mod4Mask
		, borderWidth = 1
		, normalBorderColor = "3d352a"
		, focusedBorderColor = "#554444"
		, terminal = "urxvt"
		, logHook =  logHook' h >> (fadeLogHook)
		, manageHook = manageHook'
		, layoutHook = layoutHook'
		, keys = keys'
		}
-------------------- loghooks --------------------

logHook' ::  Handle -> X ()
logHook' h = dynamicLogWithPP $ customPP { ppOutput = hPutStrLn h }

customPP :: PP
customPP = defaultPP { ppCurrent = xmobarColor "#cd5c5c" ""
		     , ppTitle = shorten 75
		     , ppSep = "<fc=#e8ae5b> | </fc>"
	             , ppHiddenNoWindows = xmobarColor "#a0a0a0" ""
                     }
fadeLogHook :: X ()
fadeLogHook = fadeInactiveLogHook fadeAmount
	where fadeAmount = 0.9 
-------------------- layouthooks --------------------

layoutHook' = customLayout
customLayout = onWorkspace "web" simpleTabbed $ avoidStrutsOn [u] (spiral (6/7) ||| spaced ||| smartBorders tiled ||| smartBorders (Mirror tiled) ||| noBorders Full)
	where
	 spaced = named "Spacing" $ spacing 6 $ Tall 1 (3/100) (1/2)
	 tiled  = named "Tiled" $ ResizableTall 1 (2/100) (1/2) []

-------------------- menuhook --------------------

getProp :: Atom -> Window -> X (Maybe [CLong])
getProp a w = withDisplay $ \dpy -> io $ getWindowProperty32 dpy a w

checkAtom name value = ask >>= \w -> liftX $ do
                a <- getAtom name
                val <- getAtom value
                mbr <- getProp a w
                case mbr of
                  Just [r] -> return $ elem (fromIntegral r) [val]
                  _ -> return False 

checkDialog = checkAtom "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_DIALOG"
checkMenu = checkAtom "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_MENU"

manageMenus = checkMenu --> doFloat
manageDialogs = checkDialog --> doFloat

-------------------- managehook --------------------

manageHook' :: ManageHook
manageHook' = manageHook defaultConfig <+> manageDocks <+> manageMenus <+> manageDialogs <+> myManageHook

myManageHook :: ManageHook
myManageHook = composeAll . concat $
    [ [className =? c      --> doFloat | c <- myFloats]
    , [title =? t          --> doFloat | t <- myOtherFloats]
    , [className =? r      --> doIgnore | r <- myIgnores]

    , [className =? im     --> doF (W.shift "irc") | im <- imMessenger]
    , [className =? bw     --> doF (W.shift "web") | bw <- browsers]
    , [className =? e      --> doF (W.shift "else") | e <- elseApps]
    ]
    where
      myFloats = ["Gimp", "vlc", "Nitrogen", "Thunar", "Leafpad"]
      myOtherFloats = ["Downloads", "Firefox Preferences", "Save As...", "Send file", "Open", "File Transfers"]
      myIgnores = ["trayer", "stalonetray"]

      imMessenger = ["Pidgin", "Emesene"]
      browsers = ["Firefox", "Shiretoko", "Uzbl", "Chromium"]
      elseApps = ["Mirage", "Gimp"]

-------------------- keybinds --------------------

keys' :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
keys' conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $

      --launching/killing
      [ ((modMask, 		 xK_Return   ), spawn $ XMonad.terminal conf)
      , ((modMask,               xK_f     ), spawn "uzbl --config=.configs") --or spawn "firefox"
      , ((modMask, 		 xK_m     ), spawn "xterm -e ncmpcpp")
      , ((modMask, 		 xK_x     ), kill)
      , ((modMask,               xK_r     ), spawn "dmenu_run -fn \"-*-terminus-medium-r-normal-*-12-*-*-*-*-*-*-*\" -nb \"#131313\" -nf \"#888888\" -sb \"#2A2A2A\" -sf \"#3579A8\"")
      
      --layouts
      , ((modMask,               xK_space ), sendMessage NextLayout)
      , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
      , ((modMask,               xK_b     ), sendMessage ToggleStruts)
      -- refresh
      , ((modMask,               xK_n     ), refresh)
      , ((modMask .|. shiftMask, xK_w     ), withFocused toggleBorder)
 
      -- focus
      , ((modMask,               xK_Tab   ), windows W.focusDown)
      , ((modMask,               xK_j     ), windows W.focusDown)
      , ((modMask,               xK_k     ), windows W.focusUp)
      , ((modMask,               xK_m     ), windows W.focusMaster)
 
      -- swapping
      , ((modMask .|. shiftMask, xK_j     ), windows W.swapDown  )
      , ((modMask .|. shiftMask, xK_k     ), windows W.swapUp    )
 
      -- increase or decrease number of windows in the master area
      , ((modMask .|. controlMask, xK_h     ), sendMessage (IncMasterN 1))
      , ((modMask .|. controlMask, xK_l     ), sendMessage (IncMasterN (-1)))
 
      -- resizing
      , ((modMask,               xK_h     ), sendMessage Shrink)
      , ((modMask,               xK_l     ), sendMessage Expand)
      , ((modMask .|. shiftMask, xK_h     ), sendMessage MirrorShrink)
      , ((modMask .|. shiftMask, xK_l     ), sendMessage MirrorExpand)
 
      -- quit, or restart
      , ((modMask .|. shiftMask, xK_q     ), io (exitWith ExitSuccess))
      , ((modMask              , xK_q     ), restart "xmonad" True)
      ]
      ++
      -- mod-[1..9] %! Switch to workspace N
      -- mod-shift-[1..9] %! Move client to workspace N
      [((m .|. modMask, k), windows $ f i)
          | (i, k) <- zip (XMonad.workspaces conf) [0x26,0xe9,0x22,0x27,0x28,0xa7]
          , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]

nexus7 · 2011-12-27 21:45:40

@lutherus: I don't think this is it, but there's an # missing in your xmonad.hs, so pls correct this to:

   , normalBorderColor = "#3d352a"

Edit:
Also, you haven't integated your "skb"/"kb"-Com into your template yet. And then your music stuff looks bit strange to me as you seem to mix up mpc/mpd; for getting an mpc to run, mpd must already have been started before. Perhaps have another look into the Xmobar-wiki.

Last edited by nexus7 (2011-12-27 22:10:46)

lutherus · 2011-12-27 22:04:14

Thx, it`s solved now. Stupit i didn`t have installed xmonad-contrib :facepalm

EDIT

anyway, this is my full xmonad desktop

Last edited by lutherus (2011-12-27 22:19:19)

nexus7 · 2011-12-27 22:21:37

...in this case you would receive a compiling error like "not in scope: blah" because of missing modules. You alredy had installed this before, it's something different.

liangzan · 2012-01-21 01:24:58

http://blog.liangzan.net/my-solarized-t … inux-setup

I've applied the solarized color scheme to xmobar, emacs and urxvt. Each of them blend well into each other.

Paul-S · 2012-01-26 06:08:22

Cheers
Paul-S

Olson · 2012-01-27 02:36:32

xmonad
conky
urxvt
ncmpcpp
ranger

SahibBommelig · 2012-02-05 21:56:00

dzen2 / xmobar / ncmpcpp / gvim (with vim-powerline)

grobar87 · 2012-02-07 20:20:28

Šaran · 2012-02-07 20:45:37

@grobar87, can you give me conky config and weather script, please?

grobar87 · 2012-02-07 20:51:29

It's not conky... i use xmobar.
Config:

Config { font = "xft:Envy Code R:size=10:antialias=true"
       , bgColor = "#000000"
       , fgColor = "#1793D1"
       , position = Top
       , lowerOnStart = True
       , commands = [ Run Cpu ["-L","3","-H","50"] 10
                    , Run Memory ["-t","Mem: <usedratio>%"] 10
                    , Run Date "%a %b %_d %Y %H:%M:%S" "date" 10
                    , Run Uptime ["-t","Up: <days>d <hours>h"] 10
                    , Run Weather "LWSK" ["-t","<station>: <tempC>C"] 3000
                    , Run Com ".xmonad/conkyscript" ["&"] "conky" 3000
                    , Run StdinReader
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%StdinReader% }{%conky% <fc=#ffffff>:</fc> %LWSK% <fc=#ffffff>:</fc> %uptime% <fc=#ffffff>:</fc> %cpu% <fc=#ffffff>:</fc> %memory% <fc=#ffffff>:</fc> %date%"
       }

Šaran · 2012-02-07 21:20:44

I thought it was conky... Thanks anyway

Sinani201 · 2012-02-11 03:43:48

This is my desktop. I can post config files if anyone's interested, but really it's just xmobar and some fancy transparency stuff with the terminal. The random colors are just the space in between my two monitors (which are different sizes).

grobar87 · 2012-02-11 14:11:02

@Sinani201 I like your xmobar config. xmobarrc?
Thanks.

Sinani201 · 2012-02-11 18:56:06

grobar87 wrote:

@Sinani201 I like your xmobar config. xmobarrc?
Thanks.

xmobarrc:

Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
       , bgColor = "black"
       , fgColor = "grey"
       , position = Top
       , lowerOnStart = True
       , commands = [ Run Weather "KLAX" ["-t","<tempF>F","-L","18","-H","25","--normal","green","--high","red","--low","lightblue"] 360
                    , Run Network "eth0" ["-L","0","-H","32","--normal","green","--high","red"] 10
                    , Run Network "wlan0" ["-L","0","-H","32","--normal","green","--high","red"] 10
                    , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
                    , Run Memory ["-t","Mem: <usedratio>%"] 10
                    , Run Swap [] 10
                    , Run Com "uname" ["-s","-r"] "" 36000
                    , Run Date "%a %b %_d %Y %H:%M:%S" "date" 10
					, Run Com "~/misc/notify-volume2.sh" [] "vol" 1
					, Run Com "~/.statusline.sh" [""] "statnot" 1
					, Run Com "~/misc/battery.sh" [] "bat" 10
					, Run Com "~/misc/song.sh" [] "song" 1
					, Run Com "cat ~/misc/reminder" [] "remind" 10
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%cpu% | %memory% * %swap% | %eth0% | %wlan0% | %song% | %remind% }{ Vol: %vol% | %bat% | <fc=#ee9a00>%date%</fc>| %KLAX% | %uname%"
       }

And all of the scripts:
notify-volume2.sh (note that this might not working depending on the sound system you use)

#!/bin/bash
#

#####################################################################
# Get current volume.
mixer=$(amixer get Master | grep 'Mono:')
#echo $mixer | cut -d ' ' -f 4
#echo $mixer | cut -d ' ' -f 6

muted=$(amixer get Master | grep 'Mono:' | cut -d ' ' -f 8)
if [ "$muted" == "[off]" ]; then
	echo "[--]"
	else
	echo $mixer | cut -d ' ' -f 4
fi

battery.sh:

#!/bin/bash

battery=$(acpi -b)

percent=$(echo $battery | cut -d ' ' -f 4)
charging=$(echo $battery | cut -d ' ' -f 6)
remainingtime=$(echo $battery | cut -d ' ' -f 5)

if [ "$charging" == "remaining" ]; then
	echo "$remainingtime left, [$percent]"
	else
	echo "Bat: [$percent]"
fi

song.sh:

#!/bin/bash

song=$(mpc current)

line2=$(mpc | head -2 | tail -1 | awk '{ gsub(/[[:space:]]+/," "); print }')

progress=$(echo $line2 | cut -d ' ' -f 3)
songstatus=$(echo $line2 | cut -d ' ' -f 1)

if [ "$songstatus" == "[playing]" ]; then
	songstatus=">"
	else
	songstatus="‖"
fi

echo "$songstatus $progress | $song"

lutherus · 2012-02-11 19:57:26

Back to xmonad

grobar87 · 2012-02-12 19:05:08

Sinani201 wrote:

grobar87 wrote:

@Sinani201 I like your xmobar config. xmobarrc?
Thanks.

xmobarrc:

Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
       , bgColor = "black"
       , fgColor = "grey"
       , position = Top
       , lowerOnStart = True
       , commands = [ Run Weather "KLAX" ["-t","<tempF>F","-L","18","-H","25","--normal","green","--high","red","--low","lightblue"] 360
                    , Run Network "eth0" ["-L","0","-H","32","--normal","green","--high","red"] 10
                    , Run Network "wlan0" ["-L","0","-H","32","--normal","green","--high","red"] 10
                    , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
                    , Run Memory ["-t","Mem: <usedratio>%"] 10
                    , Run Swap [] 10
                    , Run Com "uname" ["-s","-r"] "" 36000
                    , Run Date "%a %b %_d %Y %H:%M:%S" "date" 10
					, Run Com "~/misc/notify-volume2.sh" [] "vol" 1
					, Run Com "~/.statusline.sh" [""] "statnot" 1
					, Run Com "~/misc/battery.sh" [] "bat" 10
					, Run Com "~/misc/song.sh" [] "song" 1
					, Run Com "cat ~/misc/reminder" [] "remind" 10
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%cpu% | %memory% * %swap% | %eth0% | %wlan0% | %song% | %remind% }{ Vol: %vol% | %bat% | <fc=#ee9a00>%date%</fc>| %KLAX% | %uname%"
       }

And all of the scripts:
notify-volume2.sh (note that this might not working depending on the sound system you use)

#!/bin/bash
#

#####################################################################
# Get current volume.
mixer=$(amixer get Master | grep 'Mono:')
#echo $mixer | cut -d ' ' -f 4
#echo $mixer | cut -d ' ' -f 6

muted=$(amixer get Master | grep 'Mono:' | cut -d ' ' -f 8)
if [ "$muted" == "[off]" ]; then
	echo "[--]"
	else
	echo $mixer | cut -d ' ' -f 4
fi

battery.sh:

#!/bin/bash

battery=$(acpi -b)

percent=$(echo $battery | cut -d ' ' -f 4)
charging=$(echo $battery | cut -d ' ' -f 6)
remainingtime=$(echo $battery | cut -d ' ' -f 5)

if [ "$charging" == "remaining" ]; then
	echo "$remainingtime left, [$percent]"
	else
	echo "Bat: [$percent]"
fi

song.sh:

#!/bin/bash

song=$(mpc current)

line2=$(mpc | head -2 | tail -1 | awk '{ gsub(/[[:space:]]+/," "); print }')

progress=$(echo $line2 | cut -d ' ' -f 3)
songstatus=$(echo $line2 | cut -d ' ' -f 1)

if [ "$songstatus" == "[playing]" ]; then
	songstatus=">"
	else
	songstatus="‖"
fi

echo "$songstatus $progress | $song"

Thanks.

Arch Linux

#51 2011-10-08 07:15:35

Re: Share your xmonad desktop!

#52 2011-12-11 03:38:09

Re: Share your xmonad desktop!

#53 2011-12-11 06:18:18

Re: Share your xmonad desktop!

#54 2011-12-11 07:21:53

Re: Share your xmonad desktop!

#55 2011-12-17 20:13:31

Re: Share your xmonad desktop!

#56 2011-12-25 11:08:30

Re: Share your xmonad desktop!

#57 2011-12-25 16:25:15

Re: Share your xmonad desktop!

#58 2011-12-25 17:54:02

Re: Share your xmonad desktop!

#59 2011-12-27 19:06:18

Re: Share your xmonad desktop!

#60 2011-12-27 21:45:40

Re: Share your xmonad desktop!

#61 2011-12-27 22:04:14

Re: Share your xmonad desktop!

#62 2011-12-27 22:21:37

Re: Share your xmonad desktop!

#63 2012-01-21 01:24:58

Re: Share your xmonad desktop!

#64 2012-01-26 06:08:22

Re: Share your xmonad desktop!

#65 2012-01-27 02:36:32

Re: Share your xmonad desktop!

#66 2012-02-05 21:56:00

Re: Share your xmonad desktop!

#67 2012-02-07 20:20:28

Re: Share your xmonad desktop!

#68 2012-02-07 20:45:37

Re: Share your xmonad desktop!

#69 2012-02-07 20:51:29

Re: Share your xmonad desktop!

#70 2012-02-07 21:20:44

Re: Share your xmonad desktop!

#71 2012-02-11 03:43:48

Re: Share your xmonad desktop!

#72 2012-02-11 14:11:02

Re: Share your xmonad desktop!

#73 2012-02-11 18:56:06

Re: Share your xmonad desktop!

#74 2012-02-11 19:57:26

Re: Share your xmonad desktop!

#75 2012-02-12 19:05:08

Re: Share your xmonad desktop!

Board footer