Time for misc. updates!

1e1a15d3fc20342be2cc95584612eb1eda18fbc7
Alexis Sellier committed ago 1 parent 5a08431f
.ghci +1 -0
3 3 
:set prompt2 "| "
4 4 
:def hoogle \x -> return $ ":!hoogle --color        \"" ++ x ++ "\""
5 5 
:def doc    \x -> return $ ":!hoogle --color --info \"" ++ x ++ "\""
6 6 
:set -Wno-type-defaults
7 7 
:set -XOverloadedStrings
8 + 
:set -XGADts
8 9 

    

  
    

      9
      10
       
      
import qualified Data.Set as Set

    

  
    

      10
      11
       
      
import           Data.Set (Set)

    

  
    

      11
      12
       
      
import qualified Data.Map as Map

    

  
    

      12
      13
       
      
import           Data.Map (Map)

    

  
  
  

  
  





  

    
      .xmonad/xmonad.hs
    
    
    +2 -0 
  

  
  
  
  

  
  
    

      80
      80
       
      
       , ((modMask, xK_F5),                     safeSpawn "refresh-display" [])

    

  
    

      81
      81
       
      
       , ((modMask, xK_p),                      dmenu)

    

  
    

      82
      82
       
      
       , ((modMask, xK_Tab),                    toggleWS)

    

  
    

      83
      83
       
      
       , ((modMask .|. controlMask, xK_Return), toggleFloatNext >> (spawn $ XMonad.terminal conf))

    

  
    

      84
      84
       
      
       , ((noModMask, xK_Print),                spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)

    

  
    

      
      85
      +
      
       , ((noModMask, 0x1008ff02),              safeSpawn "xbacklight" ["-inc", "10"]) -- XF86MonBrightnessUp

    

  
    

      
      86
      +
      
       , ((noModMask, 0x1008ff03),              safeSpawn "xbacklight" ["-dec", "10"]) -- XF86MonBrightnessDown

    

  
    

      85
      87
       
      
       ]

    

  
    

      86
      88
       
      
    dmenu :: X ()

    

  
    

      87
      89
       
      
    dmenu = safeSpawn

    

  
    

      88
      90
       
      
        "dmenu_run" [ "-fn", "Inconsolata-14,Monospace-12"

    

  
    

      89
      91
       
      
                    , "-i"

    

  
  
  

  
  





  

    
      .zshrc
    
    
    +4 -0 
  

  
  
  
  

  
  
    

      19
      19
       
      
# Fzy integration

    

  
    

      20
      20
       
      
if command -v fzy >/dev/null 2>&1 && test -f ~/.fzy.zsh; then

    

  
    

      21
      21
       
      
  source ~/.fzy.zsh

    

  
    

      22
      22
       
      
fi

    

  
    

      23
      23
       
      

    

  
    

      
      24
      +
      
if command -v kubectl >/dev/null 2>&1; then

    

  
    

      
      25
      +
      
	source <(kubectl completion zsh)

    

  
    

      
      26
      +
      
fi

    

  
    

      
      27
      +
      

    

  
    

      24
      28
       
      
# Fzy history search doesn't sort things in a useful way, so we use zsh for now.

    

  
    

      25
      29
       
      
bindkey '^R' history-incremental-search-backward

    

  
    

      26
      30
       
      

    

  
    

      27
      31
       
      
#

    

  
    

      28
      32
       
      
# ls