diff --git a/.Xresources b/.Xresources new file mode 100644 index 0000000..06af223 --- /dev/null +++ b/.Xresources @@ -0,0 +1,113 @@ +! URxvt settings {{{ + + +URxvt.foreground: white +URxvt.background: black + +URxvt.saveLine: 8192 + + +! URxvt*font: xft:DejaVu Sans Mono:style=Book:pixelsize=12 +! URxvt*boldFont: xft:DejaVu Sans Mono:style=Bold:pixelsize=12 +! URxvt*italicFont: xft:DejaVu Sans Mono:style=Oblique:pixelsize=12 +! URxvt*boldItalicFont: xft:DejaVu Sans Mono:style=BoldOblique:pixelsize=12 + +!URxvt*font: xft:Consolas for Powerline:regular:size=10 +!URxvt*font: xft:Droid Sans Mono for Powerline:style=Regular:pixelsize=12 +URxvt*font: xft:Inconsolata for Powerline:style=Medium:pixelsize=18 +!URxvt*font: xft:Monaco for Powerline:regular:size=10 +!URxvt*font: xft:Source Code Pro for Powerline:style=Medium,Regular:pixelsize=12 + +! URxvt*geometry: 80x27 +! URxvt*chdir: /home/simon + +! URxvt*termName: rxvt-256color +! URxvt*termName: rxvt-unicode + +URxvt*depth: 32 + +! URxvt*inheritPixmap: true +! URxvt*transparent: true +! URxvt*tintColor: #2E3434 +! URxvt*shading: 50 + +! fade text when focus is lost +! URxvt*fading: 25 +! URxvt*fadecolor: #2E3434 + +URxvt*internalBorder: 5 +URxvt*saveLines: 32767 +URxvt*loginShell: true +URxvt*cutchars: "()*,<>[]{}|" +URxvt*visualBell: true +URxvt.urgentOnBell: true + +! scrollbar style - rxvt (default), plain (most compact), next, or xterm +URxvt.scrollBar: false +URxvt.scrollBar_right: true +URxvt.scrollBar_floating: true +URxvt.scrollstyle: plain +URxvt.scrollTtyOutput: false +URxvt.scrollTtyKeypress: true +URxvt*secondaryScroll: true + +! URxvt*perl-lib: /usr/lib/urxvt/perl/ +! URxvt.perl-lib: .urxvt/ + +! perl-ext-common remplacé par perl-ext depuis v9.16 : +URxvt.perl-ext: default,matcher,searchable-scrollback,clipboard,url-select,keyboard-select + +! urlLauncher remplacé par url-launcher depuis v9.16 : +URxvt.url-launcher: firefox +! URxvt*urlLauncher: firefox +! URxvt.urlLauncher: x-www-browser + +URxvt*matcher.button: 1 +! URxvt*matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-] +! Rxvt*matcher.pattern.1: \\b(gopher|mailto|http|https|ftp|file):[/]*[\\w-]\\.[\\w./?&@#-]*[\\w/-] +! Rxvt*matcher.pattern.2: \\bwww\\.[\\w-]\\.[\\w./?&@#-]*[\\w/-] + +URxvt*keysym.C-u: perl:matcher +! open and list recent (currently limited to 10) URLs via keyboard: +URxvt.keysym.C-Delete: perl:matcher:last +URxvt.keysym.M-Delete: perl:matcher:list + +! url-select +! Alt+U Enter selection mode. The last URL on your screen will be +! selected. You can repeat Alt+U to select the next upward URL. +! J/K Select next upward URL +! Return Open selected URL in browser and quit selection mode +! O Open selected URL in browser without quitting selection mode +! Y Copy (yank) selected URL and quit selection mode +! Esc Cancel URL selection mode +URxvt.url-select.launcher: /usr/bin/firefox -new-tab +URxvt.url-select.underline: true +URxvt.keysym.M-u: perl:url-select:select_next +URxvt.keysym.M-Escape: perl:keyboard-select:activate +URxvt.keysym.M-s: perl:keyboard-select:search + +URxvt*colorUL: #c5f779 +URxvt*underlineColor: #c5f779 +URxvt.colorBD: #ffffff +URxvt.colorIT: #bbbbbb +URxvt*cursorUnderline: false +! URxvt.cursorColor: #ffbb00 +! URxvt.borderColor: #191919 +! urxvt*.colorUL: #ffffff + +! URxvt.keysym.M-C-KP_0: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=12\007 +! URxvt.keysym.M-C-KP_1: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=14\007 +! URxvt.keysym.M-C-KP_2: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=16\007 +! URxvt.keysym.M-C-KP_3: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=20\007 +! URxvt.keysym.M-C-KP_4: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=24\007 +! URxvt.keysym.M-C-KP_5: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=32\007 +! URxvt.keysym.M-C-KP_6: command:\033]710;xft: Deja Vu Sans Mono:pixelsize=48\007 + +! URxvt.tabbed.tabbar-fg: +! URxvt.tabbed.tabbar-bg: +! URxvt.tabbed.tab-fg: +! URxvt.tabbed.tab-bg: + +!}}} + + diff --git a/.vimrc b/.vimrc new file mode 100644 index 0000000..7efb9b5 --- /dev/null +++ b/.vimrc @@ -0,0 +1,38 @@ +set nocompatible + +set expandtab +filetype plugin indent on +set tabstop=8 +set shiftwidth=4 +set expandtab +syntax on + +python3 from powerline.vim import setup as powerline_setup +python3 powerline_setup() +python3 del powerline_setup +set laststatus=2 " Always display the statusline in all windows +set showtabline=2 " Always display the tabline, even if there is only one tab +set noshowmode " Hide the default mode text (e.g. -- INSERT -- below the statusline) +set t_Co=256 +map :NERDTreeToggle +map :TagbarToggle +set number + + + +" CursorLines + +set cursorline +hi CursorLine cterm=NONE ctermbg=darkgrey ctermfg=lightgrey +hi CursorLineNR cterm=bold + + +"hi clear CursorLine +"augroup CLClear +" autocmd! ColorScheme * hi clear CursorLine +"augroup END + +"hi CursorLineNR cterm=bold +"augroup CLNRSet +" autocmd! ColorScheme * hi CursorLineNR cterm=bold +"augroup END diff --git a/.xmonad/.conky_dzen b/.xmonad/.conky_dzen new file mode 100644 index 0000000..4bd8938 --- /dev/null +++ b/.xmonad/.conky_dzen @@ -0,0 +1,8 @@ +background yes +out_to_console yes +out_to_x no +# Update interval in seconds +update_interval 1 + +TEXT +^i(/home/my_user/.xmonad/dzen2/cpu.xbm) ^fg(\#FFFFFF)${cpu}% ^i(/home/my_user/.xmonad/dzen2/mem.xbm) ^fg(\#FFFFFF)${memperc}% ^fg(\#ebac54) ${if_existing /proc/net/route eth1} ^i(/home/my_user/.xmonad/dzen2/net_wired.xbm) ^fg(\#00aa4a) ^i(/home/my_user/.xmonad/dzen2/net_down_03.xbm)${downspeed eth1} ^fg(\#ff3333) ^i(/home/my_user/.xmonad/dzen2/net_up_03.xbm)${upspeed eth1} ^fg(\#ebac54) ^i(/home/my_user/.xmonad/dzen2/mpd.xbm) ^fg(\#00ffff)${exec rhythmbox-client --print-playing-format "%aa-%at-%tt" | cut -c-70} ^fg(\#ebac54) ^i(/home/my_user/.xmonad/dzen2/volume.xbm) ^fg(\#00ffff)${exec amixer get Headphone | egrep -o "[0-9]+%" | head -1 | egrep -o "[0-9]*"}% ^fg(\#ebac54) ^i(/home/my_user/.xmonad/dzen2/clock.xbm) ^fg(\#FFFFFF) ${time %d %m %Y} ^fg(\#ebac54) ${time %R} diff --git a/.xmonad/fix.sh b/.xmonad/fix.sh new file mode 100755 index 0000000..64c6aaa --- /dev/null +++ b/.xmonad/fix.sh @@ -0,0 +1 @@ +ghc --make xmonad.hs -i -ilib -dynamic -fforce-recomp -main-is main -v -o xmonad-x86_64-linux diff --git a/.xmonad/nano.save b/.xmonad/nano.save new file mode 100644 index 0000000..190a180 --- /dev/null +++ b/.xmonad/nano.save @@ -0,0 +1 @@ +123 diff --git a/.xmonad/pkg_list.txt b/.xmonad/pkg_list.txt new file mode 100644 index 0000000..941fc15 --- /dev/null +++ b/.xmonad/pkg_list.txt @@ -0,0 +1,149 @@ +haskell-adjunctions +haskell-aeson +haskell-alsa-core +haskell-alsa-mixer +haskell-ansi-terminal +haskell-ansi-wl-pprint +haskell-asn1-encoding +haskell-asn1-parse +haskell-asn1-types +haskell-async +haskell-attoparsec +haskell-base-compat +haskell-base-orphans +haskell-base-prelude +haskell-base16-bytestring +haskell-base64-bytestring +haskell-basement +haskell-bifunctors +haskell-binary-conduit +haskell-blaze-builder +haskell-blaze-html +haskell-blaze-markup +haskell-byteable +haskell-bz2 +haskell-bzlib +haskell-call-stack +haskell-case-insensitive +haskell-cereal +haskell-colour +haskell-comonad +haskell-conduit +haskell-conduit-extra +haskell-connection +haskell-contravariant +haskell-cookie +haskell-crypto-cipher-types +haskell-crypto-numbers +haskell-crypto-pubkey +haskell-crypto-pubkey-types +haskell-crypto-random +haskell-cryptohash +haskell-cryptonite +haskell-data-default +haskell-data-default-class +haskell-data-default-instances-containers +haskell-data-default-instances-dlist +haskell-data-default-instances-old-locale +haskell-dbus +haskell-distributive +haskell-dlist +haskell-errors +haskell-exceptions +haskell-extensible-exceptions +haskell-fgl +haskell-free +haskell-generic-data +haskell-graphviz +haskell-hashable +haskell-hinotify +haskell-hopenpgp +haskell-hourglass +haskell-http +haskell-http-client +haskell-http-client-tls +haskell-http-conduit +haskell-http-types +haskell-incremental-parser +haskell-integer-logarithms +haskell-invariant +haskell-iwlib +haskell-ixset-typed +haskell-kan-extensions +haskell-lens +haskell-libmpd +haskell-libyaml +haskell-memory +haskell-mime-types +haskell-monad-loops +haskell-mono-traversable +haskell-monoid-subclasses +haskell-nettle +haskell-network +haskell-network-uri +haskell-newtype +haskell-old-locale +haskell-old-time +haskell-openpgp-asciiarmor +haskell-optparse-applicative +haskell-parallel +haskell-parsec-numbers +haskell-pem +haskell-polyparse +haskell-prettyprinter +haskell-prettyprinter-ansi-terminal +haskell-prettyprinter-convert-ansi-wl-pprint +haskell-primes +haskell-primitive +haskell-profunctors +haskell-random +haskell-reflection +haskell-regex-base +haskell-regex-compat +haskell-regex-posix +haskell-resourcet +haskell-safe +haskell-safe-exceptions +haskell-safecopy +haskell-scientific +haskell-securemem +haskell-semigroupoids +haskell-setlocale +haskell-show-combinators +haskell-socks +haskell-split +haskell-statevar +haskell-streaming-commons +haskell-syb +haskell-tagged +haskell-temporary +haskell-th-abstraction +haskell-th-lift +haskell-time-compat +haskell-time-locale-compat +haskell-timezone-olson +haskell-timezone-series +haskell-tls +haskell-transformers-base +haskell-transformers-compat +haskell-type-equality +haskell-typed-process +haskell-unliftio-core +haskell-unordered-containers +haskell-utf8-string +haskell-uuid-types +haskell-vector +haskell-vector-algorithms +haskell-void +haskell-wl-pprint-extras +haskell-wl-pprint-text +haskell-x11 +haskell-x11-xft +haskell-x509 +haskell-x509-store +haskell-x509-system +haskell-x509-validation +haskell-xml-conduit +haskell-xml-types +haskell-yaml +haskell-zlib diff --git a/.xmonad/prompt-history b/.xmonad/prompt-history new file mode 100644 index 0000000..97b3e40 --- /dev/null +++ b/.xmonad/prompt-history @@ -0,0 +1 @@ +fromList [("Run: ",["firefox"])] \ No newline at end of file diff --git a/.xmonad/scripts/.wallpaper.sh.swp b/.xmonad/scripts/.wallpaper.sh.swp new file mode 100644 index 0000000..0e4e024 Binary files /dev/null and b/.xmonad/scripts/.wallpaper.sh.swp differ diff --git a/.xmonad/scripts/getVolume.sh b/.xmonad/scripts/getVolume.sh new file mode 100755 index 0000000..7d0f003 --- /dev/null +++ b/.xmonad/scripts/getVolume.sh @@ -0,0 +1,3 @@ +#!/bin/bash +amixer get Master |grep % |awk '{print $5, $6}' | head -1 + diff --git a/.xmonad/scripts/getdGPULoad.py b/.xmonad/scripts/getdGPULoad.py new file mode 100755 index 0000000..7b9f925 --- /dev/null +++ b/.xmonad/scripts/getdGPULoad.py @@ -0,0 +1,7 @@ +#!/usr/bin/python3 + +from pynvml import * + +nvmlInit() +handle = nvmlDeviceGetHandleByIndex(0) +print(str(nvmlDeviceGetUtilizationRates(handle).gpu)) diff --git a/.xmonad/scripts/getdGPUStatus.sh b/.xmonad/scripts/getdGPUStatus.sh new file mode 100755 index 0000000..333f3a6 --- /dev/null +++ b/.xmonad/scripts/getdGPUStatus.sh @@ -0,0 +1,10 @@ +#!/bin/bash +STATE="$(cat /proc/acpi/bbswitch | grep -o "ON\|OFF")" +if [ "$STATE" == "ON" ]; + then + LOAD="$(~/.xmonad/scripts/getdGPULoad.py)" + echo "${STATE} (${LOAD}%)" + else + echo "OFF" + fi + diff --git a/.xmonad/scripts/wallpaper.sh b/.xmonad/scripts/wallpaper.sh new file mode 100755 index 0000000..182a6aa --- /dev/null +++ b/.xmonad/scripts/wallpaper.sh @@ -0,0 +1,3 @@ +#!/bin/bash + +DISPLAY=:0 /usr/bin/feh --recursive --randomize --bg-fill /home/marius/ownCloud/Wallpaper diff --git a/.xmonad/xmobar.errors b/.xmonad/xmobar.errors new file mode 100644 index 0000000..53d3128 --- /dev/null +++ b/.xmonad/xmobar.errors @@ -0,0 +1,7 @@ + +xmobar.hs:1:1: error: + Parse error: module header, import declaration + or top-level declaration expected. + | +1 | Config { + | ^^^^^^^^^... diff --git a/.xmonad/xmobar.hs b/.xmonad/xmobar.hs new file mode 100644 index 0000000..e1c705f --- /dev/null +++ b/.xmonad/xmobar.hs @@ -0,0 +1,102 @@ +Config { + + -- appearance + font = "xft:Bitstream Vera Sans Mono:size=9:bold:antialias=true" + , bgColor = "black" + , fgColor = "#646464" + , position = TopW L 90 + , border = BottomB + , borderColor = "#646464" + + -- layout + , sepChar = "%" -- delineator between plugin names and straight text + , alignSep = "}{" -- separator between left-right alignment + , template = "%StdinReader% }{ %battery% | %multicpu% | %coretemp% | %memory% | %dynnetwork% | Vol: %getVolume% | dGPU: %getdGPUStatus% | %date% " + + -- general behavior + , lowerOnStart = True -- send to bottom of window stack on start + , hideOnStart = False -- start with window unmapped (hidden) + , allDesktops = True -- show on all desktops + , overrideRedirect = True -- set the Override Redirect flag (Xlib) + , pickBroadest = False -- choose widest display (multi-monitor) + , persistent = True -- enable/disable hiding (True = disabled) + + -- plugins + -- Numbers can be automatically colored according to their value. xmobar + -- decides color based on a three-tier/two-cutoff system, controlled by + -- command options: + -- --Low sets the low cutoff + -- --High sets the high cutoff + -- + -- --low sets the color below --Low cutoff + -- --normal sets the color between --Low and --High cutoffs + -- --High sets the color above --High cutoff + -- + -- The --template option controls how the plugin is displayed. Text + -- color can be set by enclosing in tags. For more details + -- see http://projects.haskell.org/xmobar/#system-monitor-plugins. + , commands = + + -- network activity monitor (dynamic interface resolution) + [ Run DynNetwork [ "--template" , ": kB/s|kB/s" + , "--Low" , "1000" -- units: B/s + , "--High" , "5000" -- units: B/s + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 10 + + -- cpu activity monitor + , Run MultiCpu [ "--template" , "CPU: %" + , "--Low" , "50" -- units: % + , "--High" , "85" -- units: % + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 10 + + -- cpu core temperature monitor + , Run CoreTemp [ "--template" , "Temp: °C|°C|°C|°C" + , "--Low" , "70" -- units: °C + , "--High" , "80" -- units: °C + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 50 + + -- memory usage monitor + , Run Memory [ "--template" ,"Mem: %" + , "--Low" , "45" -- units: % + , "--High" , "90" -- units: % + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 10 + + -- battery monitor + , Run Battery [ "--template" , "Batt: " + , "--Low" , "10" -- units: % + , "--High" , "80" -- units: % + , "--low" , "darkred" + , "--normal" , "darkorange" + , "--high" , "darkgreen" + + , "--" -- battery specific options + -- discharging status + , "-o" , "% ()" + -- AC "on" status + , "-O" , "Charging (%)" + -- charged status + , "-i" , "Charged" + ] 50 + + -- time and date indicator + -- (%F = y-m-d date, %a = day of week, %T = h:m:s time) + , Run Date "%F (%a) %T" "date" 10 + + , Run StdinReader + + , Run Com "/home/marius/.xmonad/scripts/getVolume.sh" [] "getVolume" 10 + , Run Com "/home/marius/.xmonad/scripts/getdGPUStatus.sh" [] "getdGPUStatus" 10 + ] + } diff --git a/.xmonad/xmobar.hs.bak2 b/.xmonad/xmobar.hs.bak2 new file mode 100644 index 0000000..d600170 --- /dev/null +++ b/.xmonad/xmobar.hs.bak2 @@ -0,0 +1,106 @@ +Config { + + -- appearance + font = "xft:Bitstream Vera Sans Mono:size=9:bold:antialias=true" + , bgColor = "black" + , fgColor = "#646464" + , position = TopW L 90 + , border = BottomB + , borderColor = "#646464" + + -- layout + , sepChar = "%" -- delineator between plugin names and straight text + , alignSep = "}{" -- separator between left-right alignment + , template = "%StdinReader% }{ %battery% | %multicpu% | %coretemp% | %memory% | %dynnetwork% | Vol: %getVolume% | dGPU: %getdGPUStatus% | %date% " + + -- general behavior + , lowerOnStart = True -- send to bottom of window stack on start + , hideOnStart = False -- start with window unmapped (hidden) + , allDesktops = True -- show on all desktops + , overrideRedirect = True -- set the Override Redirect flag (Xlib) + , pickBroadest = False -- choose widest display (multi-monitor) + , persistent = True -- enable/disable hiding (True = disabled) + + -- plugins + -- Numbers can be automatically colored according to their value. xmobar + -- decides color based on a three-tier/two-cutoff system, controlled by + -- command options: + -- --Low sets the low cutoff + -- --High sets the high cutoff + -- + -- --low sets the color below --Low cutoff + -- --normal sets the color between --Low and --High cutoffs + -- --High sets the color above --High cutoff + -- + -- The --template option controls how the plugin is displayed. Text + -- color can be set by enclosing in tags. For more details + -- see http://projects.haskell.org/xmobar/#system-monitor-plugins. + , commands = + + -- weather monitor + [ Run Weather "EDDL" [ "--template", " | °C | % | hPa" + ] 36000 + + -- network activity monitor (dynamic interface resolution) + , Run DynNetwork [ "--template" , ": kB/s|kB/s" + , "--Low" , "1000" -- units: B/s + , "--High" , "5000" -- units: B/s + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 10 + + -- cpu activity monitor + , Run MultiCpu [ "--template" , "CPU: %" + , "--Low" , "50" -- units: % + , "--High" , "85" -- units: % + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 10 + + -- cpu core temperature monitor + , Run CoreTemp [ "--template" , "Temp: °C|°C|°C|°C" + , "--Low" , "70" -- units: °C + , "--High" , "80" -- units: °C + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 50 + + -- memory usage monitor + , Run Memory [ "--template" ,"Mem: %" + , "--Low" , "45" -- units: % + , "--High" , "90" -- units: % + , "--low" , "darkgreen" + , "--normal" , "darkorange" + , "--high" , "darkred" + ] 10 + + -- battery monitor + , Run Battery [ "--template" , "Batt: " + , "--Low" , "10" -- units: % + , "--High" , "80" -- units: % + , "--low" , "darkred" + , "--normal" , "darkorange" + , "--high" , "darkgreen" + + , "--" -- battery specific options + -- discharging status + , "-o" , "% ()" + -- AC "on" status + , "-O" , "Charging (%)" + -- charged status + , "-i" , "Charged" + ] 50 + + -- time and date indicator + -- (%F = y-m-d date, %a = day of week, %T = h:m:s time) + , Run Date "%F (%a) %T" "date" 10 + + , Run StdinReader + + , Run Com "/home/marius/.xmonad/scripts/getVolume.sh" [] "getVolume" 10 + , Run Com "/home/marius/.xmonad/scripts/getdGPUStatus.sh" [] "getdGPUStatus" 10 + ] + } diff --git a/.xmonad/xmonad-session-rc b/.xmonad/xmonad-session-rc new file mode 100755 index 0000000..c526729 --- /dev/null +++ b/.xmonad/xmonad-session-rc @@ -0,0 +1,34 @@ +#!/bin/sh +# Script to configure X, start common apps, and start xmonad. +# Author: Vic Fryzel +# http://github.com/vicfryzel/xmonad-config + + +# Configure PATH so that we can access our scripts below +PATH=$PATH:~/.cabal/bin:~/.xmonad/bin + +# Configure X +xsetroot -cursor_name left_ptr & +xrdb -merge ~/.Xdefaults & +setxkbmap -option "ctrl:nocaps" & + +# Start a window compositor. This ensures Google Chrome paints correctly. +xcompmgr -n & + +# Start the system tray +tray & + +# Start two terminals +gnome-terminal & +gnome-terminal & + +# Start a browser +google-chrome & + +# Start screensaver +gnome-screensaver & + +# Start sound server +pulseaudio --start --log-target=syslog & + +gnome-session & diff --git a/.xmonad/xmonad-x86_64-linux b/.xmonad/xmonad-x86_64-linux new file mode 100755 index 0000000..232666c Binary files /dev/null and b/.xmonad/xmonad-x86_64-linux differ diff --git a/.xmonad/xmonad-x86_64-linux.bak b/.xmonad/xmonad-x86_64-linux.bak new file mode 100755 index 0000000..1911021 Binary files /dev/null and b/.xmonad/xmonad-x86_64-linux.bak differ diff --git a/.xmonad/xmonad.errors b/.xmonad/xmonad.errors new file mode 100644 index 0000000..da9bc4c --- /dev/null +++ b/.xmonad/xmonad.errors @@ -0,0 +1,23 @@ + +xmonad.hs:27:1: warning: [-Wtabs] + Tab character found here, and in 130 further locations. + Please use spaces instead. + | +27 | manageDocks + | ^^^^^^^^ + +xmonad.hs:141:14: warning: [-Wdeprecations] + In the use of ‘defaultConfig’ + (imported from XMonad, but defined in XMonad.Config): + Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead." + | +141 | xmonad $ defaultConfig + | ^^^^^^^^^^^^^ + +xmonad.hs:149:45: warning: [-Wdeprecations] + In the use of ‘defaultConfig’ + (imported from XMonad, but defined in XMonad.Config): + Deprecated: "Use def (from Data.Default, and re-exported by XMonad and XMonad.Config) instead." + | +149 | , handleEventHook defaultConfig ] + | ^^^^^^^^^^^^^ diff --git a/.xmonad/xmonad.hi b/.xmonad/xmonad.hi new file mode 100644 index 0000000..65d10aa Binary files /dev/null and b/.xmonad/xmonad.hi differ diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs new file mode 100644 index 0000000..ee5eff1 --- /dev/null +++ b/.xmonad/xmonad.hs @@ -0,0 +1,174 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Hooks.SetWMName +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import XMonad.Util.NamedScratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + + +myManageHook = + manageDocks + <+> manageSpawn + <+> + (composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Pinentry" --> doFloat + , className =? "GameClient.exe" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ]) + <+> namedScratchpadManageHook myScratchPads + + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.2 -- terminal height, 10% + w = 0.7 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = (1 - w)/2 -- distance from left edge, 0% + + + +myScratchPads = [ NS "mixer" spawnMixer findMixer manageMixer + , NS "terminal" spawnTerm findTerm manageTerm + , NS "bitwarden" spawnBitwarden findBitwarden manageBitwarden + , NS "quicknote" spawnQuicknote findQuicknote manageQuicknote + ] + where + spawnMixer = "pavucontrol" + findMixer = className =? "Pavucontrol" + manageMixer = customFloating $ W.RationalRect l t w h + + where + h = 0.6 -- height, 60% + w = 0.6 -- width, 60% + t = (1 - h)/2 -- centered top/bottom + l = (1 - w)/2 -- centered left/right + + + spawnTerm = myTerminal ++ " -name scratchpad" + findTerm = resource =? "scratchpad" + manageTerm = customFloating $ W.RationalRect l t w h + + where + + h = 0.4 -- terminal height, 20% + w = 0.7 -- terminal width, 70% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + spawnQuicknote = myTerminal ++ " -name quicknote -e notology -q" + findQuicknote = resource =? "quicknote" + manageQuicknote = customFloating $ W.RationalRect l t w h + + where + + h = 0.6 -- terminal height, 60% + w = 0.6 -- terminal width, 60% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + spawnBitwarden = "bitwarden-bin" + findBitwarden = resource =? "bitwarden" + manageBitwarden = customFloating $ W.RationalRect l t w h + + where + + h = 0.8 -- terminal height, 80% + w = 0.5 -- terminal width, 50% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + + + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , startupHook = setWMName "LG3D" + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminator -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminator") + , ((mod4Mask .|. shiftMask, xK_t), namedScratchpadAction myScratchPads "terminal") + , ((mod4Mask .|. shiftMask, xK_m), namedScratchpadAction myScratchPads "mixer") + , ((mod4Mask .|. shiftMask, xK_n), namedScratchpadAction myScratchPads "quicknote") + , ((mod4Mask .|. shiftMask, xK_b), namedScratchpadAction myScratchPads "bitwarden") + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008ff4a), spawn "xset dpms force off") + , ((0 , 0x1008ffb2), spawn "amixer set Capture toggle") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak b/.xmonad/xmonad.hs.bak new file mode 100644 index 0000000..db0a9c8 --- /dev/null +++ b/.xmonad/xmonad.hs.bak @@ -0,0 +1,31 @@ +import XMonad +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + +myManageHook = composeAll + [ className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + ] + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above + <+> manageHook defaultConfig + , layoutHook = avoidStruts $ layoutHook defaultConfig + , handleEventHook = mconcat + [ docksEventHook + , handleEventHook defaultConfig ] + , logHook = dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "green" "" . shorten 50 + } + , modMask = mod4Mask -- Rebind Mod to the Windows key + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock") + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak2 b/.xmonad/xmonad.hs.bak2 new file mode 100644 index 0000000..a3f5518 --- /dev/null +++ b/.xmonad/xmonad.hs.bak2 @@ -0,0 +1,85 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + +myManageHook = manageDocks <+> manageSpawn <+> composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ] + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "terminology" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak3 b/.xmonad/xmonad.hs.bak3 new file mode 100644 index 0000000..7c05f2f --- /dev/null +++ b/.xmonad/xmonad.hs.bak3 @@ -0,0 +1,99 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + +myManageHook = manageDocks <+> manageSpawn <+> manageScratchPad <+> composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ] + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.1 -- terminal height, 10% + w = 1 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = 1 - w -- distance from left edge, 0% + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminology") + , ((mod4Mask .|. shiftMask, xK_t), scratchpadSpawnActionTerminal myTerminal) + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak4 b/.xmonad/xmonad.hs.bak4 new file mode 100644 index 0000000..c475773 --- /dev/null +++ b/.xmonad/xmonad.hs.bak4 @@ -0,0 +1,109 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + + +myManageHook = + manageDocks + <+> manageSpawn + <+> + (composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ]) + <+> manageScratchPad + + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.2 -- terminal height, 10% + w = 0.7 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = (1 - w)/2 -- distance from left edge, 0% + + + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminology") + , ((mod4Mask .|. shiftMask, xK_t), scratchpadSpawnActionTerminal myTerminal) + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak5 b/.xmonad/xmonad.hs.bak5 new file mode 100644 index 0000000..a6e0418 --- /dev/null +++ b/.xmonad/xmonad.hs.bak5 @@ -0,0 +1,155 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import XMonad.Util.NamedScratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + + +myManageHook = + manageDocks + <+> manageSpawn + <+> + (composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ]) + <+> namedScratchpadManageHook myScratchPads + + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.2 -- terminal height, 10% + w = 0.7 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = (1 - w)/2 -- distance from left edge, 0% + + + +myScratchPads = [ NS "mixer" spawnMixer findMixer manageMixer + , NS "terminal" spawnTerm findTerm manageTerm + , NS "notebook" spawnNotebook findNotebook manageNotebook + ] + where + spawnMixer = "pavucontrol" + findMixer = className =? "Pavucontrol" + manageMixer = customFloating $ W.RationalRect l t w h + + where + h = 0.6 -- height, 60% + w = 0.6 -- width, 60% + t = (1 - h)/2 -- centered top/bottom + l = (1 - w)/2 -- centered left/right + + + spawnTerm = myTerminal ++ " -name scratchpad" + findTerm = resource =? "scratchpad" + manageTerm = customFloating $ W.RationalRect l t w h + + where + + h = 0.4 -- terminal height, 20% + w = 0.7 -- terminal width, 70% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + spawnNotebook = myTerminal ++ " -name notebook -e notology -q" + findNotebook = resource =? "notebook" + manageNotebook = customFloating $ W.RationalRect l t w h + + where + + h = 0.6 -- terminal height, 60% + w = 0.6 -- terminal width, 60% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + + + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminology") + , ((mod4Mask .|. shiftMask, xK_t), namedScratchpadAction myScratchPads "terminal") + , ((mod4Mask .|. shiftMask, xK_m), namedScratchpadAction myScratchPads "mixer") + , ((mod4Mask .|. shiftMask, xK_n), namedScratchpadAction myScratchPads "notebook") + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak6 b/.xmonad/xmonad.hs.bak6 new file mode 100644 index 0000000..bf62d2e --- /dev/null +++ b/.xmonad/xmonad.hs.bak6 @@ -0,0 +1,170 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import XMonad.Util.NamedScratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + + +myManageHook = + manageDocks + <+> manageSpawn + <+> + (composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Pinentry" --> doFloat + , className =? "GameClient.exe" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ]) + <+> namedScratchpadManageHook myScratchPads + + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.2 -- terminal height, 10% + w = 0.7 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = (1 - w)/2 -- distance from left edge, 0% + + + +myScratchPads = [ NS "mixer" spawnMixer findMixer manageMixer + , NS "terminal" spawnTerm findTerm manageTerm + , NS "notebook" spawnNotebook findNotebook manageNotebook + , NS "quicknote" spawnQuicknote findQuicknote manageQuicknote + ] + where + spawnMixer = "pavucontrol" + findMixer = className =? "Pavucontrol" + manageMixer = customFloating $ W.RationalRect l t w h + + where + h = 0.6 -- height, 60% + w = 0.6 -- width, 60% + t = (1 - h)/2 -- centered top/bottom + l = (1 - w)/2 -- centered left/right + + + spawnTerm = myTerminal ++ " -name scratchpad" + findTerm = resource =? "scratchpad" + manageTerm = customFloating $ W.RationalRect l t w h + + where + + h = 0.4 -- terminal height, 20% + w = 0.7 -- terminal width, 70% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + spawnQuicknote = myTerminal ++ " -name quicknote -e notology -q" + findQuicknote = resource =? "quicknote" + manageQuicknote = customFloating $ W.RationalRect l t w h + + where + + h = 0.6 -- terminal height, 60% + w = 0.6 -- terminal width, 60% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + spawnNotebook = myTerminal ++ " -name notebook -e notology" + findNotebook = resource =? "notebook" + manageNotebook = customFloating $ W.RationalRect l t w h + + where + + h = 0.8 -- terminal height, 80% + w = 0.5 -- terminal width, 50% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + + + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminology") + , ((mod4Mask .|. shiftMask, xK_t), namedScratchpadAction myScratchPads "terminal") + , ((mod4Mask .|. shiftMask, xK_m), namedScratchpadAction myScratchPads "mixer") + , ((mod4Mask .|. shiftMask, xK_n), namedScratchpadAction myScratchPads "quicknote") + , ((mod4Mask .|. shiftMask, xK_b), namedScratchpadAction myScratchPads "notebook") + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak7 b/.xmonad/xmonad.hs.bak7 new file mode 100644 index 0000000..82c8c5c --- /dev/null +++ b/.xmonad/xmonad.hs.bak7 @@ -0,0 +1,172 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Hooks.SetWMName +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import XMonad.Util.NamedScratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + + +myManageHook = + manageDocks + <+> manageSpawn + <+> + (composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Pinentry" --> doFloat + , className =? "GameClient.exe" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ]) + <+> namedScratchpadManageHook myScratchPads + + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.2 -- terminal height, 10% + w = 0.7 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = (1 - w)/2 -- distance from left edge, 0% + + + +myScratchPads = [ NS "mixer" spawnMixer findMixer manageMixer + , NS "terminal" spawnTerm findTerm manageTerm + , NS "notebook" spawnNotebook findNotebook manageNotebook + , NS "quicknote" spawnQuicknote findQuicknote manageQuicknote + ] + where + spawnMixer = "pavucontrol" + findMixer = className =? "Pavucontrol" + manageMixer = customFloating $ W.RationalRect l t w h + + where + h = 0.6 -- height, 60% + w = 0.6 -- width, 60% + t = (1 - h)/2 -- centered top/bottom + l = (1 - w)/2 -- centered left/right + + + spawnTerm = myTerminal ++ " -name scratchpad" + findTerm = resource =? "scratchpad" + manageTerm = customFloating $ W.RationalRect l t w h + + where + + h = 0.4 -- terminal height, 20% + w = 0.7 -- terminal width, 70% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + spawnQuicknote = myTerminal ++ " -name quicknote -e notology -q" + findQuicknote = resource =? "quicknote" + manageQuicknote = customFloating $ W.RationalRect l t w h + + where + + h = 0.6 -- terminal height, 60% + w = 0.6 -- terminal width, 60% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + spawnNotebook = myTerminal ++ " -name notebook -e notology" + findNotebook = resource =? "notebook" + manageNotebook = customFloating $ W.RationalRect l t w h + + where + + h = 0.8 -- terminal height, 80% + w = 0.5 -- terminal width, 50% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + + + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , startupHook = setWMName "LG3D" + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminology") + , ((mod4Mask .|. shiftMask, xK_t), namedScratchpadAction myScratchPads "terminal") + , ((mod4Mask .|. shiftMask, xK_m), namedScratchpadAction myScratchPads "mixer") + , ((mod4Mask .|. shiftMask, xK_n), namedScratchpadAction myScratchPads "quicknote") + , ((mod4Mask .|. shiftMask, xK_b), namedScratchpadAction myScratchPads "notebook") + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.bak8 b/.xmonad/xmonad.hs.bak8 new file mode 100644 index 0000000..3047e84 --- /dev/null +++ b/.xmonad/xmonad.hs.bak8 @@ -0,0 +1,173 @@ +import XMonad +import XMonad.Actions.SpawnOn +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.FadeInactive +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh) +import XMonad.Hooks.SetWMName +import XMonad.Layout.Grid +import XMonad.Layout.ResizableTile +import XMonad.Layout.LayoutHints +import XMonad.Layout.Cross +import XMonad.Layout.ToggleLayouts +import XMonad.Layout.WindowNavigation +import XMonad.Layout.NoBorders +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.Scratchpad +import XMonad.Util.NamedScratchpad +import qualified XMonad.StackSet as W +-- import qualified XMonad.StackSet as S +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + + +myManageHook = + manageDocks + <+> manageSpawn + <+> + (composeAll [ isFullscreen --> doFullFloat + , className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + , className =? "PrisonArchitect.x86_64" --> doFullFloat + , className =? "hl_linux" --> doFloat + , className =? "hl2_linux" --> doFloat + , className =? "chromium" --> doFloat + , className =? "Pinentry" --> doFloat + , className =? "GameClient.exe" --> doFloat + , className =? "Gajim" --> doShift "ι" + , className =? "Thunderbird" --> doShift "θ" + ]) + <+> namedScratchpadManageHook myScratchPads + + +manageScratchPad :: ManageHook +manageScratchPad = scratchpadManageHook (W.RationalRect l t w h) + + where + + h = 0.2 -- terminal height, 10% + w = 0.7 -- terminal width, 100% + t = 1 - h -- distance from top edge, 90% + l = (1 - w)/2 -- distance from left edge, 0% + + + +myScratchPads = [ NS "mixer" spawnMixer findMixer manageMixer + , NS "terminal" spawnTerm findTerm manageTerm + , NS "notebook" spawnNotebook findNotebook manageNotebook + , NS "quicknote" spawnQuicknote findQuicknote manageQuicknote + ] + where + spawnMixer = "pavucontrol" + findMixer = className =? "Pavucontrol" + manageMixer = customFloating $ W.RationalRect l t w h + + where + h = 0.6 -- height, 60% + w = 0.6 -- width, 60% + t = (1 - h)/2 -- centered top/bottom + l = (1 - w)/2 -- centered left/right + + + spawnTerm = myTerminal ++ " -name scratchpad" + findTerm = resource =? "scratchpad" + manageTerm = customFloating $ W.RationalRect l t w h + + where + + h = 0.4 -- terminal height, 20% + w = 0.7 -- terminal width, 70% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + spawnQuicknote = myTerminal ++ " -name quicknote -e notology -q" + findQuicknote = resource =? "quicknote" + manageQuicknote = customFloating $ W.RationalRect l t w h + + where + + h = 0.6 -- terminal height, 60% + w = 0.6 -- terminal width, 60% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + spawnNotebook = myTerminal ++ " -name notebook -e notology" + findNotebook = resource =? "notebook" + manageNotebook = customFloating $ W.RationalRect l t w h + + where + + h = 0.8 -- terminal height, 80% + w = 0.5 -- terminal width, 50% + t = 1 - h -- distance from top edge + l = (1 - w)/2 -- distance from left edge + + + + + +myWorkspaces = ["α","β","γ","δ","ε","ζ","η","θ","ι"] + +myLogHook xmproc = do + fadeInactiveLogHook 0.8 + <+> dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "#01b8e0" "" . shorten 50 + } + +myTerminal = "urxvt" + + +myLayout = tiled ||| Mirror tiled ||| Full ||| Grid where + -- default tiling algorithm partitions the screen into two panes + tiled = Tall nmaster delta ratio + + + -- The default number of windows in the master pane + nmaster = 1 + + -- Default proportion of screen occupied by master pane + ratio = 1/2 + + -- Percent of screen to increment by when resizing panes + delta = 2/100 + + +main = do + xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = myManageHook -- make sure to include myManageHook definition from above +-- <+> manageHook defaultConfig + , layoutHook = avoidStruts $ smartBorders $ myLayout + , startupHook = setWMName "LG3D" + , handleEventHook = mconcat + [ docksEventHook + , fullscreenEventHook + , handleEventHook defaultConfig ] + , logHook = myLogHook xmproc + , modMask = mod4Mask -- Rebind Mod to the Windows key + , terminal = myTerminal + , workspaces = myWorkspaces + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_l), spawn "xscreensaver-command -lock") + , ((mod4Mask .|. shiftMask, xK_r), spawn "terminology -e ranger") + , ((mod4Mask .|. shiftMask, xK_f), spawn "firefox") + , ((mod4Mask .|. shiftMask, xK_Return), spawn "terminology") + , ((mod4Mask .|. shiftMask, xK_t), namedScratchpadAction myScratchPads "terminal") + , ((mod4Mask .|. shiftMask, xK_m), namedScratchpadAction myScratchPads "mixer") + , ((mod4Mask .|. shiftMask, xK_n), namedScratchpadAction myScratchPads "quicknote") + , ((mod4Mask .|. shiftMask, xK_b), namedScratchpadAction myScratchPads "notebook") + , ((mod4Mask , xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart") + , ((0 , 0x1008FF11), spawn "amixer -q sset Master 2%-") + , ((0 , 0x1008FF13), spawn "amixer -q sset Master 2%+") + , ((0 , 0x1008ffb2), spawn "amixer set Capture toggle") + , ((0 , 0x1008FF12), spawn "amixer set Master toggle") + , ((0 , 0x1008FF03), spawn "xbacklight -dec 5") + , ((0 , 0x1008FF02), spawn "xbacklight -inc 5") + + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.hs.test b/.xmonad/xmonad.hs.test new file mode 100644 index 0000000..d0ba9f5 --- /dev/null +++ b/.xmonad/xmonad.hs.test @@ -0,0 +1,56 @@ +import XMonad +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks +import XMonad.Util.Run(spawnPipe) +import XMonad.Util.EZConfig(additionalKeys) +import System.IO + + +-- Font +myFont = "-*-terminus-*-*-*-*-12-*-*-*-*-*-iso8859-*" + +-- Colors +myBgBgColor = "black" +myFgColor = "gray80" +myBgColor = "gray20" + + + + +-- Dzen2 stuff +----------------- +-- +myDzenGenOpts = "-fg '" ++ myFgColor ++ "' -bg '" ++ myBgColor ++ "' -fn '" ++ myFont ++ "' -h '16'" + +-- Status Bar +myStatusBar = "dzen2 -w 665 -ta l " ++ myDzenGenOpts + +-- Conky Bar +myConkyBar = "conky -c ~/.conky_bar | dzen2 -x 660 -w 365 " ++ myDzenGenOpts + + +myManageHook = composeAll + [ className =? "Gimp" --> doFloat + , className =? "Vncviewer" --> doFloat + ] + +main = do + myStatusBarPipe <- spawnPipe myStatusBar + xmproc <- spawnPipe myConkyBar + xmonad $ defaultConfig + { manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above + <+> manageHook defaultConfig + , layoutHook = avoidStruts $ layoutHook defaultConfig + , handleEventHook = mconcat + [ docksEventHook + , handleEventHook defaultConfig ] + , logHook = dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "green" "" . shorten 50 + } + , modMask = mod4Mask -- Rebind Mod to the Windows key + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock") + , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") + , ((0, xK_Print), spawn "scrot") + ] diff --git a/.xmonad/xmonad.o b/.xmonad/xmonad.o new file mode 100644 index 0000000..37fbee8 Binary files /dev/null and b/.xmonad/xmonad.o differ diff --git a/.xmonad/xmonad.state.bak b/.xmonad/xmonad.state.bak new file mode 100644 index 0000000..6cc6e99 --- /dev/null +++ b/.xmonad/xmonad.state.bak @@ -0,0 +1 @@ +StateFile {sfWins = StackSet {current = Screen {workspace = Workspace {tag = "1", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Just (Stack {focus = 29360144, up = [44040194,48234498,50331650,37748738], down = []})}, screen = S 1, screenDetail = SD {screenRect = Rectangle {rect_x = 0, rect_y = 0, rect_width = 1440, rect_height = 900}}}, visible = [Screen {workspace = Workspace {tag = "2", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Just (Stack {focus = 10485763, up = [], down = []})}, screen = S 0, screenDetail = SD {screenRect = Rectangle {rect_x = 1440, rect_y = 0, rect_width = 1920, rect_height = 1080}}}], hidden = [Workspace {tag = "3", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Just (Stack {focus = 39845890, up = [], down = []})},Workspace {tag = "4", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Just (Stack {focus = 41943042, up = [], down = []})},Workspace {tag = "5", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Just (Stack {focus = 12582928, up = [], down = [18874396]})},Workspace {tag = "6", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Nothing},Workspace {tag = "7", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Nothing},Workspace {tag = "8", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Nothing},Workspace {tag = "9", layout = "Choose L (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2}) (Choose L (Mirror (Tall {tallNMaster = 1, tallRatioIncrement = 3 % 100, tallRatio = 1 % 2})) Full)", stack = Nothing}], floating = fromList [(10485763,RationalRect (3 % 20) (0 % 1) (3 % 40) (1 % 72)),(29360144,RationalRect (0 % 1) (19 % 900) (1921 % 1440) (59 % 50))]}, sfExt = [("Urgents","Urgents {fromUrgents = []}"),("[Reminder]","[]")]} \ No newline at end of file diff --git a/.xscreensaver b/.xscreensaver new file mode 100644 index 0000000..8f85d2b --- /dev/null +++ b/.xscreensaver @@ -0,0 +1,284 @@ +# XScreenSaver Preferences File +# Written by xscreensaver-demo 5.38 for marius on Thu Jan 4 11:58:18 2018. +# https://www.jwz.org/xscreensaver/ + +timeout: 0:05:00 +cycle: 0:00:00 +lock: True +lockTimeout: 0:05:00 +passwdTimeout: 0:00:30 +visualID: default +installColormap: True +verbose: False +timestamp: True +splash: True +splashDuration: 0:00:05 +demoCommand: xscreensaver-demo +prefsCommand: xscreensaver-demo -prefs +nice: 10 +memoryLimit: 0 +fade: False +unfade: False +fadeSeconds: 0:00:03 +fadeTicks: 20 +captureStderr: True +ignoreUninstalledPrograms:False +font: *-medium-r-*-140-*-m-* +dpmsEnabled: True +dpmsQuickOff: True +dpmsStandby: 0:04:00 +dpmsSuspend: 0:10:00 +dpmsOff: 0:10:00 +grabDesktopImages: True +grabVideoFrames: False +chooseRandomImages: True +imageDirectory: /home/marius/Bilder/screensaver_imgs + +mode: one +selected: 144 + +textMode: literal +textLiteral: Owner: Marius Klöck +textFile: +textProgram: echo lol +textURL: https://en.wikipedia.org/w/index.php?title=Special:NewPages&feed=rss + +programs: \ + maze -root \n\ + electricsheep --root 1 \n\ + GL: superquadrics -root \n\ + attraction -root \n\ + blitspin -root \n\ + greynetic -root \n\ + helix -root \n\ + hopalong -root \n\ + imsmap -root \n\ +- noseguy -root \n\ +- pyro -root \n\ + qix -root \n\ +- rocks -root \n\ + rorschach -root \n\ + decayscreen -root \n\ + flame -root \n\ + halo -root \n\ + slidescreen -root \n\ + pedal -root \n\ + bouboule -root \n\ +- braid -root \n\ + coral -root \n\ + deco -root \n\ + drift -root \n\ +- fadeplot -root \n\ + galaxy -root \n\ + goop -root \n\ + grav -root \n\ + ifs -root \n\ + GL: jigsaw -root \n\ + julia -root \n\ +- kaleidescope -root \n\ + GL: moebius -root \n\ + moire -root \n\ + GL: morph3d -root \n\ + mountain -root \n\ + munch -root \n\ + penrose -root \n\ + GL: pipes -root \n\ + rd-bomb -root \n\ + GL: rubik -root \n\ +- sierpinski -root \n\ + slip -root \n\ + GL: sproingies -root \n\ + starfish -root \n\ + strange -root \n\ + swirl -root \n\ + triangle -root \n\ + xjack -root \n\ + xlyap -root \n\ + GL: atlantis -root \n\ + bsod -root \n\ + GL: bubble3d -root \n\ + GL: cage -root \n\ +- crystal -root \n\ + cynosure -root \n\ + discrete -root \n\ + distort -root \n\ + epicycle -root \n\ + flow -root \n\ + GL: glplanet -root \n\ + interference -root \n\ + kumppa -root \n\ + GL: lament -root \n\ + moire2 -root \n\ + GL: sonar -root \n\ + GL: stairs -root \n\ + truchet -root \n\ +- vidwhacker -root \n\ + blaster -root \n\ + bumps -root \n\ + ccurve -root \n\ + compass -root \n\ + deluxe -root \n\ +- demon -root \n\ +- GL: extrusion -root \n\ +- loop -root \n\ + penetrate -root \n\ + petri -root \n\ + phosphor -root \n\ + GL: pulsar -root \n\ + ripples -root \n\ + shadebobs -root \n\ + GL: sierpinski3d -root \n\ + spotlight -root \n\ + squiral -root \n\ + wander -root \n\ +- webcollage -root \n\ + xflame -root \n\ + xmatrix -root \n\ + GL: gflux -root \n\ +- nerverot -root \n\ + xrayswarm -root \n\ + xspirograph -root \n\ + GL: circuit -root \n\ + GL: dangerball -root \n\ +- GL: dnalogo -root \n\ + GL: engine -root \n\ + GL: flipscreen3d -root \n\ + GL: gltext -root \n\ + GL: menger -root \n\ + GL: molecule -root \n\ + rotzoomer -root \n\ + speedmine -root \n\ + GL: starwars -root \n\ + GL: stonerview -root \n\ + vermiculate -root \n\ + whirlwindwarp -root \n\ + zoom -root \n\ + anemone -root \n\ + apollonian -root \n\ + GL: boxed -root \n\ + GL: cubenetic -root \n\ + GL: endgame -root \n\ + euler2d -root \n\ + fluidballs -root \n\ + GL: flurry -root \n\ +- GL: glblur -root \n\ + GL: glsnake -root \n\ + halftone -root \n\ + GL: juggler3d -root \n\ + GL: lavalite -root \n\ +- polyominoes -root \n\ + GL: queens -root \n\ +- GL: sballs -root \n\ + GL: spheremonics -root \n\ +- thornbird -root \n\ + twang -root \n\ +- GL: antspotlight -root \n\ + apple2 -root \n\ + GL: atunnel -root \n\ + barcode -root \n\ + GL: blinkbox -root \n\ + GL: blocktube -root \n\ + GL: bouncingcow -root \n\ + cloudlife -root \n\ + GL: cubestorm -root \n\ + eruption -root \n\ + GL: flipflop -root \n\ + GL: flyingtoasters -root \n\ + fontglide -root \n\ + GL: gleidescope -root \n\ + GL: glknots -root \n\ + GL: glmatrix -root \n\ +- GL: glslideshow -root -zoom 100 \n\ + GL: hypertorus -root \n\ +- GL: jigglypuff -root \n\ + metaballs -root \n\ + GL: mirrorblob -root \n\ + piecewise -root \n\ + GL: polytopes -root \n\ + pong -root \n\ + popsquares -root \n\ + GL: surfaces -root \n\ + xanalogtv -root \n\ + abstractile -root \n\ + anemotaxis -root \n\ +- GL: antinspect -root \n\ + fireworkx -root \n\ + fuzzyflakes -root \n\ + interaggregate -root \n\ + intermomentary -root \n\ + memscroller -root \n\ + GL: noof -root \n\ + pacman -root \n\ + GL: pinion -root \n\ + GL: polyhedra -root \n\ +- GL: providence -root \n\ + substrate -root \n\ + wormhole -root \n\ +- GL: antmaze -root \n\ + GL: boing -root \n\ + boxfit -root \n\ + GL: carousel -root \n\ + celtic -root \n\ + GL: crackberg -root \n\ + GL: cube21 -root \n\ + fiberlamp -root \n\ + GL: fliptext -root \n\ + GL: glhanoi -root \n\ + GL: tangram -root \n\ + GL: timetunnel -root \n\ + GL: glschool -root \n\ + GL: topblock -root \n\ + GL: cubicgrid -root \n\ + cwaves -root \n\ + GL: gears -root \n\ + GL: glcells -root \n\ + GL: lockward -root \n\ + m6502 -root \n\ + GL: moebiusgears -root \n\ + GL: voronoi -root \n\ + GL: hypnowheel -root \n\ + GL: klein -root \n\ +- lcdscrub -root \n\ + GL: photopile -root \n\ + GL: skytentacles -root \n\ + GL: rubikblocks -root \n\ + GL: companioncube -root \n\ + GL: hilbert -root \n\ + GL: tronbit -root \n\ + GL: geodesic -root \n\ + hexadrop -root \n\ + GL: kaleidocycle -root \n\ + GL: quasicrystal -root \n\ + GL: unknownpleasures -root \n\ + binaryring -root \n\ + GL: cityflow -root \n\ + GL: geodesicgears -root \n\ + GL: projectiveplane -root \n\ + GL: romanboy -root \n\ + tessellimage -root \n\ + GL: winduprobot -root \n\ + GL: splitflap -root \n\ + GL: cubestack -root \n\ + GL: cubetwist -root \n\ + GL: discoball -root \n\ + GL: dymaxionmap -root \n\ + GL: energystream -root \n\ + GL: hexstrut -root \n\ + GL: hydrostat -root \n\ + GL: raverhoop -root \n\ + GL: splodesic -root \n\ + GL: unicrud -root \n\ + GL: vigilance -root \n\ + GL: esper -root \n\ + + +pointerPollTime: 0:00:05 +pointerHysteresis: 10 +windowCreationTimeout:0:00:30 +initialDelay: 0:00:00 +GetViewPortIsFullOfLies:False +procInterrupts: True +xinputExtensionDev: False +overlayStderr: True +authWarningSlack: 20 + diff --git a/.xsession b/.xsession new file mode 100644 index 0000000..d97ad75 --- /dev/null +++ b/.xsession @@ -0,0 +1,46 @@ +#!/bin/bash + +# Fix resolution bug + +#xrandr --output eDP1 --mode 1920x1080 --primary + + +# Load resources + +xrdb -merge .Xresources + +# Set up an icon tray + +trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --alpha 1 --tint 0x000000 --height 19 & + +# Start compton + +compton --config .compton.conf & + + +# Set the background color< + +xsetroot -solid midnightblue + +# Fire up apps + +# ~/.xmonad/scripts/wallpaper.sh & + +gajim & + +thunderbird & + +owncloud & + +xscreensaver -no-splash & + +if [ -x /usr/bin/nm-applet ] ; then + nm-applet --sm-disable & +fi + +if [ -x /usr/bin/gnome-power-manager ] ; then + sleep 3 + gnome-power-manager & +fi + +# exec xmonad