Bunch of small updates
ad5d7f0311f15c133abc375972cbc7390d7c24e0
1 parent
74134743
.ghci
+0 -1
| 1 | 1 | :set prompt "λ> " |
|
| 2 | 2 | :set +m |
|
| 3 | - | :set prompt2 "| " |
|
| 4 | 3 | :def hoogle \x -> return $ ":!hoogle --color \"" ++ x ++ "\"" |
|
| 5 | 4 | :def doc \x -> return $ ":!hoogle --color --info \"" ++ x ++ "\"" |
|
| 6 | 5 | :set -Wno-type-defaults |
|
| 7 | 6 | :set -XOverloadedStrings |
|
| 8 | 7 | :set -XGADTs |
.irssi/config
+1 -0
| 29 | 29 | ||
| 30 | 30 | channels = ( |
|
| 31 | 31 | { name = "#suckless"; chatnet = "OFTC"; autojoin = "yes"; }, |
|
| 32 | 32 | { name = "#haskell"; chatnet = "freenode"; autojoin = "yes"; }, |
|
| 33 | 33 | { name = "#haskell-game"; chatnet = "freenode"; autojoin = "yes"; }, |
|
| 34 | + | { name = "#oscoin"; chatnet = "freenode"; autojoin = "yes"; }, |
|
| 34 | 35 | { name = "#neovim"; chatnet = "freenode"; autojoin = "yes"; }, |
|
| 35 | 36 | { name = "#zsh"; chatnet = "freenode"; autojoin = "yes"; }, |
|
| 36 | 37 | { name = "#archlinux"; chatnet = "freenode"; autojoin = "no"; }, |
|
| 37 | 38 | { name = "#vis-editor"; chatnet = "freenode"; autojoin = "yes"; }, |
|
| 38 | 39 | { name = "#elliottcable"; chatnet = "freenode"; autojoin = "yes"; }, |
.xmobarrc
+16 -15
| 4 | 4 | font = "xft:Inconsolata:size=14,monospace:size=12" |
|
| 5 | 5 | , borderColor = "black" |
|
| 6 | 6 | , border = TopB |
|
| 7 | 7 | , bgColor = "#000000" |
|
| 8 | 8 | , fgColor = "#777777" |
|
| 9 | - | , position = Top |
|
| 10 | - | , commands = [ Run DynNetwork [ "--template", "<dev> <tx> <rx>", "-w", "7", "-S", "True" ] 10 |
|
| 11 | - | , Run MultiCpu [ "--template", "<total0>% <total1>% <total2>% <total3>%", "-w", "3" ] 50 |
|
| 12 | - | , Run Memory [ "--template", "<used>/<available> MB" ] 50 |
|
| 13 | - | , Run Date "%b %d %Y %H:%M" "date" 10 |
|
| 14 | - | , Run DiskU [("/", "<used>/<size>"), ("/home", "<used>/<size>")] [] 20 |
|
| 15 | - | , Run Com "xmobar-dropbox-status" [] "dropbox" 10 |
|
| 16 | - | , Run Com "xmobar-brightness" [] "brightness" 10 |
|
| 17 | - | , Run Com "seedbox-status" [] "seedbox" 10 |
|
| 18 | - | , Run Com "book-counter" [] "book" 1000 |
|
| 19 | - | , Run CoreTemp [ "--template", "<core0>° <core1>°" ] 50 |
|
| 20 | - | , Run Wireless "wlp58s0" [ "--template", "☎ <essid>/<quality>"] 10 |
|
| 21 | - | , Run Battery [ "--template", "⌁ <left>%" ] 100 |
|
| 22 | - | , Run StdinReader |
|
| 23 | - | ] |
|
| 9 | + | , position = Bottom |
|
| 10 | + | , commands = |
|
| 11 | + | [ Run DynNetwork [ "--template", "<dev> <tx> <rx>", "-w", "7", "-S", "True" ] 10 |
|
| 12 | + | , Run MultiCpu [ "--template", "<total0>% <total1>% <total2>% <total3>%", "-w", "3" ] 50 |
|
| 13 | + | , Run Memory [ "--template", "<used>/<available> MB" ] 50 |
|
| 14 | + | , Run Date "%b %d %Y %H:%M" "date" 10 |
|
| 15 | + | , Run DiskU [("/", "<used>/<size>"), ("/home", "<used>/<size>")] [] 20 |
|
| 16 | + | , Run Com "xmobar-dropbox-status" [] "dropbox" 10 |
|
| 17 | + | , Run Com "xmobar-brightness" [] "brightness" 10 |
|
| 18 | + | , Run Com "seedbox-status" [] "seedbox" 10 |
|
| 19 | + | , Run Com "book-counter" [] "book" 1000 |
|
| 20 | + | , Run CoreTemp [ "--template", "<core0>° <core1>°" ] 50 |
|
| 21 | + | , Run Wireless "wlp58s0" [ "--template", "☎ <essid>/<quality>"] 10 |
|
| 22 | + | , Run Battery [ "--template", "⌁ <left>%" ] 100 |
|
| 23 | + | , Run StdinReader |
|
| 24 | + | ] |
|
| 24 | 25 | , sepChar = "%" |
|
| 25 | 26 | , alignSep = "}{" |
|
| 26 | 27 | , template = "%StdinReader% }{ %book% ┊ %brightness% ┊ %battery% ┊ %wlp58s0wi% ┊ %seedbox% ┊ %dropbox% ┊ %multicpu% · %memory% · %disku% · %dynnetwork% ┊ <fc=#aaaaaa>%date%</fc> " |
|
| 27 | 28 | } |
.xmonad/xmonad.hs
+1 -1
| 35 | 35 | , handleEventHook = mconcat [docksEventHook, handleEventHook def] |
|
| 36 | 36 | , keys = myKeys home |
|
| 37 | 37 | , logHook = dynamicLogWithPP (barConfig xmproc) |
|
| 38 | 38 | , layoutHook = avoidStruts $ smartBorders $ myLayout |
|
| 39 | 39 | , manageHook = floatNextHook <+> manageDocks <+> manageHook def |
|
| 40 | - | , startupHook = startup |
|
| 40 | + | , startupHook = startup <+> docksStartupHook |
|
| 41 | 41 | } |
|
| 42 | 42 | where |
|
| 43 | 43 | myLayout = layoutHook def |
|
| 44 | 44 | ||
| 45 | 45 | startup :: X () |
.zshrc
+1 -0
| 39 | 39 | ||
| 40 | 40 | # |
|
| 41 | 41 | # Aliases |
|
| 42 | 42 | # |
|
| 43 | 43 | alias g='git' |
|
| 44 | + | alias n='sudo netctl' |
|
| 44 | 45 | alias mv='/bin/mv -i' |
|
| 45 | 46 | alias ..='cd ..' |
|
| 46 | 47 | alias img='sxiv -a' |
|
| 47 | 48 | alias df='df -h' |
|
| 48 | 49 | alias sys='systemctl' |