mirror of
http://github.com/JaeUs3792/dotfiles
synced 2025-12-14 08:01:35 +09:00
WM : config added.
This commit is contained in:
89
.config/bspwm/autostart
Executable file
89
.config/bspwm/autostart
Executable file
@ -0,0 +1,89 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
killall bspc
|
||||||
|
|
||||||
|
# Splashscreen
|
||||||
|
pgrep sxhkd || mpv --fullscreen --no-input-default-bindings --no-config --on-all-workspaces ~/Videos/Renders/splash.mp4
|
||||||
|
|
||||||
|
# Compositor
|
||||||
|
picom -b --config $HOME/.xmonad/scripts/picom.conf &
|
||||||
|
|
||||||
|
# cursor
|
||||||
|
xsetroot -cursor_name left_ptr &
|
||||||
|
|
||||||
|
# apply colorscheme to spotify
|
||||||
|
#~/.ricing/wal-spotify.sh > /dev/null&
|
||||||
|
|
||||||
|
# Source the colorscheme
|
||||||
|
#echo alpha="ff" >> "${HOME}/.cache/wal/colors.sh"
|
||||||
|
#source "${HOME}/.cache/wal/colors.sh"
|
||||||
|
|
||||||
|
# Walllpaper
|
||||||
|
~/scripts/random_wallpaper.sh
|
||||||
|
|
||||||
|
# Authentication agent
|
||||||
|
#/usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1&
|
||||||
|
|
||||||
|
# mapcheck
|
||||||
|
#killall osucheck.sh
|
||||||
|
#killall inotifywait
|
||||||
|
#~/.osuthings/osucheck.sh "/home/$USER/.osutmp"&
|
||||||
|
#~/.osuthings/osucheck.sh "/home/$USER/Downloads"&
|
||||||
|
|
||||||
|
# Tablet drivers
|
||||||
|
#otd&
|
||||||
|
|
||||||
|
# Statusbar
|
||||||
|
#eww -c ~/.config/eww/eww-bar open bar
|
||||||
|
eww -c ~/.config/eww/mybar open bar_right
|
||||||
|
eww -c ~/.config/eww/mybar open bar_center
|
||||||
|
eww -c ~/.config/eww/mybar open bar_left
|
||||||
|
#killall polybar
|
||||||
|
#polybar -c ~/.config/eww/mybar/polybar_tray.ini tray&
|
||||||
|
|
||||||
|
#Applets
|
||||||
|
#killall blueman-applet
|
||||||
|
#killall pa-applet
|
||||||
|
#killall nm-applet
|
||||||
|
#killall flameshot
|
||||||
|
#blueman-applet&
|
||||||
|
#pa-applet --disable-key-grabbing --disable-notifications&
|
||||||
|
#nm-applet&
|
||||||
|
#flameshot&
|
||||||
|
|
||||||
|
# daemons
|
||||||
|
#killall dunst
|
||||||
|
#dunst -lf $foreground \
|
||||||
|
# -lb $color0$alpha \
|
||||||
|
# -lfr $color9\
|
||||||
|
# -nf $foreground \
|
||||||
|
# -nb $color0$alpha \
|
||||||
|
# -nfr $color9 \
|
||||||
|
# -cf $foreground \
|
||||||
|
# -cb $color0$alpha \
|
||||||
|
# -cfr $color9 > /dev/null 2>&1 &
|
||||||
|
#thunar --daemon&
|
||||||
|
|
||||||
|
|
||||||
|
# Master layout
|
||||||
|
#for (( i=1; i < 10; i++));do
|
||||||
|
# #bsp-layout set tiled $i
|
||||||
|
# true
|
||||||
|
#done
|
||||||
|
|
||||||
|
# Sounds
|
||||||
|
#~/.bscripts/sounds.sh&
|
||||||
|
|
||||||
|
# idle
|
||||||
|
#killall idle.sh
|
||||||
|
#pgrep idle.sh || ~/.bscripts/idle.sh > /dev/null 2> /dev/null&
|
||||||
|
|
||||||
|
# borders
|
||||||
|
#.bscripts/borders.sh&
|
||||||
|
|
||||||
|
# Emacs Daemon
|
||||||
|
emacs --daemon
|
||||||
|
|
||||||
|
# Launch keybinding daemon
|
||||||
|
killall sxhkd
|
||||||
|
sxhkd -c ~/.config/bspwm/sxhkdrc > /dev/null 2> /dev/null&
|
||||||
72
.config/bspwm/bspwmrc
Executable file
72
.config/bspwm/bspwmrc
Executable file
@ -0,0 +1,72 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
# wgtk stuff
|
||||||
|
#wpg -R wallpaper.png
|
||||||
|
#wpg -s wallpaper.png
|
||||||
|
#source "${HOME}/.cache/wal/colors.sh"
|
||||||
|
|
||||||
|
# Set environment
|
||||||
|
export BSPWM_CONFIG="${XDG_CONFIG_HOME:-$HOME/.config}/bspwm"
|
||||||
|
|
||||||
|
bspc monitor -d 1 2 3 4 5
|
||||||
|
|
||||||
|
bspc config border_width 5
|
||||||
|
bspc config window_gap 20
|
||||||
|
#bspc config border_radius 2
|
||||||
|
bspc config focus_follows_pointer true
|
||||||
|
bspc config gapless_monocle true
|
||||||
|
#bspc config pointer_follows_focus true
|
||||||
|
#bspc config single_monocle true
|
||||||
|
bspc config top_monocle_padding 20
|
||||||
|
bspc config left_monocle_padding 20
|
||||||
|
bspc config right_monocle_padding 20
|
||||||
|
bspc config bottom_monocle_padding 20
|
||||||
|
#bspc config ignore_ewmh_fullscreen enter
|
||||||
|
|
||||||
|
bspc rule --add Blueman-manager state=floating rectangle=610x610+650+235
|
||||||
|
bspc rule --add Surf layer=above border=off rectangle=415x1100+0+0
|
||||||
|
bspc rule --add Surfdload state=floating layer=above border=off rectangle=415x75+0+0 sticky=on focus=off
|
||||||
|
bspc rule --add Brave-browser rectangle=1130x800+395+140
|
||||||
|
bspc rule --add Polkit-gnome-authentication-agent-1 rectangle=810x280+555+399
|
||||||
|
bspc rule --add Polybar layer=below manage=off
|
||||||
|
bspc rule --add kozu state=floating rectangle=1910x200+0+870 layer=above
|
||||||
|
bspc rule --add cava state=floating manage=off rectangle=1920x1050+0+50 border=off sticky=on locked=on layer=below focus=off
|
||||||
|
#bspc rule --add Pqiv manage=off border=off #rectangle=110x50+260+20
|
||||||
|
bspc rule --add Nautilus state=floating
|
||||||
|
bspc rule --add mpv state=floating border=off
|
||||||
|
bspc rule --add Rofi manage=off
|
||||||
|
bspc rule --add Pavucontrol state=floating rectangle=610x610+650+235
|
||||||
|
bspc rule --add Yad state=floating
|
||||||
|
bspc rule --add Thunar rectangle=650x500+635+290
|
||||||
|
bspc rule --add flameshot state=floating border=off
|
||||||
|
|
||||||
|
|
||||||
|
# Colors
|
||||||
|
bspc config focused_border_color "$color9"
|
||||||
|
bspc config active_border_color "$color9"
|
||||||
|
bspc config normal_border_color "$color1"
|
||||||
|
bspc config urgent_border_color "$color1"
|
||||||
|
bspc config presel_feedback_color "$color1"
|
||||||
|
bspc config focused_locked_border_color "$color1"
|
||||||
|
bspc config active_locked_border_color "$color1"
|
||||||
|
bspc config normal_locked_border_color "$color1"
|
||||||
|
bspc config focused_sticky_border_color "$color1"
|
||||||
|
bspc config active_sticky_border_color "$color1"
|
||||||
|
bspc config normal_sticky_border_color "$color1"
|
||||||
|
bspc config focused_private_border_color "$color1"
|
||||||
|
bspc config active_private_border_color "$color1"
|
||||||
|
bspc config normal_private_border_color "$color1"
|
||||||
|
|
||||||
|
# Load session
|
||||||
|
# shellcheck source=/dev/null
|
||||||
|
#. "$BSPWM_CONFIG/restore.cfg"
|
||||||
|
#if [ -e "$BSPWM_STATE" ] ; then
|
||||||
|
# bspc wm --load-state "$BSPWM_STATE"
|
||||||
|
# bspc wm --adopt-orphans
|
||||||
|
# rm "$BSPWM_STATE"
|
||||||
|
#fi
|
||||||
|
|
||||||
|
#Move thumbnails
|
||||||
|
#xdotool search "pqiv: /tmp/thumbnail.png" windowmove 256 20
|
||||||
|
# Autostart
|
||||||
|
"$BSPWM_CONFIG/autostart" &
|
||||||
202
.config/bspwm/sxhkdrc
Normal file
202
.config/bspwm/sxhkdrc
Normal file
@ -0,0 +1,202 @@
|
|||||||
|
#Config file for simple X hotkey daemon
|
||||||
|
|
||||||
|
#"Pausing" sxhkd
|
||||||
|
super+Return
|
||||||
|
alacritty
|
||||||
|
#Apps and programs
|
||||||
|
super+e
|
||||||
|
emacsclient -c -a 'emacs'
|
||||||
|
super+b
|
||||||
|
qutebrowser
|
||||||
|
super+f
|
||||||
|
firefox
|
||||||
|
# workspace
|
||||||
|
super + {1,2,3,4,5}
|
||||||
|
bspc desktop -f {1,2,3,4,5}
|
||||||
|
super + shift + {1-5}
|
||||||
|
bspc node -d '^{1-5}'
|
||||||
|
|
||||||
|
#control+alt+w
|
||||||
|
# brave
|
||||||
|
#control+alt+t
|
||||||
|
# kitty
|
||||||
|
##control+alt+g
|
||||||
|
## lutris
|
||||||
|
#control+alt+f
|
||||||
|
# thunar
|
||||||
|
#super+shift+c
|
||||||
|
# /home/kz87/.bscripts/wc.sh
|
||||||
|
#
|
||||||
|
##rofi things
|
||||||
|
##Launch apps
|
||||||
|
#super+shift+e
|
||||||
|
# ~/.bscripts/rofi.sh drun
|
||||||
|
#
|
||||||
|
##Window switcher
|
||||||
|
#alt+Tab
|
||||||
|
# ~/.bscripts/rofi.sh window
|
||||||
|
#
|
||||||
|
##Configuration launcher
|
||||||
|
#super+shift+s
|
||||||
|
# ~/.bscripts/rofi.sh config
|
||||||
|
#
|
||||||
|
##Resolution switcher
|
||||||
|
##control+shift+p
|
||||||
|
# #bash -c "~/.bscripts/rofi.sh resolution"
|
||||||
|
#
|
||||||
|
##Screenshot
|
||||||
|
#Print
|
||||||
|
# ~/.bscripts/ss.sh
|
||||||
|
##Delayed screenshot
|
||||||
|
#super+Print
|
||||||
|
# sleep 3 && ~/.bscripts/ss.sh
|
||||||
|
#
|
||||||
|
##Color picker
|
||||||
|
#control+alt+c
|
||||||
|
# colorpicker --short --one-shot | xclip -selection "clipboard"
|
||||||
|
#
|
||||||
|
##Suspend the pc
|
||||||
|
#super+o
|
||||||
|
# ~/.bscripts/lock.sh
|
||||||
|
#
|
||||||
|
##Osu stuff
|
||||||
|
#control+alt+o
|
||||||
|
# xsetwacom --set "HUION 420 Pen stylus" Area 1000 0 5000 3700
|
||||||
|
#shift+control+o
|
||||||
|
# xsetwacom set "HUION 420 Pen stylus" ResetArea
|
||||||
|
##super+x
|
||||||
|
## ~/.osuthings/surfdirect.sh raise
|
||||||
|
##super+z
|
||||||
|
## ~/.osuthings/surfdirect.sh lower
|
||||||
|
#
|
||||||
|
##Window and workspace shenanigans
|
||||||
|
#super+c
|
||||||
|
# wmctrl -c `xdotool getwindowfocus` -i
|
||||||
|
#alt+F4
|
||||||
|
# xdotool getwindowfocus windowclose
|
||||||
|
#control+period
|
||||||
|
# ~/.bscripts/wpm_reports.sh move +1
|
||||||
|
#control+comma
|
||||||
|
# ~/.bscripts/wpm_reports.sh move -1
|
||||||
|
#control+alt+period
|
||||||
|
# ~/.bscripts/wpm_reports.sh select +1
|
||||||
|
#control+alt+comma
|
||||||
|
# ~/.bscripts/wpm_reports.sh select -1
|
||||||
|
#super+{1,2,3,4,5}
|
||||||
|
# ~/.bscripts/wpm_reports.sh jump {0,1,2,3,4}
|
||||||
|
#
|
||||||
|
##Weeb
|
||||||
|
#control+alt+b
|
||||||
|
# ~/.mangaread
|
||||||
|
#
|
||||||
|
##Display stuff
|
||||||
|
#super+control+p
|
||||||
|
# xrandr --output HDMI1 --auto --left-of eDP1
|
||||||
|
#super+shift+p
|
||||||
|
# xrandr -s 0
|
||||||
|
#
|
||||||
|
## Toggle picom
|
||||||
|
super+p
|
||||||
|
[[ `pgrep -c picom` -eq 0 ]] && picom -b --config $HOME/.xmonad/scripts/picom.conf || killall picom
|
||||||
|
|
||||||
|
##Keyboard layouts
|
||||||
|
#super+space
|
||||||
|
# ~/.config/eww/mybar/scripts/kb_layouts cycle es us
|
||||||
|
#
|
||||||
|
##Media controls
|
||||||
|
#alt+period
|
||||||
|
# ~/.bscripts/volume.sh up #&& pkill -RTMIN+2 i3blocks
|
||||||
|
#alt+comma
|
||||||
|
# ~/.bscripts/volume.sh down #&& pkill -RTMIN+2 i3blocks
|
||||||
|
#alt+m
|
||||||
|
# ~/.bscripts/volume.sh mute
|
||||||
|
#XF86AudioRaiseVolume
|
||||||
|
# ~/.bscripts/volume.sh up #&& pkill -RTMIN+2 i3blocks
|
||||||
|
#XF86AudioLowerVolume
|
||||||
|
# ~/.bscripts/volume.sh down#&& pkill -RTMIN+2 i3blocks
|
||||||
|
#XF86AudioMute
|
||||||
|
# ~/.bscripts/volume.sh mute #&& pkill -RTMIN+2 i3blocks
|
||||||
|
#alt+shift+period
|
||||||
|
# ~/.bscripts/brightness.sh up
|
||||||
|
#alt+shift+comma
|
||||||
|
# ~/.bscripts/brightness.sh down
|
||||||
|
#Pause
|
||||||
|
# playerctl play-pause
|
||||||
|
#XF86AudioPlay
|
||||||
|
# playerctl play-pause
|
||||||
|
#XF86AudioPause
|
||||||
|
# playerctl play-pause
|
||||||
|
#XF86AudioNext
|
||||||
|
# playerctl next
|
||||||
|
#XF86AudioPrev
|
||||||
|
# playerctl previous
|
||||||
|
#
|
||||||
|
##Open-close eww
|
||||||
|
#control+alt+e
|
||||||
|
# ~/.config/eww/dashboard/launch_dashboard
|
||||||
|
#super+m
|
||||||
|
# ~/.config/eww/mybar/scripts/popup_music
|
||||||
|
#
|
||||||
|
##bspwm stuff
|
||||||
|
#super+s
|
||||||
|
# bspc desktop focused --layout next && polybar-msg hook layout 1
|
||||||
|
#super+shift+q
|
||||||
|
# ~/.bscripts/rofi.sh outopts
|
||||||
|
#XF86PowerOff
|
||||||
|
# ~/.bscripts/rofi.sh outopts
|
||||||
|
##super+shift+r
|
||||||
|
## bspc wm -r
|
||||||
|
#control+alt+space
|
||||||
|
# ~/.bscripts/toggle_float.sh
|
||||||
|
#super+shift+{k,j,h,l}
|
||||||
|
# play -v 0.4 ~/Documents/Sounds/tile.wav& ~/.bscripts/bsmove.sh {north,south,west,east}
|
||||||
|
#super+{k,j,h,l}
|
||||||
|
# ~/.bscripts/bselect.sh {north,south,west,east}
|
||||||
|
#
|
||||||
|
#super+alt+l
|
||||||
|
# bspc node focused -z right 15 0
|
||||||
|
#super+alt+h
|
||||||
|
# bspc node focused -z left -15 0
|
||||||
|
#super+alt+k
|
||||||
|
# bspc node focused -z top 0 -15
|
||||||
|
#super+alt+j
|
||||||
|
# bspc node focused -z bottom 0 15
|
||||||
|
#super+{d,a}
|
||||||
|
# play -v 0.4 ~/Documents/Sounds/tile.wav& bspc node @/ -C {forward,backward}
|
||||||
|
#alt+{d,a}
|
||||||
|
# play -v 0.4 ~/Documents/Sounds/tile.wav& bspc node first_ancestor -R {90,270}
|
||||||
|
#super+e
|
||||||
|
# play -v 0.4 ~/Documents/Sounds/tile.wav& bspc node first_ancestor --balance
|
||||||
|
#
|
||||||
|
#control+shift+h
|
||||||
|
# bspc node focused -z right -15 0
|
||||||
|
#control+shift+l
|
||||||
|
# bspc node focused -z left 15 0
|
||||||
|
#control+shift+j
|
||||||
|
# bspc node focused -z top 0 15
|
||||||
|
#control+shift+k
|
||||||
|
# bspc node focused -z bottom 0 -15
|
||||||
|
#
|
||||||
|
super+space
|
||||||
|
if [ -z "$(bspc query -N -n focused.fullscreen)" ]; then \
|
||||||
|
bspc node focused -t fullscreen; \
|
||||||
|
else \
|
||||||
|
bspc node focused -t tiled; \
|
||||||
|
fi;
|
||||||
|
#super+KP_Add
|
||||||
|
# bspc config window_gap $(( 5 + `bspc config window_gap` ))
|
||||||
|
#super+KP_Subtract
|
||||||
|
# bspc config window_gap $(( -5 + `bspc config window_gap` ))
|
||||||
|
#
|
||||||
|
#control+alt+{k,j,h,l}
|
||||||
|
# bspc node --presel-dir ~{north,south,west,east}
|
||||||
|
#
|
||||||
|
#control+alt+a
|
||||||
|
# if [[ ! -z "$(bspc query -N -n focused.normal)" ]]; then \
|
||||||
|
# bspc node focused -l above; \
|
||||||
|
# elif [[ ! -z "$(bspc query -N -n focused.above)" ]]; then \
|
||||||
|
# bspc node focused -l below; \
|
||||||
|
# else \
|
||||||
|
# bspc node focused -l normal; \
|
||||||
|
# fi;
|
||||||
|
#
|
||||||
BIN
.config/eww/eww-bar/eww-bar.png
Normal file
BIN
.config/eww/eww-bar/eww-bar.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.1 KiB |
55
.config/eww/eww-bar/eww.scss
Normal file
55
.config/eww/eww-bar/eww.scss
Normal file
@ -0,0 +1,55 @@
|
|||||||
|
* {
|
||||||
|
all: unset; //Unsets everything so you can style everything from scratch
|
||||||
|
}
|
||||||
|
|
||||||
|
//Global Styles
|
||||||
|
.bar {
|
||||||
|
background-color: #3a3a3a;
|
||||||
|
color: #b0b4bc;
|
||||||
|
padding: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Styles on classes (see eww.yuck for more information)
|
||||||
|
|
||||||
|
.sidestuff slider {
|
||||||
|
all: unset;
|
||||||
|
color: #ffd5cd;
|
||||||
|
}
|
||||||
|
|
||||||
|
.metric scale trough highlight {
|
||||||
|
all: unset;
|
||||||
|
background-color: #D35D6E;
|
||||||
|
color: #000000;
|
||||||
|
border-radius: 10px;
|
||||||
|
}
|
||||||
|
.metric scale trough {
|
||||||
|
all: unset;
|
||||||
|
background-color: #4e4e4e;
|
||||||
|
border-radius: 50px;
|
||||||
|
min-height: 3px;
|
||||||
|
min-width: 50px;
|
||||||
|
margin-left: 10px;
|
||||||
|
margin-right: 20px;
|
||||||
|
}
|
||||||
|
.metric scale trough highlight {
|
||||||
|
all: unset;
|
||||||
|
background-color: #D35D6E;
|
||||||
|
color: #000000;
|
||||||
|
border-radius: 10px;
|
||||||
|
}
|
||||||
|
.metric scale trough {
|
||||||
|
all: unset;
|
||||||
|
background-color: #4e4e4e;
|
||||||
|
border-radius: 50px;
|
||||||
|
min-height: 3px;
|
||||||
|
min-width: 50px;
|
||||||
|
margin-left: 10px;
|
||||||
|
margin-right: 20px;
|
||||||
|
}
|
||||||
|
.label-ram {
|
||||||
|
font-size: large;
|
||||||
|
}
|
||||||
|
.workspaces button:hover {
|
||||||
|
color: #D35D6E;
|
||||||
|
}
|
||||||
|
|
||||||
75
.config/eww/eww-bar/eww.yuck
Normal file
75
.config/eww/eww-bar/eww.yuck
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
(defwidget bar []
|
||||||
|
(centerbox :orientation "h"
|
||||||
|
(workspaces)
|
||||||
|
(music)
|
||||||
|
(sidestuff)))
|
||||||
|
|
||||||
|
(defwidget sidestuff []
|
||||||
|
(box :class "sidestuff" :orientation "h" :space-evenly false :halign "end"
|
||||||
|
(metric :label "🔊"
|
||||||
|
:value volume
|
||||||
|
:onchange "amixer -D pulse sset Master {}%")
|
||||||
|
(metric :label ""
|
||||||
|
:value {EWW_RAM.used_mem_perc}
|
||||||
|
:onchange "")
|
||||||
|
(metric :label "💾"
|
||||||
|
:value {round((1 - (EWW_DISK["/"].free / EWW_DISK["/"].total)) * 100, 0)}
|
||||||
|
:onchange "")
|
||||||
|
time))
|
||||||
|
|
||||||
|
(defwidget workspaces []
|
||||||
|
(box :class "workspaces"
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly true
|
||||||
|
:halign "start"
|
||||||
|
:spacing 10
|
||||||
|
(button :onclick "wmctrl -s 0" 1)
|
||||||
|
(button :onclick "wmctrl -s 1" 2)
|
||||||
|
(button :onclick "wmctrl -s 2" 3)
|
||||||
|
(button :onclick "wmctrl -s 3" 4)
|
||||||
|
(button :onclick "wmctrl -s 4" 5)
|
||||||
|
(button :onclick "wmctrl -s 5" 6)
|
||||||
|
(button :onclick "wmctrl -s 6" 7)
|
||||||
|
(button :onclick "wmctrl -s 7" 8)
|
||||||
|
(button :onclick "wmctrl -s 8" 9)))
|
||||||
|
|
||||||
|
(defwidget music []
|
||||||
|
(box :class "music"
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly false
|
||||||
|
:halign "center"
|
||||||
|
{music != "" ? "🎵${music}" : ""}))
|
||||||
|
|
||||||
|
|
||||||
|
(defwidget metric [label value onchange]
|
||||||
|
(box :orientation "h"
|
||||||
|
:class "metric"
|
||||||
|
:space-evenly false
|
||||||
|
(box :class "label" label)
|
||||||
|
(scale :min 0
|
||||||
|
:max 101
|
||||||
|
:active {onchange != ""}
|
||||||
|
:value value
|
||||||
|
:onchange onchange)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(deflisten music :initial ""
|
||||||
|
"playerctl --follow metadata --format '{{ artist }} - {{ title }}' || true")
|
||||||
|
|
||||||
|
(defpoll volume :interval "1s"
|
||||||
|
"scripts/getvol")
|
||||||
|
|
||||||
|
(defpoll time :interval "10s"
|
||||||
|
"date '+%H:%M %b %d, %Y'")
|
||||||
|
|
||||||
|
(defwindow bar
|
||||||
|
:monitor 0
|
||||||
|
:windowtype "dock"
|
||||||
|
:geometry (geometry :x "0%"
|
||||||
|
:y "0%"
|
||||||
|
:width "90%"
|
||||||
|
:height "10px"
|
||||||
|
:anchor "top center")
|
||||||
|
:reserve (struts :side "top" :distance "4%")
|
||||||
|
(bar))
|
||||||
2
.config/eww/eww-bar/scripts/getram
Executable file
2
.config/eww/eww-bar/scripts/getram
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
printf "%.0f\n" $(free -m | grep Mem | awk '{print ($3/$2)*100}')
|
||||||
2
.config/eww/eww-bar/scripts/getvol
Executable file
2
.config/eww/eww-bar/scripts/getvol
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
amixer -D pulse sget Master | grep 'Left:' | awk -F'[][]' '{ print $2 }' | tr -d '%' | head -1
|
||||||
107
.config/eww/mybar/eww.scss
Normal file
107
.config/eww/mybar/eww.scss
Normal file
@ -0,0 +1,107 @@
|
|||||||
|
// EWW.SCSS
|
||||||
|
// GLOBALS
|
||||||
|
*{
|
||||||
|
all: unset;
|
||||||
|
font-family: "Ubuntu Mono";
|
||||||
|
font-weight: 400;
|
||||||
|
}
|
||||||
|
|
||||||
|
.bars {
|
||||||
|
background-image: url("images/background.png");
|
||||||
|
background-color: #120010;
|
||||||
|
border: 3px solid #ff1475;
|
||||||
|
border-radius: 20px;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// LEFT MODULES
|
||||||
|
// Workspaces
|
||||||
|
.workspaces {
|
||||||
|
margin-left: 5px;
|
||||||
|
margin-top: -2px;
|
||||||
|
}
|
||||||
|
.workspace_buttons {
|
||||||
|
font-family: Hack;
|
||||||
|
font-size: 15px;
|
||||||
|
margin: 0 2 0 1;
|
||||||
|
color: #e6dafc;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// CENTER MODULES
|
||||||
|
.center_icons {
|
||||||
|
margin-right: 3px;
|
||||||
|
margin-left: 15px;
|
||||||
|
}
|
||||||
|
.center_labels {
|
||||||
|
font-size: 15px;
|
||||||
|
margin-bottom: -3px;
|
||||||
|
margin-top: 1px;
|
||||||
|
color: #e6dafc;
|
||||||
|
}
|
||||||
|
.center_revealers {
|
||||||
|
border-radius: 5px;
|
||||||
|
background-color: rgba(18,0,16, 1);
|
||||||
|
min-height: 32px;
|
||||||
|
border: solid 2px #ffff01;
|
||||||
|
color: #3081c6;
|
||||||
|
}
|
||||||
|
.center_info scale trough highlight {
|
||||||
|
all: unset;
|
||||||
|
background: #FFCD01;
|
||||||
|
border-radius: 10px;
|
||||||
|
border: solid 2px #ffff01;
|
||||||
|
}
|
||||||
|
.center_info scale trough {
|
||||||
|
all: unset;
|
||||||
|
background-color: rgba(230,218,252, 0.4);
|
||||||
|
border-radius: 10px;
|
||||||
|
min-width: 110px;
|
||||||
|
min-height: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// RIGHT MODULES
|
||||||
|
.power_button {
|
||||||
|
color: #ff4c5f;
|
||||||
|
font-size: 20px;
|
||||||
|
margin: -10 15 -10 15;
|
||||||
|
}
|
||||||
|
.time_box {
|
||||||
|
margin-top: -10px;
|
||||||
|
margin-bottom: -10px;
|
||||||
|
}
|
||||||
|
.time {
|
||||||
|
color: #e6dafc;
|
||||||
|
font-size: 25px;
|
||||||
|
margin-bottom: -20px;
|
||||||
|
margin-top: -20px;
|
||||||
|
}
|
||||||
|
.date {
|
||||||
|
color: #e6dafc;
|
||||||
|
font-size: 25px;
|
||||||
|
margin-top: 8px;
|
||||||
|
}
|
||||||
|
.kb_box {
|
||||||
|
color: #e6dafc;
|
||||||
|
font-size: 15px;
|
||||||
|
margin-left: 2px;
|
||||||
|
margin-right: 10px;
|
||||||
|
}
|
||||||
|
.kb_button_us {
|
||||||
|
font-size: 15px;
|
||||||
|
margin-bottom: -3px;
|
||||||
|
}
|
||||||
|
.kb_button_es {
|
||||||
|
font-size: 15px;
|
||||||
|
margin-top: -2px;
|
||||||
|
}
|
||||||
|
.cal {
|
||||||
|
font-size: 16px;
|
||||||
|
background-color: #120010;
|
||||||
|
background-image: url("images/background.png");
|
||||||
|
color: #e6dafc;
|
||||||
|
border: 5px solid #ff1475;
|
||||||
|
border-radius: 0 0 20 20;
|
||||||
|
padding: 10px;
|
||||||
|
}
|
||||||
813
.config/eww/mybar/eww.yuck
Normal file
813
.config/eww/mybar/eww.yuck
Normal file
@ -0,0 +1,813 @@
|
|||||||
|
;; VARS
|
||||||
|
(defvar eww "eww -c $HOME/.config/eww/mybar")
|
||||||
|
(defvar music_reveal false)
|
||||||
|
(defvar cover "images/music.png")
|
||||||
|
(defvar cpu_reveal false)
|
||||||
|
(defvar disk_reveal false)
|
||||||
|
(defvar temperature_reveal false)
|
||||||
|
(defvar ram_reveal false)
|
||||||
|
(defvar date_reveal false)
|
||||||
|
(defvar battery_reveal false)
|
||||||
|
(defvar left_bg "#120010")
|
||||||
|
(defvar center_bg "#120010")
|
||||||
|
(defvar right_bg "#120010")
|
||||||
|
(defvar media_bar_class "bar_normal")
|
||||||
|
(defvar media_bar_class_popup "bar_normal_popup")
|
||||||
|
(defvar battery_image "images/battery_normal.png")
|
||||||
|
(defvar us_color "rgba(230,218,252,1)")
|
||||||
|
(defvar es_color "rgba(230,218,252,0.4)")
|
||||||
|
(defvar day "0")
|
||||||
|
(defvar month "0")
|
||||||
|
(defvar year "0")
|
||||||
|
(defvar wp1 "●")
|
||||||
|
(defvar wp2 "○")
|
||||||
|
(defvar wp3 "○")
|
||||||
|
(defvar wp4 "○")
|
||||||
|
(defvar wp5 "○")
|
||||||
|
(defvar layout_button "")
|
||||||
|
(defvar media_status "")
|
||||||
|
(defvar artist "No artist")
|
||||||
|
(defvar artist_parsed "No artist")
|
||||||
|
(defvar title "No title")
|
||||||
|
(defvar title_parsed "No title")
|
||||||
|
(defvar length 100)
|
||||||
|
(defvar position 0)
|
||||||
|
|
||||||
|
(deflisten launch1 "scripts/workspaces")
|
||||||
|
(deflisten launch2 "scripts/layout")
|
||||||
|
(deflisten launch3 "scripts/media_info")
|
||||||
|
|
||||||
|
(defpoll cpu_percent :interval "1s" "scripts/cpu_info")
|
||||||
|
(defpoll disk_all :interval "10s" "scripts/disk_info --all")
|
||||||
|
(defpoll disk_used :interval "10s" "scripts/disk_info --used")
|
||||||
|
(defpoll disk_free :interval "10s" "scripts/disk_info --free")
|
||||||
|
(defpoll temperature :interval "2s" "scripts/temperature_info")
|
||||||
|
(defpoll ram_used :interval "2s" "scripts/ram_info --used")
|
||||||
|
(defpoll ram_all :interval "2s" "scripts/ram_info --all")
|
||||||
|
(defpoll ram_parsed :interval "2s" "scripts/ram_info --parsed")
|
||||||
|
(defpoll battery_percent :interval "3s" "scripts/battery_info --percentage")
|
||||||
|
(defpoll battery_time :interval "3s" "scripts/battery_info --time")
|
||||||
|
(defpoll hour :interval "1s" "scripts/time_info --hour")
|
||||||
|
(defpoll minutes :interval "1s" "scripts/time_info --minutes")
|
||||||
|
(defpoll type :interval "1s" "scripts/time_info --type")
|
||||||
|
(defpoll date :interval "1s" "scripts/time_info --date")
|
||||||
|
|
||||||
|
;; WINDOWS
|
||||||
|
;; Left bar
|
||||||
|
(defwindow bar_left
|
||||||
|
:geometry
|
||||||
|
(geometry
|
||||||
|
:x "10px"
|
||||||
|
:y "10px"
|
||||||
|
:width "150px"
|
||||||
|
:height "25px")
|
||||||
|
:stacking "bg"
|
||||||
|
:reserve
|
||||||
|
(struts
|
||||||
|
:distance "70px"
|
||||||
|
:side "top")
|
||||||
|
:windowtype "dock"
|
||||||
|
:wm-ignore "false"
|
||||||
|
(widgets_left))
|
||||||
|
|
||||||
|
;; Central bar
|
||||||
|
(defwindow bar_center
|
||||||
|
:geometry
|
||||||
|
(geometry
|
||||||
|
:x "180px"
|
||||||
|
:y "10px"
|
||||||
|
:width "930px"
|
||||||
|
:height "50px")
|
||||||
|
:stacking "bg"
|
||||||
|
:reserve
|
||||||
|
(struts
|
||||||
|
:distance "70px"
|
||||||
|
:side "top")
|
||||||
|
:windowtype "dock"
|
||||||
|
:wm-ignore "false"
|
||||||
|
(widgets_center))
|
||||||
|
|
||||||
|
;; Right bar
|
||||||
|
(defwindow bar_right
|
||||||
|
:geometry
|
||||||
|
(geometry
|
||||||
|
:x "1130px"
|
||||||
|
:y "10px"
|
||||||
|
:width "455px"
|
||||||
|
:height "50px")
|
||||||
|
:stacking "bg"
|
||||||
|
:reserve
|
||||||
|
(struts
|
||||||
|
:distance "70px"
|
||||||
|
:side "top")
|
||||||
|
:windowtype "dock"
|
||||||
|
:wm-ignore "false"
|
||||||
|
(widgets_right))
|
||||||
|
|
||||||
|
;; Calendar window
|
||||||
|
(defwindow calendar
|
||||||
|
:geometry
|
||||||
|
(geometry
|
||||||
|
:x "1465px"
|
||||||
|
:y "65px"
|
||||||
|
:width "415px"
|
||||||
|
:height "100px")
|
||||||
|
:stacking "fg"
|
||||||
|
:windowtype "dock"
|
||||||
|
:wm-ignore "false"
|
||||||
|
(box
|
||||||
|
:class "cal"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "fill"
|
||||||
|
(calendar
|
||||||
|
:day day
|
||||||
|
:month month
|
||||||
|
:year year
|
||||||
|
:show-details "true"
|
||||||
|
:show-heading "true"
|
||||||
|
:show-day-names "true")))
|
||||||
|
|
||||||
|
;; Music window
|
||||||
|
(defwindow music
|
||||||
|
:geometry
|
||||||
|
(geometry
|
||||||
|
:x "40px"
|
||||||
|
:y "65px"
|
||||||
|
:width "415px"
|
||||||
|
:height "200px")
|
||||||
|
:stacking "fg"
|
||||||
|
:windowtype "dock"
|
||||||
|
:wm-ignore "false"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "fill"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "music_box_popup"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "fill"
|
||||||
|
:space-evenly "false"
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:halign "start"
|
||||||
|
(image
|
||||||
|
:halign "start"
|
||||||
|
:class "media_art_popup"
|
||||||
|
:tooltip "${title} by ${artist}"
|
||||||
|
:path cover
|
||||||
|
:image-height 130
|
||||||
|
:image-width 130))
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:halign "fill"
|
||||||
|
:orientation "v"
|
||||||
|
:class "media_data_popup"
|
||||||
|
:spacing 20
|
||||||
|
(label
|
||||||
|
:class "media_title_popup"
|
||||||
|
:markup title_parsed
|
||||||
|
:halign "center")
|
||||||
|
(label
|
||||||
|
:class "media_artist_popup"
|
||||||
|
:markup artist_parsed
|
||||||
|
:halign "center")
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:halign "fill"
|
||||||
|
:valign "fill"
|
||||||
|
:class "media_buttons_box_popup"
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/media_control --prev"
|
||||||
|
:class "nextprev_popup"
|
||||||
|
:tooltip "Previous"
|
||||||
|
""))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/media_control --move -5"
|
||||||
|
:class "move_popup"
|
||||||
|
:tooltip "-5 seconds"
|
||||||
|
""))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/media_control --toggle"
|
||||||
|
:class "playpause_popup"
|
||||||
|
:tooltip "Play/Pause"
|
||||||
|
media_status))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/media_control --move +5"
|
||||||
|
:class "move_popup"
|
||||||
|
:tooltip "+5 seconds"
|
||||||
|
""))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/media_control --next"
|
||||||
|
:class "nextprev_popup"
|
||||||
|
:tooltip "Next"
|
||||||
|
""))
|
||||||
|
|
||||||
|
)))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
:onhover "${eww} update media_bar_class_popup=\"bar_highlighted_popup\""
|
||||||
|
:onhoverlost "${eww} update media_bar_class_popup=\"bar_normal_popup\""
|
||||||
|
(box
|
||||||
|
:orienttion "h"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "fill"
|
||||||
|
:class media_bar_class_popup
|
||||||
|
(scale
|
||||||
|
:min 0
|
||||||
|
:max length
|
||||||
|
:value position
|
||||||
|
:orientation "h"
|
||||||
|
:onchange "scripts/media_control --seek {}"
|
||||||
|
)))
|
||||||
|
))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;; WIDGETS
|
||||||
|
;; Left widgets
|
||||||
|
(defwidget widgets_left []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update left_bg=\"#43013b\""
|
||||||
|
:onhoverlost "${eww} update left_bg=\"#120010\""
|
||||||
|
(box
|
||||||
|
:spacing 0
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "bars"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "fill"
|
||||||
|
:hexpand "false"
|
||||||
|
:style "background-color: ${left_bg}"
|
||||||
|
(workspaces)
|
||||||
|
(layout))))
|
||||||
|
|
||||||
|
|
||||||
|
(defwidget workspaces []
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:halign "start"
|
||||||
|
:class "workspaces"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:spacing 5
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "${launch1}, ${launch2}, ${launch3}"
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:tooltip "Switch to workspace 1"
|
||||||
|
:onclick "bspc desktop -f 1"
|
||||||
|
(label
|
||||||
|
:markup wp1
|
||||||
|
:class "workspace_buttons")))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:tooltip "Switch to workspace 2"
|
||||||
|
:onclick "bspc desktop -f 2"
|
||||||
|
(label
|
||||||
|
:markup wp2
|
||||||
|
:class "workspace_buttons")))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:tooltip "Switch to workspace 3"
|
||||||
|
:onclick "bspc desktop -f 3"
|
||||||
|
(label
|
||||||
|
:markup wp3
|
||||||
|
:class "workspace_buttons")))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:tooltip "Switch to workspace 4"
|
||||||
|
:onclick "bspc desktop -f 4"
|
||||||
|
(label
|
||||||
|
:markup wp4
|
||||||
|
:class "workspace_buttons")))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:tooltip "Switch to workspace 5"
|
||||||
|
:onclick "bspc desktop -f 5"
|
||||||
|
(label
|
||||||
|
:markup wp5
|
||||||
|
:class "workspace_buttons")))
|
||||||
|
)))
|
||||||
|
|
||||||
|
(defwidget layout []
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:halign "start"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly "false"
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:tooltip "Change current layout"
|
||||||
|
:onclick "bspc desktop focused --layout next"
|
||||||
|
(label
|
||||||
|
:class "layout"
|
||||||
|
:text layout_button)))
|
||||||
|
)))
|
||||||
|
|
||||||
|
(defwidget music []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update music_reveal=true"
|
||||||
|
:onhoverlost "${eww} update music_reveal=false"
|
||||||
|
(box
|
||||||
|
:class "music_box"
|
||||||
|
:orientation "h"
|
||||||
|
:spacing 0
|
||||||
|
:space-evenly "false"
|
||||||
|
:halign "start"
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(box
|
||||||
|
:space_evenly "false"
|
||||||
|
:halign "start"
|
||||||
|
:tooltip "${title} by ${artist}"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/popup_music"
|
||||||
|
(image
|
||||||
|
:class "media_art"
|
||||||
|
:path cover
|
||||||
|
:image-height 40
|
||||||
|
:image-width 40))))
|
||||||
|
(box
|
||||||
|
:class "media_data"
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
:valign "end"
|
||||||
|
:halign "start"
|
||||||
|
(label
|
||||||
|
:class "media_title"
|
||||||
|
:halign "center"
|
||||||
|
:markup title_parsed
|
||||||
|
:limit-width 15
|
||||||
|
:wrap "true"
|
||||||
|
:show_truncated "true")
|
||||||
|
(revealer
|
||||||
|
:reveal music_reveal
|
||||||
|
:transition "slideup"
|
||||||
|
:duration "350ms"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:halign "center"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "media_buttons"
|
||||||
|
:space-evenly "false"
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:class "prev_button"
|
||||||
|
:onclick "scripts/media_control --prev"
|
||||||
|
:tooltip "Previous"
|
||||||
|
""))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:class "toggle_button"
|
||||||
|
:onclick "scripts/media_control --toggle"
|
||||||
|
:tooltip "Play/Pause"
|
||||||
|
"${media_status}"))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:class "next_button"
|
||||||
|
:onclick "scripts/media_control --next"
|
||||||
|
:tooltip "Next"
|
||||||
|
""))))
|
||||||
|
(box
|
||||||
|
:space-evenly "false"
|
||||||
|
:class media_bar_class
|
||||||
|
:halign "center"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
(eventbox
|
||||||
|
;;:cursor "pointer"
|
||||||
|
;; :onhover "${eww} update media_bar_class=bar_highlighted"
|
||||||
|
;; :onhoverlost "${eww} update media_bar_class=bar_normal"
|
||||||
|
(scale
|
||||||
|
:active "false"
|
||||||
|
:min 0
|
||||||
|
:max length
|
||||||
|
:value position
|
||||||
|
:orientation "h"
|
||||||
|
:tooltip "Seek"
|
||||||
|
;; :onchange "scripts/media_control --seek {}"
|
||||||
|
)))))))
|
||||||
|
|
||||||
|
;; Central widgets
|
||||||
|
(defwidget widgets_center []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update center_bg=\"#43013b\""
|
||||||
|
:onhoverlost "${eww} update center_bg=\"#120010\""
|
||||||
|
(box
|
||||||
|
:spacing 0
|
||||||
|
:space-evenly "true"
|
||||||
|
:class "bars"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "fill"
|
||||||
|
:hexpand "false"
|
||||||
|
:style "background-color: ${center_bg}"
|
||||||
|
(box
|
||||||
|
:space-evenly "true"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "center"
|
||||||
|
:halign "fill"
|
||||||
|
(cpu_status)
|
||||||
|
(ram_status)
|
||||||
|
(temperature_status)
|
||||||
|
(disk_status)
|
||||||
|
(battery_status)
|
||||||
|
))))
|
||||||
|
|
||||||
|
|
||||||
|
(defwidget cpu_status []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update cpu_reveal=\"true\""
|
||||||
|
:onhoverlost "${eww} update cpu_reveal=\"false\""
|
||||||
|
:tooltip "CPU usage"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "cpu_box"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
(image
|
||||||
|
:class "center_icons"
|
||||||
|
:path "images/cpu.png"
|
||||||
|
:image-width 30
|
||||||
|
:image-height 30)
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
:valign "center"
|
||||||
|
:class "center_boxes"
|
||||||
|
(revealer
|
||||||
|
:reveal "${!cpu_reveal}"
|
||||||
|
:transition "slidedown"
|
||||||
|
:duration "350ms"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:class "center_info"
|
||||||
|
:valign "start"
|
||||||
|
(label
|
||||||
|
:class "center_labels"
|
||||||
|
:text "${cpu_percent}%"
|
||||||
|
:halign "center")
|
||||||
|
(scale
|
||||||
|
:min 0
|
||||||
|
:max 100
|
||||||
|
:value cpu_percent
|
||||||
|
:orientation "h")))
|
||||||
|
(revealer
|
||||||
|
:reveal cpu_reveal
|
||||||
|
:transition "slideup"
|
||||||
|
:duration "350ms"
|
||||||
|
:valign "center"
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:class "center_revealers"
|
||||||
|
(graph
|
||||||
|
:thickness 3
|
||||||
|
:value cpu_percent
|
||||||
|
:time-range "20s"
|
||||||
|
:min 0
|
||||||
|
:max 100
|
||||||
|
:dynamic "true"
|
||||||
|
:line-style "round"))
|
||||||
|
)))))
|
||||||
|
|
||||||
|
(defwidget disk_status []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update disk_reveal=\"true\""
|
||||||
|
:onhoverlost "${eww} update disk_reveal=\"false\""
|
||||||
|
:tooltip "Disk usage"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "disk_box"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
(image
|
||||||
|
:class "center_icons"
|
||||||
|
:path "images/disk.png"
|
||||||
|
:image-width 30
|
||||||
|
:image-height 30)
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
:valign "center"
|
||||||
|
:class "center_boxes"
|
||||||
|
(revealer
|
||||||
|
:reveal "${!disk_reveal}"
|
||||||
|
:transition "slidedown"
|
||||||
|
:duration "350ms"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:class "center_info"
|
||||||
|
:valign "start"
|
||||||
|
(label
|
||||||
|
:class "center_labels"
|
||||||
|
:text "${disk_used}G/${disk_all}G"
|
||||||
|
:halign "center")
|
||||||
|
(scale
|
||||||
|
:min 0
|
||||||
|
:max disk_all
|
||||||
|
:value disk_used
|
||||||
|
:orientation "h")))
|
||||||
|
(revealer
|
||||||
|
:reveal disk_reveal
|
||||||
|
:transition "slideup"
|
||||||
|
:duration "350ms"
|
||||||
|
:valign "center"
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:halign "fill"
|
||||||
|
:class "center_revealers"
|
||||||
|
(label
|
||||||
|
:halign "center"
|
||||||
|
:text "${disk_free}G free"))
|
||||||
|
)))))
|
||||||
|
(defwidget temperature_status []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update temperature_reveal=\"true\""
|
||||||
|
:onhoverlost "${eww} update temperature_reveal=\"false\""
|
||||||
|
:tooltip "Internal temperature"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "temperature_box"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
(image
|
||||||
|
:class "center_icons"
|
||||||
|
:path "images/temperature.png"
|
||||||
|
:image-width 30
|
||||||
|
:image-height 30)
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
:valign "center"
|
||||||
|
:class "center_boxes"
|
||||||
|
(revealer
|
||||||
|
:reveal "${!temperature_reveal}"
|
||||||
|
:transition "slidedown"
|
||||||
|
:duration "350ms"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:class "center_info"
|
||||||
|
:valign "start"
|
||||||
|
(label
|
||||||
|
:class "center_labels"
|
||||||
|
:text "${temperature}°C"
|
||||||
|
:halign "center")
|
||||||
|
(scale
|
||||||
|
:min 0
|
||||||
|
:max 100
|
||||||
|
:value temperature
|
||||||
|
:orientation "h")))
|
||||||
|
(revealer
|
||||||
|
:reveal temperature_reveal
|
||||||
|
:transition "slideup"
|
||||||
|
:duration "350ms"
|
||||||
|
:valign "center"
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:class "center_revealers"
|
||||||
|
(graph
|
||||||
|
:thickness 3
|
||||||
|
:value temperature
|
||||||
|
:time-range "20s"
|
||||||
|
:min 0
|
||||||
|
:max 100
|
||||||
|
:dynamic "true"
|
||||||
|
:line-style "round"))
|
||||||
|
)))))
|
||||||
|
|
||||||
|
(defwidget ram_status []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update ram_reveal=\"true\""
|
||||||
|
:onhoverlost "${eww} update ram_reveal=\"false\""
|
||||||
|
:tooltip "RAM usage"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "ram_box"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
(image
|
||||||
|
:class "center_icons"
|
||||||
|
:path "images/ram.png"
|
||||||
|
:image-width 30
|
||||||
|
:image-height 30)
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
:valign "center"
|
||||||
|
:class "center_boxes"
|
||||||
|
(revealer
|
||||||
|
:reveal "${!ram_reveal}"
|
||||||
|
:transition "slidedown"
|
||||||
|
:duration "350ms"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:class "center_info"
|
||||||
|
:valign "start"
|
||||||
|
(label
|
||||||
|
:class "center_labels"
|
||||||
|
:text "${ram_parsed}"
|
||||||
|
:halign "center")
|
||||||
|
(scale
|
||||||
|
:min 0
|
||||||
|
:max ram_all
|
||||||
|
:value ram_used
|
||||||
|
:orientation "h")))
|
||||||
|
(revealer
|
||||||
|
:reveal ram_reveal
|
||||||
|
:transition "slideup"
|
||||||
|
:duration "350ms"
|
||||||
|
:valign "center"
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:class "center_revealers"
|
||||||
|
(graph
|
||||||
|
:thickness 3
|
||||||
|
:value ram_used
|
||||||
|
:time-range "20s"
|
||||||
|
:min 0
|
||||||
|
:max ram_all
|
||||||
|
:dynamic "true"
|
||||||
|
:line-style "round"))
|
||||||
|
)))))
|
||||||
|
|
||||||
|
(defwidget battery_status []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update battery_reveal=\"true\""
|
||||||
|
:onhoverlost "${eww} update battery_reveal=\"false\""
|
||||||
|
:tooltip "Battery"
|
||||||
|
(box
|
||||||
|
:orientation "h"
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "battery_box"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
(image
|
||||||
|
:class "center_icons"
|
||||||
|
:path battery_image
|
||||||
|
:image-width 30
|
||||||
|
:image-height 30)
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:vexpand "false"
|
||||||
|
:hexpand "false"
|
||||||
|
:valign "center"
|
||||||
|
:class "center_boxes"
|
||||||
|
(revealer
|
||||||
|
:reveal "${!battery_reveal}"
|
||||||
|
:transition "slidedown"
|
||||||
|
:duration "350ms"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:class "center_info"
|
||||||
|
:valign "start"
|
||||||
|
(label
|
||||||
|
:class "center_labels"
|
||||||
|
:text "${battery_percent}%"
|
||||||
|
:halign "center")
|
||||||
|
(scale
|
||||||
|
:min 0
|
||||||
|
:max 100
|
||||||
|
:value battery_percent
|
||||||
|
:orientation "h")))
|
||||||
|
(revealer
|
||||||
|
:reveal battery_reveal
|
||||||
|
:transition "slideup"
|
||||||
|
:duration "350ms"
|
||||||
|
:valign "center"
|
||||||
|
(box
|
||||||
|
:valign "center"
|
||||||
|
:class "center_revealers"
|
||||||
|
(label
|
||||||
|
:halign "center"
|
||||||
|
:text battery_time))
|
||||||
|
)))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;; Right widgets
|
||||||
|
(defwidget widgets_right []
|
||||||
|
(eventbox
|
||||||
|
:onhover "${eww} update right_bg=\"#43013b\""
|
||||||
|
:onhoverlost "${eww} update right_bg=\"#120010\""
|
||||||
|
(box
|
||||||
|
:spacing 0
|
||||||
|
:space-evenly "false"
|
||||||
|
:class "bars"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "fill"
|
||||||
|
:hexpand "false"
|
||||||
|
:style "background-color: ${right_bg}"
|
||||||
|
(power_button)
|
||||||
|
(time)
|
||||||
|
(keyboard)
|
||||||
|
)))
|
||||||
|
|
||||||
|
(defwidget power_button []
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
:tooltip "Logout options"
|
||||||
|
(button
|
||||||
|
:class "power_button"
|
||||||
|
:valign "center"
|
||||||
|
:onclick "~/.bscripts/rofi.sh outopts"
|
||||||
|
"")))
|
||||||
|
|
||||||
|
(defwidget time []
|
||||||
|
(eventbox
|
||||||
|
:tooltip "Current time"
|
||||||
|
:onhover "${eww} update date_reveal=true"
|
||||||
|
:onhoverlost "${eww} update date_reveal=false"
|
||||||
|
:cursor "pointer"
|
||||||
|
(button
|
||||||
|
:onclick "scripts/popup_calendar"
|
||||||
|
(box
|
||||||
|
:class "time_box"
|
||||||
|
:space-evenly "false"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "center"
|
||||||
|
:halign "fill"
|
||||||
|
(label
|
||||||
|
:valign "center"
|
||||||
|
:class "time"
|
||||||
|
:markup "<span font-weight=\"heavy\">${hour}</span><span font-weight=\"heavy\">:${minutes}</span><span font-size=\"xx-small\">${type}</span>" )
|
||||||
|
(revealer
|
||||||
|
:reveal date_reveal
|
||||||
|
:transition "slideright"
|
||||||
|
:duration "350ms"
|
||||||
|
:valign "fill"
|
||||||
|
(label
|
||||||
|
:valign "fill"
|
||||||
|
:class "date"
|
||||||
|
:markup "<span font-size=\"xx-small\">${date}</span>"
|
||||||
|
))))))
|
||||||
|
|
||||||
|
(defwidget keyboard []
|
||||||
|
(box
|
||||||
|
:class "kb_box"
|
||||||
|
:orientation "h"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "center"
|
||||||
|
"|"
|
||||||
|
(box
|
||||||
|
:orientation "v"
|
||||||
|
:space-evenly "false"
|
||||||
|
:valign "fill"
|
||||||
|
:halign "center"
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
:tooltip "Change layout to US english"
|
||||||
|
(button
|
||||||
|
:class "kb_button_us"
|
||||||
|
:onclick "scripts/kb_layouts set us"
|
||||||
|
:style "color: ${us_color}"
|
||||||
|
:valign "center"
|
||||||
|
"US"))
|
||||||
|
(eventbox
|
||||||
|
:cursor "pointer"
|
||||||
|
:tooltip "Change layout to US spanish"
|
||||||
|
(button
|
||||||
|
:class "kb_button_es"
|
||||||
|
:onclick "scripts/kb_layouts set es"
|
||||||
|
:style "color: ${es_color}"
|
||||||
|
:valign "center"
|
||||||
|
"ES")
|
||||||
|
))))
|
||||||
BIN
.config/eww/mybar/images/background.png
Normal file
BIN
.config/eww/mybar/images/background.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.8 KiB |
BIN
.config/eww/mybar/images/battery_0.png
Normal file
BIN
.config/eww/mybar/images/battery_0.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_10.png
Normal file
BIN
.config/eww/mybar/images/battery_10.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_100.png
Normal file
BIN
.config/eww/mybar/images/battery_100.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_20.png
Normal file
BIN
.config/eww/mybar/images/battery_20.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_30.png
Normal file
BIN
.config/eww/mybar/images/battery_30.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_40.png
Normal file
BIN
.config/eww/mybar/images/battery_40.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_50.png
Normal file
BIN
.config/eww/mybar/images/battery_50.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
BIN
.config/eww/mybar/images/battery_60.png
Normal file
BIN
.config/eww/mybar/images/battery_60.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
BIN
.config/eww/mybar/images/battery_70.png
Normal file
BIN
.config/eww/mybar/images/battery_70.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
BIN
.config/eww/mybar/images/battery_80.png
Normal file
BIN
.config/eww/mybar/images/battery_80.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
BIN
.config/eww/mybar/images/battery_90.png
Normal file
BIN
.config/eww/mybar/images/battery_90.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/battery_charging.png
Normal file
BIN
.config/eww/mybar/images/battery_charging.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 23 KiB |
BIN
.config/eww/mybar/images/cpu.png
Normal file
BIN
.config/eww/mybar/images/cpu.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
BIN
.config/eww/mybar/images/currmedia.png
Normal file
BIN
.config/eww/mybar/images/currmedia.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 221 KiB |
BIN
.config/eww/mybar/images/disk.png
Normal file
BIN
.config/eww/mybar/images/disk.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 19 KiB |
BIN
.config/eww/mybar/images/music.png
Normal file
BIN
.config/eww/mybar/images/music.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 111 KiB |
BIN
.config/eww/mybar/images/ram.png
Normal file
BIN
.config/eww/mybar/images/ram.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
.config/eww/mybar/images/temperature.png
Normal file
BIN
.config/eww/mybar/images/temperature.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
17
.config/eww/mybar/polybar_tray.ini
Normal file
17
.config/eww/mybar/polybar_tray.ini
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
;tray
|
||||||
|
[bar/tray]
|
||||||
|
width = 10
|
||||||
|
height = 40
|
||||||
|
offset-x = 1865
|
||||||
|
offset-y = 25
|
||||||
|
tray-position = right
|
||||||
|
tray-detached = true
|
||||||
|
tray-offset-x = 20
|
||||||
|
background = ${xrdb:color8:#222}
|
||||||
|
|
||||||
|
modules-right = filler
|
||||||
|
|
||||||
|
[module/filler]
|
||||||
|
type = custom/text
|
||||||
|
format = " "
|
||||||
|
|
||||||
100
.config/eww/mybar/scripts/battery_info
Normal file
100
.config/eww/mybar/scripts/battery_info
Normal file
@ -0,0 +1,100 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
notify()
|
||||||
|
{
|
||||||
|
case $1 in
|
||||||
|
charging)
|
||||||
|
if [[ $lstate -ne 3 ]]
|
||||||
|
then
|
||||||
|
echo 3 > /tmp/batstate
|
||||||
|
pop_report -d 800 -m "<span style=\"font-family: CartographCF;\">Charging</span><font size=\"-1\"> ﮣ</font>$icon" -t battery_charging -o "font-size: 70px" "font-family: CaskaydiaCoveNerdFont" "padding-right: 30px"
|
||||||
|
fi;
|
||||||
|
;;
|
||||||
|
high)
|
||||||
|
echo 2 > /tmp/batstate
|
||||||
|
;;
|
||||||
|
mid)
|
||||||
|
if [[ $lstate -gt 1 ]]
|
||||||
|
then
|
||||||
|
echo 1 > /tmp/batstate
|
||||||
|
~/.ricing/notify-send.sh "Warning: $bat_level% Battery left" -i "~/Pictures/Important/icons/other/battery_mid.png" -t 10000 --replace=550 -u critical
|
||||||
|
fi;
|
||||||
|
;;
|
||||||
|
low)
|
||||||
|
if [[ $lstate -gt 0 ]]
|
||||||
|
then
|
||||||
|
echo 0 > /tmp/batstate
|
||||||
|
pop_report -m "Battery is critically low" -d 5000 -t battery_low
|
||||||
|
fi;
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
|
||||||
|
# Set necessary info
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
lstate=`cat /tmp/batstate`
|
||||||
|
acpi=`acpi -b`
|
||||||
|
bat_level_all=`echo "$acpi" | grep -v "unavailable" | grep -E -o "[0-9][0-9]?[0-9]?%"`
|
||||||
|
bat_level=`echo "$bat_level_all" | awk -F"%" 'BEGIN{tot=0;i=0} {i++; tot+=$1} END{printf("%d%%\n", tot/i)}'`
|
||||||
|
bat_level=`printf ${bat_level%?}`
|
||||||
|
discharging=`echo "$acpi" | grep -w 0: | grep -c Discharging`
|
||||||
|
time=`echo "$acpi" | awk '{printf $5}'`
|
||||||
|
time=${time::-3}
|
||||||
|
|
||||||
|
if [[ $discharging -eq 0 ]]
|
||||||
|
then
|
||||||
|
notify charging > /dev/null
|
||||||
|
$eww update battery_image="images/battery_charging.png"
|
||||||
|
else
|
||||||
|
if [[ $bat_level -le 10 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_10.png"
|
||||||
|
notify low > /dev/null
|
||||||
|
elif [[ $bat_level -le 20 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_20.png"
|
||||||
|
notify mid > /dev/null
|
||||||
|
elif [[ $bat_level -le 30 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_30.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
elif [[ $bat_level -le 40 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_40.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
elif [[ $bat_level -le 50 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_50.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
elif [[ $bat_level -le 60 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_60.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
elif [[ $bat_level -le 70 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_70.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
elif [[ $bat_level -le 80 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_80.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
elif [[ $bat_level -le 90 ]]
|
||||||
|
then
|
||||||
|
$eww update battery_image="images/battery_90.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
else
|
||||||
|
$eww update battery_image="images/battery_100.png"
|
||||||
|
notify high > /dev/null
|
||||||
|
fi;
|
||||||
|
fi;
|
||||||
|
|
||||||
|
case $1 in
|
||||||
|
"--time")
|
||||||
|
[[ $time != "" && $time != "discharg" ]] && echo "$time" || echo "00:00"
|
||||||
|
;;
|
||||||
|
"--percentage")
|
||||||
|
echo "$bat_level"
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
true
|
||||||
|
;;
|
||||||
|
esac
|
||||||
21
.config/eww/mybar/scripts/cpu_info
Normal file
21
.config/eww/mybar/scripts/cpu_info
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
cpu_usage=$(mpstat 1 1 | awk '/Average:/ {printf("%s\n", $(NF-9))}')
|
||||||
|
|
||||||
|
cpu_whole=`printf ${cpu_usage%.*}`
|
||||||
|
|
||||||
|
if [[ $cpuwhole -ge 80 ]]
|
||||||
|
then
|
||||||
|
true
|
||||||
|
#update var
|
||||||
|
elif [[ $cpuwhole -ge 70 ]]
|
||||||
|
then
|
||||||
|
true
|
||||||
|
#update var
|
||||||
|
else
|
||||||
|
true
|
||||||
|
#update var
|
||||||
|
fi;
|
||||||
|
|
||||||
|
echo $cpu_usage
|
||||||
|
|
||||||
|
|
||||||
20
.config/eww/mybar/scripts/disk_info
Normal file
20
.config/eww/mybar/scripts/disk_info
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
raw=`df -h / | grep /dev/`
|
||||||
|
|
||||||
|
case $1 in
|
||||||
|
"--used" )
|
||||||
|
value=`echo $raw | awk '{printf $3}'`
|
||||||
|
;;
|
||||||
|
"--all" )
|
||||||
|
value=`echo $raw | awk '{printf $2}'`
|
||||||
|
;;
|
||||||
|
"--free" )
|
||||||
|
value=`echo $raw | awk '{printf $4}'`
|
||||||
|
;;
|
||||||
|
* )
|
||||||
|
true
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
value=${value::-1}
|
||||||
|
echo $value
|
||||||
53
.config/eww/mybar/scripts/kb_layouts
Normal file
53
.config/eww/mybar/scripts/kb_layouts
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
set -e
|
||||||
|
|
||||||
|
get_kbdlayout() {
|
||||||
|
layout=$(setxkbmap -query | grep -oP 'layout:\s*\K([\w,]+)')
|
||||||
|
variant=$(setxkbmap -query | grep -oP 'variant:\s*\K(\w+)')
|
||||||
|
echo "$layout" "$variant"
|
||||||
|
}
|
||||||
|
|
||||||
|
set_kbdlayout() {
|
||||||
|
eval "array=($1)"
|
||||||
|
setxkbmap "${array[@]}"
|
||||||
|
if [[ "${array[@]}" == "us" ]]
|
||||||
|
then
|
||||||
|
$eww update us_color="rgba(230,218,252,1)"
|
||||||
|
$eww update es_color="rgba(230,218,252,0.4)"
|
||||||
|
else
|
||||||
|
$eww update us_color="rgba(230,218,252,0.4)"
|
||||||
|
$eww update es_color="rgba(230,218,252,1)"
|
||||||
|
fi;
|
||||||
|
}
|
||||||
|
|
||||||
|
cycle() {
|
||||||
|
current_layout=$(get_kbdlayout | xargs)
|
||||||
|
layouts=("$@" "$1") # add the first one at the end so that it cycles
|
||||||
|
index=0
|
||||||
|
while [ "${layouts[$index]}" != "$current_layout" ] && [ $index -lt "${#layouts[@]}" ]; do index=$[index +1]; done
|
||||||
|
next_index=$[index +1]
|
||||||
|
next_layout=${layouts[$next_index]}
|
||||||
|
set_kbdlayout "$next_layout"
|
||||||
|
upper=$(echo $next_layout | tr '[:lower:]' '[:upper:]')
|
||||||
|
|
||||||
|
pop_report -m $upper -t keyboard > /dev/null
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
subcommand="$1"
|
||||||
|
shift || (echo "Please specify one of: get, set <layout>, cycle <layout1> <layout2> ... <layoutN>, i3status" && exit)
|
||||||
|
|
||||||
|
case $subcommand in
|
||||||
|
"get")
|
||||||
|
echo -n $(get_kbdlayout)
|
||||||
|
;;
|
||||||
|
"set")
|
||||||
|
set_kbdlayout "$1"
|
||||||
|
;;
|
||||||
|
"cycle")
|
||||||
|
cycle "$@"
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
25
.config/eww/mybar/scripts/layout
Normal file
25
.config/eww/mybar/scripts/layout
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
|
||||||
|
bspc subscribe desktop_focus desktop_layout | while read line; do
|
||||||
|
case `bspc query -T -d | jq -r .layout` in
|
||||||
|
tall)
|
||||||
|
echo "Tall"
|
||||||
|
;;
|
||||||
|
tiled)
|
||||||
|
$eww update layout_button=
|
||||||
|
;;
|
||||||
|
grid)
|
||||||
|
echo "Grid"
|
||||||
|
;;
|
||||||
|
monocle)
|
||||||
|
$eww update layout_button=
|
||||||
|
;;
|
||||||
|
even)
|
||||||
|
echo "Even"
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
echo "?"
|
||||||
|
;;
|
||||||
|
esac;
|
||||||
|
done
|
||||||
76
.config/eww/mybar/scripts/media_control
Normal file
76
.config/eww/mybar/scripts/media_control
Normal file
@ -0,0 +1,76 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
# Selects player based on if they're playing or if they have a cover
|
||||||
|
# Note: Being played takes priority
|
||||||
|
select_player () {
|
||||||
|
playingplayer=""
|
||||||
|
coverplayer=""
|
||||||
|
totalplayer=""
|
||||||
|
for player in "$player"s
|
||||||
|
do
|
||||||
|
art=`playerctl --player="$player" metadata mpris:artUrl 2> /dev/null`
|
||||||
|
status=`playerctl --player="$player" status 2> /dev/null`
|
||||||
|
[[ $status == "Playing" ]] && playingplayer="$player"
|
||||||
|
[[ $art != "" ]] && coverplayer="$player"
|
||||||
|
[[ $status == "Playing" && $art != "" ]] && totalplayer="$player"
|
||||||
|
done;
|
||||||
|
player=""
|
||||||
|
[[ ! -z $coverplayer ]] && player=$coverplayer
|
||||||
|
[[ ! -z $playingplayer ]] && player=$playingplayer
|
||||||
|
[[ ! -z $totalplayer ]] && player=$totalplayer
|
||||||
|
}
|
||||||
|
|
||||||
|
# Get general info
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
players=`playerctl -l`
|
||||||
|
select_player
|
||||||
|
status=`playerctl --player="$player" status`
|
||||||
|
[[ $status == "" ]] && exit
|
||||||
|
|
||||||
|
# Toggle play pause and update status accordingly
|
||||||
|
toggle () {
|
||||||
|
[[ $status == "Playing" ]] && $eww update media_status=""|| $eww update media_status=""
|
||||||
|
playerctl --player="$player" play-pause
|
||||||
|
}
|
||||||
|
|
||||||
|
# Seek to an specific time
|
||||||
|
seek () {
|
||||||
|
seekt="$1"
|
||||||
|
position=`playerctl --player=$player position`
|
||||||
|
if [[ $? -eq 0 ]] && [[ `python -c "print(round(abs($seekt-$position)))"` -gt 3 ]]
|
||||||
|
then
|
||||||
|
playerctl --player=$player position $seekt
|
||||||
|
fi;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Rewind or fast forward 5 seconds
|
||||||
|
move () {
|
||||||
|
move="$1"
|
||||||
|
startpos=`playerctl --player=$player position`
|
||||||
|
length=`playerctl --player="$player" metadata mpris:length`
|
||||||
|
length=`python -c "print($length/1000000)"`
|
||||||
|
if [[ $? -eq 0 ]]
|
||||||
|
then
|
||||||
|
endpos=`python -c "print(min($length, max(0, $startpos $move)))"`
|
||||||
|
playerctl --player=$player position $endpos
|
||||||
|
fi;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
case $1 in
|
||||||
|
--toggle )
|
||||||
|
toggle
|
||||||
|
;;
|
||||||
|
--seek )
|
||||||
|
seek $2
|
||||||
|
;;
|
||||||
|
--move )
|
||||||
|
move $2
|
||||||
|
;;
|
||||||
|
--next )
|
||||||
|
playerctl --player=$player next
|
||||||
|
;;
|
||||||
|
--prev )
|
||||||
|
playerctl --player=$player previous
|
||||||
|
;;
|
||||||
|
esac
|
||||||
107
.config/eww/mybar/scripts/media_info
Normal file
107
.config/eww/mybar/scripts/media_info
Normal file
@ -0,0 +1,107 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
# Selects player based on if they're playing or if they have a cover
|
||||||
|
# Note: Being played takes priority
|
||||||
|
select_player () {
|
||||||
|
playingplayer=""
|
||||||
|
coverplayer=""
|
||||||
|
totalplayer=""
|
||||||
|
playerctl -l | while read -r player;
|
||||||
|
do
|
||||||
|
art=`playerctl --player="$player" metadata mpris:artUrl 2> /dev/null`
|
||||||
|
status=`playerctl --player="$player" status 2> /dev/null`
|
||||||
|
[[ $status == "Playing" ]] && playingplayer="$player"
|
||||||
|
[[ $art != "" ]] && coverplayer="$player"
|
||||||
|
[[ $status == "Playing" && $art != "" ]] && totalplayer="$player"
|
||||||
|
[[ ! -z $coverplayer ]] && player="$coverplayer"
|
||||||
|
[[ ! -z $playingplayer ]] && player="$playingplayer"
|
||||||
|
[[ ! -z $totalplayer ]] && player="$totalplayer"
|
||||||
|
echo "$player"
|
||||||
|
done;
|
||||||
|
}
|
||||||
|
|
||||||
|
update_cover () {
|
||||||
|
if [[ -z $newimg ]]
|
||||||
|
then
|
||||||
|
newimg="$imgdir/music.png"
|
||||||
|
cp "$newimg" "$imgdir/currmedia.png"
|
||||||
|
echo "Image is unknown, using template"
|
||||||
|
elif [[ `echo $newimg | grep -c "file://"` -gt 0 ]]
|
||||||
|
then
|
||||||
|
cp "`echo $newimg | sed 's/file:\/\///g'`" "$imgdir/currmedia.png"
|
||||||
|
echo "Image is a file, succesfully coppied"
|
||||||
|
else
|
||||||
|
curl "$newimg" -o "$imgdir/currmedia.png" -s
|
||||||
|
echo "Image is an url, succesfully downloaded"
|
||||||
|
fi;
|
||||||
|
$eww update cover="$imgdir/currmedia.png"
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
imgdir="$HOME/.config/eww/mybar/images"
|
||||||
|
lastimg="none"
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
|
||||||
|
while true; do
|
||||||
|
if [[ ! -z `playerctl status` ]]
|
||||||
|
then
|
||||||
|
player=`select_player | tail -1`
|
||||||
|
status=""
|
||||||
|
status=`playerctl --player="$player" status`
|
||||||
|
echo "Selected $player as player"
|
||||||
|
|
||||||
|
# Update status button
|
||||||
|
if [[ $status == "Playing" ]]
|
||||||
|
then
|
||||||
|
$eww update media_status=""
|
||||||
|
else
|
||||||
|
$eww update media_status=""
|
||||||
|
fi;
|
||||||
|
|
||||||
|
# Update title and artist
|
||||||
|
title=`playerctl --player="$player" metadata xesam:title`
|
||||||
|
[[ -z $title ]] && title="No title"
|
||||||
|
title_parsed=`$HOME/.config/eww/mybar/scripts/parse_jp "$title"`
|
||||||
|
$eww update title="$title"
|
||||||
|
$eww update title_parsed="$title_parsed"
|
||||||
|
|
||||||
|
artist=`playerctl --player="$player" metadata xesam:artist`
|
||||||
|
[[ -z $artist ]] && artist="No artist"
|
||||||
|
artist_parsed=`$HOME/.config/eww/mybar/scripts/parse_jp "$artist"`
|
||||||
|
$eww update artist="$artist"
|
||||||
|
$eww update artist_parsed="$artist_parsed"
|
||||||
|
|
||||||
|
# Update length and position
|
||||||
|
position=`playerctl --player="$player" position`
|
||||||
|
[[ -z $position ]] && position=0
|
||||||
|
$eww update position="$position"
|
||||||
|
length=`playerctl --player="$player" metadata mpris:length`
|
||||||
|
length=`python -c "print($length/1000000)"`
|
||||||
|
[[ -z $length ]] && length=100
|
||||||
|
$eww update length="$length"
|
||||||
|
|
||||||
|
newimg=`playerctl --player="$player" metadata mpris:artUrl 2> /dev/null\
|
||||||
|
| sed "s/https:\/\/i.ytimg.com\/vi\//https:\/\/img.youtube.com\/vi\//g"\
|
||||||
|
| sed "s/hq/maxres/g"`
|
||||||
|
|
||||||
|
if [[ "$newimg" != "$lastimg" ]]
|
||||||
|
then
|
||||||
|
echo "New image $newimg detected"
|
||||||
|
lastimg=$newimg
|
||||||
|
update_cover&
|
||||||
|
fi;
|
||||||
|
else
|
||||||
|
# Update everything to default values
|
||||||
|
$eww update media_status=""
|
||||||
|
$eww update title_parsed="No title"
|
||||||
|
$eww update title="No title"
|
||||||
|
$eww update artist="No artist"
|
||||||
|
$eww update artist_parsed="No artist"
|
||||||
|
$eww update position=0
|
||||||
|
$eww update length=100
|
||||||
|
$eww update cover="images/music.png"
|
||||||
|
lastimg=""
|
||||||
|
fi;
|
||||||
|
sleep 1
|
||||||
|
echo ""
|
||||||
|
done;
|
||||||
44
.config/eww/mybar/scripts/parse_jp
Normal file
44
.config/eww/mybar/scripts/parse_jp
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
#!/bin/python3
|
||||||
|
|
||||||
|
import sys
|
||||||
|
# -*- coding:utf-8 -*-
|
||||||
|
|
||||||
|
ranges = [
|
||||||
|
{"from": ord(u"\u3300"), "to": ord(u"\u33ff")}, # compatibility ideographs
|
||||||
|
{"from": ord(u"\ufe30"), "to": ord(u"\ufe4f")}, # compatibility ideographs
|
||||||
|
{"from": ord(u"\uf900"), "to": ord(u"\ufaff")}, # compatibility ideographs
|
||||||
|
{"from": ord(u"\U0002F800"), "to": ord(u"\U0002fa1f")}, # compatibility ideographs
|
||||||
|
{'from': ord(u'\u3040'), 'to': ord(u'\u309f')}, # Japanese Hiragana
|
||||||
|
{"from": ord(u"\u30a0"), "to": ord(u"\u30ff")}, # Japanese Katakana
|
||||||
|
{"from": ord(u"\u2e80"), "to": ord(u"\u2eff")}, # cjk radicals supplement
|
||||||
|
{"from": ord(u"\u4e00"), "to": ord(u"\u9fff")},
|
||||||
|
{"from": ord(u"\u3400"), "to": ord(u"\u4dbf")},
|
||||||
|
{"from": ord(u"\U00020000"), "to": ord(u"\U0002a6df")},
|
||||||
|
{"from": ord(u"\U0002a700"), "to": ord(u"\U0002b73f")},
|
||||||
|
{"from": ord(u"\U0002b740"), "to": ord(u"\U0002b81f")},
|
||||||
|
{"from": ord(u"\U0002b820"), "to": ord(u"\U0002ceaf")} # included as of Unicode 8.0
|
||||||
|
]
|
||||||
|
|
||||||
|
def is_cjk(char):
|
||||||
|
return any([range["from"] <= ord(char) <= range["to"] for range in ranges])
|
||||||
|
|
||||||
|
def cjk_substrings(string):
|
||||||
|
i = 0
|
||||||
|
while i<len(string):
|
||||||
|
if is_cjk(string[i]):
|
||||||
|
start = i
|
||||||
|
try:
|
||||||
|
while is_cjk(string[i]): i += 1
|
||||||
|
yield string[start:i]
|
||||||
|
except:
|
||||||
|
yield string[start:i]
|
||||||
|
i += 1
|
||||||
|
|
||||||
|
ogstring = str(sys.argv[1])
|
||||||
|
string = ogstring[0:20]
|
||||||
|
if len(ogstring) > len(string):
|
||||||
|
string = string + "…"
|
||||||
|
for sub in cjk_substrings(string):
|
||||||
|
string = string.replace(sub, "<span font-family= \"M PLUS 1\" font-size=\"x-small\" rise=\"3pt\" font-weight=\"bold\">" + sub + "</span>")
|
||||||
|
print(string)
|
||||||
|
|
||||||
8
.config/eww/mybar/scripts/popup_calendar
Normal file
8
.config/eww/mybar/scripts/popup_calendar
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
|
||||||
|
$eww close calendar || (\
|
||||||
|
$eww update day="`scripts/time_info --day`"; \
|
||||||
|
$eww update month="`scripts/time_info --month`"; \
|
||||||
|
$eww update year="`scripts/time_info --year`"; \
|
||||||
|
$eww open calendar )
|
||||||
5
.config/eww/mybar/scripts/popup_music
Normal file
5
.config/eww/mybar/scripts/popup_music
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar"
|
||||||
|
|
||||||
|
$eww close music || (\
|
||||||
|
$eww open music )
|
||||||
16
.config/eww/mybar/scripts/ram_info
Normal file
16
.config/eww/mybar/scripts/ram_info
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
case $1 in
|
||||||
|
"--used")
|
||||||
|
free -m | grep Mem | awk '{printf $3/100}'
|
||||||
|
;;
|
||||||
|
"--all")
|
||||||
|
free -m | grep Mem | awk '{printf $2/100}'
|
||||||
|
;;
|
||||||
|
"--parsed")
|
||||||
|
free -h | grep Mem | awk '{printf $3 "/" $2}'
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
true
|
||||||
|
;;
|
||||||
|
esac
|
||||||
4
.config/eww/mybar/scripts/temperature_info
Normal file
4
.config/eww/mybar/scripts/temperature_info
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
temp=$(sensors | grep 'Package id 0:\|Tdie' | grep ':[ ]*+[0-9]*.[0-9]*°C' -o | grep '[0-9]*.[0-9]*°C' -o)
|
||||||
|
temp=${temp::-4}
|
||||||
|
echo "$temp"
|
||||||
29
.config/eww/mybar/scripts/time_info
Normal file
29
.config/eww/mybar/scripts/time_info
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
case $1 in
|
||||||
|
"--hour")
|
||||||
|
date "+%I"
|
||||||
|
;;
|
||||||
|
"--minutes")
|
||||||
|
date "+%M"
|
||||||
|
;;
|
||||||
|
"--type")
|
||||||
|
date "+%p"
|
||||||
|
;;
|
||||||
|
"--date")
|
||||||
|
date "+ %a, %b %d"
|
||||||
|
;;
|
||||||
|
"--day")
|
||||||
|
date "+%d"
|
||||||
|
;;
|
||||||
|
"--month")
|
||||||
|
$(( `date "+%m"` -1 ))
|
||||||
|
;;
|
||||||
|
"--year")
|
||||||
|
date "+%y"
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
true
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
21
.config/eww/mybar/scripts/workspaces
Normal file
21
.config/eww/mybar/scripts/workspaces
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
total=`xdotool get_num_desktops`
|
||||||
|
icon1=○
|
||||||
|
icon2=◎
|
||||||
|
icon3=●
|
||||||
|
eww="eww -c $HOME/.config/eww/mybar/"
|
||||||
|
|
||||||
|
bspc subscribe desktop_focus node_add node_remove 2> /dev/null | while read line; do
|
||||||
|
currwp=$((`xdotool get_desktop`))
|
||||||
|
for (( i = 0; i < $total; i++));
|
||||||
|
do
|
||||||
|
if [[ $i -eq $currwp ]]
|
||||||
|
then
|
||||||
|
$eww update wp$i=$icon3
|
||||||
|
else
|
||||||
|
[[ `bspc query -N -d $i | wc -l` -gt 0 ]] && $eww update wp$i=$icon2 || $eww update wp$i=$icon1
|
||||||
|
fi;
|
||||||
|
done
|
||||||
|
echo cycle
|
||||||
|
done
|
||||||
@ -14,24 +14,27 @@ xsetroot -cursor_name left_ptr &
|
|||||||
|
|
||||||
# background
|
# background
|
||||||
#feh --bg-fill /usr/share/backgrounds/arcolinux/arco-wallpaper.jpg &
|
#feh --bg-fill /usr/share/backgrounds/arcolinux/arco-wallpaper.jpg &
|
||||||
dwall -p -s firewatch
|
#dwall -p -s firewatch
|
||||||
|
~/scripts/random_wallpaper.sh
|
||||||
|
|
||||||
# other apps
|
# other apps
|
||||||
run variety &
|
#run variety &
|
||||||
run nm-applet &
|
run nm-applet &
|
||||||
run pamac-tray &
|
#run pamac-tray &
|
||||||
run xfce4-power-manager &
|
#run xfce4-power-manager &
|
||||||
run volumeicon &
|
run volumeicon &
|
||||||
run bitwarden-desktop &
|
#run bitwarden-desktop &
|
||||||
numlockx on &
|
#numlockx on &
|
||||||
blueberry-tray &
|
#blueberry-tray &
|
||||||
|
run lxsession &
|
||||||
|
|
||||||
fcitx &
|
fcitx &
|
||||||
picom -b --config $HOME/.xmonad/scripts/picom.conf &
|
picom -b --config $HOME/.xmonad/scripts/picom.conf &
|
||||||
/usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1 &
|
#/usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1 &
|
||||||
/usr/lib/xfce4/notifyd/xfce4-notifyd &
|
#/usr/lib/xfce4/notifyd/xfce4-notifyd &
|
||||||
#seadrive-gui &
|
#seadrive-gui &
|
||||||
|
|
||||||
trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 0 --transparent true --alpha 0 --tint 0x282c34 --height 16 &
|
|
||||||
|
|
||||||
emacs --daemon &
|
emacs --daemon &
|
||||||
|
|
||||||
|
sleep 2
|
||||||
|
trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 0 --transparent true --alpha 0 --tint 0x282c34 --height 16 &
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
-- Base
|
-- Base
|
||||||
import XMonad
|
import XMonad
|
||||||
import System.Directory
|
import System.Directory
|
||||||
import System.IO (hPutStrLn)
|
import System.IO (hClose, hPutStr, hPutStrLn)
|
||||||
import System.Exit (exitSuccess)
|
import System.Exit (exitSuccess)
|
||||||
import qualified XMonad.StackSet as W
|
import qualified XMonad.StackSet as W
|
||||||
|
|
||||||
@ -27,10 +27,13 @@ import qualified Data.Map as M
|
|||||||
-- Hooks
|
-- Hooks
|
||||||
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
|
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
|
||||||
import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs.
|
import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs.
|
||||||
import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..))
|
import XMonad.Hooks.ManageDocks (avoidStruts, docks, manageDocks, ToggleStruts(..))
|
||||||
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
|
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat)
|
||||||
import XMonad.Hooks.ServerMode
|
import XMonad.Hooks.ServerMode
|
||||||
import XMonad.Hooks.SetWMName
|
import XMonad.Hooks.SetWMName
|
||||||
|
import XMonad.Hooks.StatusBar
|
||||||
|
import XMonad.Hooks.StatusBar.PP
|
||||||
|
import XMonad.Hooks.WindowSwallowing
|
||||||
import XMonad.Hooks.WorkspaceHistory
|
import XMonad.Hooks.WorkspaceHistory
|
||||||
|
|
||||||
-- Layouts
|
-- Layouts
|
||||||
@ -45,7 +48,6 @@ import XMonad.Layout.ThreeColumns
|
|||||||
-- Layouts modifiers
|
-- Layouts modifiers
|
||||||
import XMonad.Layout.LayoutModifier
|
import XMonad.Layout.LayoutModifier
|
||||||
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
|
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
|
||||||
import XMonad.Layout.Magnifier
|
|
||||||
import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
|
import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
|
||||||
import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
|
import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
|
||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.NoBorders
|
||||||
@ -55,16 +57,56 @@ import XMonad.Layout.Simplest
|
|||||||
import XMonad.Layout.Spacing
|
import XMonad.Layout.Spacing
|
||||||
import XMonad.Layout.SubLayouts
|
import XMonad.Layout.SubLayouts
|
||||||
import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
|
import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
|
||||||
|
import XMonad.Layout.WindowNavigation
|
||||||
import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
|
import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
|
||||||
import qualified XMonad.Layout.MultiToggle as MT (Toggle(..))
|
import qualified XMonad.Layout.MultiToggle as MT (Toggle(..))
|
||||||
|
|
||||||
-- Utilities
|
-- Utilities
|
||||||
import XMonad.Util.Dmenu
|
import XMonad.Util.Dmenu
|
||||||
import XMonad.Util.EZConfig (additionalKeysP)
|
import XMonad.Util.EZConfig (additionalKeysP, mkNamedKeymap)
|
||||||
|
import XMonad.Util.NamedActions
|
||||||
import XMonad.Util.NamedScratchpad
|
import XMonad.Util.NamedScratchpad
|
||||||
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
|
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
|
||||||
import XMonad.Util.SpawnOnce
|
import XMonad.Util.SpawnOnce
|
||||||
|
|
||||||
|
-- ColorScheme module (SET ONLY ONE!)
|
||||||
|
-- Possible choice are:
|
||||||
|
-- DoomOne
|
||||||
|
-- Dracula
|
||||||
|
-- GruvboxDark
|
||||||
|
-- MonokaiPro
|
||||||
|
-- Nord
|
||||||
|
-- OceanicNext
|
||||||
|
-- Palenight
|
||||||
|
-- SolarizedDark
|
||||||
|
-- SolarizedLight
|
||||||
|
-- TomorrowNight
|
||||||
|
|
||||||
|
colorScheme = "doom-one"
|
||||||
|
|
||||||
|
colorBack = "#282c34"
|
||||||
|
colorFore = "#bbc2cf"
|
||||||
|
|
||||||
|
color01 = "#1c1f24"
|
||||||
|
color02 = "#ff6c6b"
|
||||||
|
color03 = "#98be65"
|
||||||
|
color04 = "#da8548"
|
||||||
|
color05 = "#51afef"
|
||||||
|
color06 = "#c678dd"
|
||||||
|
color07 = "#5699af"
|
||||||
|
color08 = "#202328"
|
||||||
|
color09 = "#5b6268"
|
||||||
|
color10 = "#da8548"
|
||||||
|
color11 = "#4db5bd"
|
||||||
|
color12 = "#ecbe7b"
|
||||||
|
color13 = "#3071db"
|
||||||
|
color14 = "#a9a1e1"
|
||||||
|
color15 = "#46d9ff"
|
||||||
|
color16 = "#dfdfdf"
|
||||||
|
|
||||||
|
colorTrayer :: String
|
||||||
|
colorTrayer = "--tint 0x282c34"
|
||||||
|
|
||||||
myFont :: String
|
myFont :: String
|
||||||
myFont = "xft:NanumGothic:regular:size=9:antialias=true:hinting=true"
|
myFont = "xft:NanumGothic:regular:size=9:antialias=true:hinting=true"
|
||||||
|
|
||||||
@ -130,83 +172,7 @@ myStartupHook = do
|
|||||||
-- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh
|
-- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh
|
||||||
setWMName "LG3D"
|
setWMName "LG3D"
|
||||||
|
|
||||||
myColorizer :: Window -> Bool -> X (String, String)
|
-- Theme for showWName which prints current workspace when you change workspaces.
|
||||||
myColorizer = colorRangeFromClassName
|
|
||||||
(0x28,0x2c,0x34) -- lowest inactive bg
|
|
||||||
(0x28,0x2c,0x34) -- highest inactive bg
|
|
||||||
(0xc7,0x92,0xea) -- active bg
|
|
||||||
(0xc0,0xa7,0x9a) -- inactive fg
|
|
||||||
(0x28,0x2c,0x34) -- active fg
|
|
||||||
|
|
||||||
-- gridSelect menu layout
|
|
||||||
mygridConfig :: p -> GSConfig Window
|
|
||||||
mygridConfig colorizer = (buildDefaultGSConfig myColorizer)
|
|
||||||
{ gs_cellheight = 40
|
|
||||||
, gs_cellwidth = 200
|
|
||||||
, gs_cellpadding = 6
|
|
||||||
, gs_originFractX = 0.5
|
|
||||||
, gs_originFractY = 0.5
|
|
||||||
, gs_font = myFont
|
|
||||||
}
|
|
||||||
|
|
||||||
spawnSelected' :: [(String, String)] -> X ()
|
|
||||||
spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
|
|
||||||
where conf = def
|
|
||||||
{ gs_cellheight = 40
|
|
||||||
, gs_cellwidth = 200
|
|
||||||
, gs_cellpadding = 6
|
|
||||||
, gs_originFractX = 0.5
|
|
||||||
, gs_originFractY = 0.5
|
|
||||||
, gs_font = myFont
|
|
||||||
}
|
|
||||||
|
|
||||||
myAppGrid = [ --("Audacity", "audacity")
|
|
||||||
--, ("Deadbeef", "deadbeef")
|
|
||||||
("Vivaldi", "vivaldi-stable")
|
|
||||||
, ("Emacs", "emacsclient -c -a emacs")
|
|
||||||
, ("Firefox", "firefox")
|
|
||||||
, ("Vivaldi", "vivaldi-stable")
|
|
||||||
--, ("Geany", "geany")
|
|
||||||
--, ("Geary", "geary")
|
|
||||||
, ("Gimp", "gimp")
|
|
||||||
, ("Kdenlive", "kdenlive")
|
|
||||||
, ("LibreOffice Impress", "loimpress")
|
|
||||||
, ("LibreOffice Writer", "lowriter")
|
|
||||||
--, ("OBS", "obs")
|
|
||||||
, ("PCManFM", "pcmanfm")
|
|
||||||
]
|
|
||||||
|
|
||||||
myScratchPads :: [NamedScratchpad]
|
|
||||||
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
|
|
||||||
, NS "mocp" spawnMocp findMocp manageMocp
|
|
||||||
, NS "calculator" spawnCalc findCalc manageCalc
|
|
||||||
]
|
|
||||||
where
|
|
||||||
spawnTerm = myTerminal ++ " -t scratchpad"
|
|
||||||
findTerm = title =? "scratchpad"
|
|
||||||
manageTerm = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.9
|
|
||||||
w = 0.9
|
|
||||||
t = 0.95 -h
|
|
||||||
l = 0.95 -w
|
|
||||||
spawnMocp = myTerminal ++ " -t mocp -e mocp"
|
|
||||||
findMocp = title =? "mocp"
|
|
||||||
manageMocp = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.9
|
|
||||||
w = 0.9
|
|
||||||
t = 0.95 -h
|
|
||||||
l = 0.95 -w
|
|
||||||
spawnCalc = "qalculate-gtk"
|
|
||||||
findCalc = className =? "Qalculate-gtk"
|
|
||||||
manageCalc = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.5
|
|
||||||
w = 0.4
|
|
||||||
t = 0.75 -h
|
|
||||||
l = 0.70 -w
|
|
||||||
|
|
||||||
--Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
|
--Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
|
||||||
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
||||||
mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True
|
mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True
|
||||||
@ -220,53 +186,52 @@ mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
|
|||||||
-- limitWindows n sets maximum number of windows displayed for layout.
|
-- limitWindows n sets maximum number of windows displayed for layout.
|
||||||
-- mySpacing n sets the gap size around the windows.
|
-- mySpacing n sets the gap size around the windows.
|
||||||
tall = renamed [Replace "tall"]
|
tall = renamed [Replace "tall"]
|
||||||
|
$ limitWindows 5
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
$ addTabs shrinkText myTabTheme
|
$ addTabs shrinkText myTabTheme
|
||||||
$ subLayout [] (smartBorders Simplest)
|
$ subLayout [] (smartBorders Simplest)
|
||||||
$ limitWindows 12
|
|
||||||
$ mySpacing 8
|
|
||||||
$ ResizableTall 1 (3/100) (1/2) []
|
|
||||||
magnify = renamed [Replace "magnify"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ magnifier
|
|
||||||
$ limitWindows 12
|
|
||||||
$ mySpacing 8
|
$ mySpacing 8
|
||||||
$ ResizableTall 1 (3/100) (1/2) []
|
$ ResizableTall 1 (3/100) (1/2) []
|
||||||
monocle = renamed [Replace "monocle"]
|
monocle = renamed [Replace "monocle"]
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
$ addTabs shrinkText myTabTheme
|
$ addTabs shrinkText myTabTheme
|
||||||
$ subLayout [] (smartBorders Simplest)
|
$ subLayout [] (smartBorders Simplest)
|
||||||
$ limitWindows 20 Full
|
$ Full
|
||||||
floats = renamed [Replace "floats"]
|
floats = renamed [Replace "floats"]
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
$ limitWindows 20 simplestFloat
|
$ simplestFloat
|
||||||
grid = renamed [Replace "grid"]
|
grid = renamed [Replace "grid"]
|
||||||
|
$ limitWindows 9
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
$ addTabs shrinkText myTabTheme
|
$ addTabs shrinkText myTabTheme
|
||||||
$ subLayout [] (smartBorders Simplest)
|
$ subLayout [] (smartBorders Simplest)
|
||||||
$ limitWindows 12
|
|
||||||
$ mySpacing 8
|
$ mySpacing 8
|
||||||
$ mkToggle (single MIRROR)
|
$ mkToggle (single MIRROR)
|
||||||
$ Grid (16/10)
|
$ Grid (16/10)
|
||||||
spirals = renamed [Replace "spirals"]
|
spirals = renamed [Replace "spirals"]
|
||||||
|
$ limitWindows 9
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
$ addTabs shrinkText myTabTheme
|
$ addTabs shrinkText myTabTheme
|
||||||
$ subLayout [] (smartBorders Simplest)
|
$ subLayout [] (smartBorders Simplest)
|
||||||
$ mySpacing' 8
|
$ mySpacing' 8
|
||||||
$ spiral (6/7)
|
$ spiral (6/7)
|
||||||
threeCol = renamed [Replace "threeCol"]
|
threeCol = renamed [Replace "threeCol"]
|
||||||
|
$ limitWindows 7
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
$ addTabs shrinkText myTabTheme
|
$ addTabs shrinkText myTabTheme
|
||||||
$ subLayout [] (smartBorders Simplest)
|
$ subLayout [] (smartBorders Simplest)
|
||||||
$ limitWindows 7
|
|
||||||
$ ThreeCol 1 (3/100) (1/2)
|
$ ThreeCol 1 (3/100) (1/2)
|
||||||
threeRow = renamed [Replace "threeRow"]
|
threeRow = renamed [Replace "threeRow"]
|
||||||
|
$ limitWindows 7
|
||||||
$ smartBorders
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
$ addTabs shrinkText myTabTheme
|
$ addTabs shrinkText myTabTheme
|
||||||
$ subLayout [] (smartBorders Simplest)
|
$ subLayout [] (smartBorders Simplest)
|
||||||
$ limitWindows 7
|
|
||||||
-- Mirror takes a layout and rotates it by 90 degrees.
|
-- Mirror takes a layout and rotates it by 90 degrees.
|
||||||
-- So we are applying Mirror to the ThreeCol layout.
|
-- So we are applying Mirror to the ThreeCol layout.
|
||||||
$ Mirror
|
$ Mirror
|
||||||
@ -282,38 +247,40 @@ wideAccordion = renamed [Replace "wideAccordion"]
|
|||||||
|
|
||||||
-- setting colors for tabs layout and tabs sublayout.
|
-- setting colors for tabs layout and tabs sublayout.
|
||||||
myTabTheme = def { fontName = myFont
|
myTabTheme = def { fontName = myFont
|
||||||
, activeColor = "#46d9ff"
|
, activeColor = color15
|
||||||
, inactiveColor = "#313846"
|
, inactiveColor = color08
|
||||||
, activeBorderColor = "#46d9ff"
|
, activeBorderColor = color15
|
||||||
, inactiveBorderColor = "#282c34"
|
, inactiveBorderColor = colorBack
|
||||||
, activeTextColor = "#282c34"
|
, activeTextColor = colorBack
|
||||||
, inactiveTextColor = "#d0d0d0"
|
, inactiveTextColor = color16
|
||||||
}
|
}
|
||||||
|
|
||||||
-- Theme for showWName which prints current workspace when you change workspaces.
|
-- Theme for showWName which prints current workspace when you change workspaces.
|
||||||
myShowWNameTheme :: SWNConfig
|
myShowWNameTheme :: SWNConfig
|
||||||
myShowWNameTheme = def
|
myShowWNameTheme = def
|
||||||
{ swn_font = "xft:Ubuntu:bold:size=60"
|
{ swn_font = "xft:Ubuntu:bold:size=60"
|
||||||
, swn_fade = 1.0
|
, swn_fade = 1.0
|
||||||
, swn_bgcolor = "#1c1f24"
|
, swn_bgcolor = "#1c1f24"
|
||||||
, swn_color = "#ffffff"
|
, swn_color = "#ffffff"
|
||||||
}
|
}
|
||||||
|
|
||||||
-- The layout hook
|
-- The layout hook
|
||||||
myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats
|
myLayoutHook = avoidStruts
|
||||||
|
$ mouseResize
|
||||||
|
$ windowArrange
|
||||||
|
$ T.toggleLayouts floats
|
||||||
$ mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout
|
$ mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout
|
||||||
where
|
where
|
||||||
myDefaultLayout = withBorder myBorderWidth tall
|
myDefaultLayout = withBorder myBorderWidth tall
|
||||||
||| magnify
|
||| noBorders monocle
|
||||||
||| noBorders monocle
|
||| floats
|
||||||
||| floats
|
||| noBorders tabs
|
||||||
||| noBorders tabs
|
||| grid
|
||||||
||| grid
|
||| spirals
|
||||||
||| spirals
|
||| threeCol
|
||||||
||| threeCol
|
||| threeRow
|
||||||
||| threeRow
|
||| tallAccordion
|
||||||
||| tallAccordion
|
||| wideAccordion
|
||||||
||| wideAccordion
|
|
||||||
|
|
||||||
myWorkspaces = [" 1 ", " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ", " 8 ", " 9 "]
|
myWorkspaces = [" 1 ", " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ", " 8 ", " 9 "]
|
||||||
-- myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
|
-- myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
|
||||||
@ -347,7 +314,7 @@ myManageHook = composeAll
|
|||||||
--, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
|
--, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
|
||||||
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||||
, (className =? "steam" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
, (className =? "steam" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||||
] <+> namedScratchpadManageHook myScratchPads
|
]
|
||||||
|
|
||||||
myKeys :: [(String, X ())]
|
myKeys :: [(String, X ())]
|
||||||
myKeys =
|
myKeys =
|
||||||
@ -397,8 +364,8 @@ myKeys =
|
|||||||
--, ("M-S-i", incScreenSpacing 4) -- Increase screen spacing
|
--, ("M-S-i", incScreenSpacing 4) -- Increase screen spacing
|
||||||
|
|
||||||
-- Grid Select (CTR-g followed by a key)
|
-- Grid Select (CTR-g followed by a key)
|
||||||
, ("M-g g", spawnSelected' myAppGrid) -- grid select favorite apps
|
--, ("M-g g", spawnSelected' myAppGrid) -- grid select favorite apps
|
||||||
, ("M-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window
|
--, ("M-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window
|
||||||
--, ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window
|
--, ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window
|
||||||
|
|
||||||
-- Windows navigation
|
-- Windows navigation
|
||||||
@ -495,8 +462,7 @@ main = do
|
|||||||
, handleEventHook = serverModeEventHookCmd
|
, handleEventHook = serverModeEventHookCmd
|
||||||
<+> serverModeEventHook
|
<+> serverModeEventHook
|
||||||
<+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
|
<+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
|
||||||
<+> docksEventHook
|
-- <+> fullscreenEventHook -- this does NOT work right if using multi-monitors!
|
||||||
<+> fullscreenEventHook -- this does NOT work right if using multi-monitors!
|
|
||||||
, modMask = myModMask
|
, modMask = myModMask
|
||||||
, terminal = myTerminal
|
, terminal = myTerminal
|
||||||
, startupHook = myStartupHook
|
, startupHook = myStartupHook
|
||||||
@ -505,7 +471,7 @@ main = do
|
|||||||
, borderWidth = myBorderWidth
|
, borderWidth = myBorderWidth
|
||||||
, normalBorderColor = myNormColor
|
, normalBorderColor = myNormColor
|
||||||
, focusedBorderColor = myFocusColor
|
, focusedBorderColor = myFocusColor
|
||||||
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
|
, logHook = dynamicLogWithPP $ xmobarPP
|
||||||
-- the following variables beginning with 'pp' are settings for xmobar.
|
-- the following variables beginning with 'pp' are settings for xmobar.
|
||||||
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
|
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
|
||||||
-- >> hPutStrLn xmproc1 x -- xmobar on monitor 2
|
-- >> hPutStrLn xmproc1 x -- xmobar on monitor 2
|
||||||
|
|||||||
@ -3,546 +3,511 @@
|
|||||||
* Xmonad
|
* Xmonad
|
||||||
** Import
|
** Import
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
-- Base
|
-- Base
|
||||||
import XMonad
|
import XMonad
|
||||||
import System.Directory
|
import System.Directory
|
||||||
import System.IO (hPutStrLn)
|
import System.IO (hClose, hPutStr, hPutStrLn)
|
||||||
import System.Exit (exitSuccess)
|
import System.Exit (exitSuccess)
|
||||||
import qualified XMonad.StackSet as W
|
import qualified XMonad.StackSet as W
|
||||||
|
|
||||||
-- Actions
|
-- Actions
|
||||||
import XMonad.Actions.CopyWindow (kill1)
|
import XMonad.Actions.CopyWindow (kill1)
|
||||||
import XMonad.Actions.CycleWS (Direction1D(..), moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
|
import XMonad.Actions.CycleWS (Direction1D(..), moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
|
||||||
import XMonad.Actions.GridSelect
|
import XMonad.Actions.GridSelect
|
||||||
import XMonad.Actions.MouseResize
|
import XMonad.Actions.MouseResize
|
||||||
import XMonad.Actions.Promote
|
import XMonad.Actions.Promote
|
||||||
import XMonad.Actions.RotSlaves (rotSlavesDown, rotAllDown)
|
import XMonad.Actions.RotSlaves (rotSlavesDown, rotAllDown)
|
||||||
import XMonad.Actions.WindowGo (runOrRaise)
|
import XMonad.Actions.WindowGo (runOrRaise)
|
||||||
import XMonad.Actions.WithAll (sinkAll, killAll)
|
import XMonad.Actions.WithAll (sinkAll, killAll)
|
||||||
import qualified XMonad.Actions.Search as S
|
import qualified XMonad.Actions.Search as S
|
||||||
|
|
||||||
-- Data
|
-- Data
|
||||||
import Data.Char (isSpace, toUpper)
|
import Data.Char (isSpace, toUpper)
|
||||||
import Data.Maybe (fromJust)
|
import Data.Maybe (fromJust)
|
||||||
import Data.Monoid
|
import Data.Monoid
|
||||||
import Data.Maybe (isJust)
|
import Data.Maybe (isJust)
|
||||||
import Data.Tree
|
import Data.Tree
|
||||||
import qualified Data.Map as M
|
import qualified Data.Map as M
|
||||||
|
|
||||||
-- Hooks
|
-- Hooks
|
||||||
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
|
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
|
||||||
import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs.
|
import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs.
|
||||||
import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..))
|
import XMonad.Hooks.ManageDocks (avoidStruts, docks, manageDocks, ToggleStruts(..))
|
||||||
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
|
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat)
|
||||||
import XMonad.Hooks.ServerMode
|
import XMonad.Hooks.ServerMode
|
||||||
import XMonad.Hooks.SetWMName
|
import XMonad.Hooks.SetWMName
|
||||||
import XMonad.Hooks.WorkspaceHistory
|
import XMonad.Hooks.StatusBar
|
||||||
|
import XMonad.Hooks.StatusBar.PP
|
||||||
|
import XMonad.Hooks.WindowSwallowing
|
||||||
|
import XMonad.Hooks.WorkspaceHistory
|
||||||
|
|
||||||
-- Layouts
|
-- Layouts
|
||||||
import XMonad.Layout.Accordion
|
import XMonad.Layout.Accordion
|
||||||
import XMonad.Layout.GridVariants (Grid(Grid))
|
import XMonad.Layout.GridVariants (Grid(Grid))
|
||||||
import XMonad.Layout.SimplestFloat
|
import XMonad.Layout.SimplestFloat
|
||||||
import XMonad.Layout.Spiral
|
import XMonad.Layout.Spiral
|
||||||
import XMonad.Layout.ResizableTile
|
import XMonad.Layout.ResizableTile
|
||||||
import XMonad.Layout.Tabbed
|
import XMonad.Layout.Tabbed
|
||||||
import XMonad.Layout.ThreeColumns
|
import XMonad.Layout.ThreeColumns
|
||||||
|
|
||||||
-- Layouts modifiers
|
-- Layouts modifiers
|
||||||
import XMonad.Layout.LayoutModifier
|
import XMonad.Layout.LayoutModifier
|
||||||
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
|
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
|
||||||
import XMonad.Layout.Magnifier
|
import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
|
||||||
import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
|
import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
|
||||||
import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
|
import XMonad.Layout.NoBorders
|
||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.Renamed
|
||||||
import XMonad.Layout.Renamed
|
import XMonad.Layout.ShowWName
|
||||||
import XMonad.Layout.ShowWName
|
import XMonad.Layout.Simplest
|
||||||
import XMonad.Layout.Simplest
|
import XMonad.Layout.Spacing
|
||||||
import XMonad.Layout.Spacing
|
import XMonad.Layout.SubLayouts
|
||||||
import XMonad.Layout.SubLayouts
|
import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
|
||||||
import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
|
import XMonad.Layout.WindowNavigation
|
||||||
import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
|
import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
|
||||||
import qualified XMonad.Layout.MultiToggle as MT (Toggle(..))
|
import qualified XMonad.Layout.MultiToggle as MT (Toggle(..))
|
||||||
|
|
||||||
-- Utilities
|
-- Utilities
|
||||||
import XMonad.Util.Dmenu
|
import XMonad.Util.Dmenu
|
||||||
import XMonad.Util.EZConfig (additionalKeysP)
|
import XMonad.Util.EZConfig (additionalKeysP, mkNamedKeymap)
|
||||||
import XMonad.Util.NamedScratchpad
|
import XMonad.Util.NamedActions
|
||||||
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
|
import XMonad.Util.NamedScratchpad
|
||||||
import XMonad.Util.SpawnOnce
|
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
|
||||||
|
import XMonad.Util.SpawnOnce
|
||||||
|
|
||||||
|
-- ColorScheme module (SET ONLY ONE!)
|
||||||
|
-- Possible choice are:
|
||||||
|
-- DoomOne
|
||||||
|
-- Dracula
|
||||||
|
-- GruvboxDark
|
||||||
|
-- MonokaiPro
|
||||||
|
-- Nord
|
||||||
|
-- OceanicNext
|
||||||
|
-- Palenight
|
||||||
|
-- SolarizedDark
|
||||||
|
-- SolarizedLight
|
||||||
|
-- TomorrowNight
|
||||||
|
#+end_src
|
||||||
|
** Color Definition
|
||||||
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
|
colorScheme = "doom-one"
|
||||||
|
|
||||||
|
colorBack = "#282c34"
|
||||||
|
colorFore = "#bbc2cf"
|
||||||
|
|
||||||
|
color01 = "#1c1f24"
|
||||||
|
color02 = "#ff6c6b"
|
||||||
|
color03 = "#98be65"
|
||||||
|
color04 = "#da8548"
|
||||||
|
color05 = "#51afef"
|
||||||
|
color06 = "#c678dd"
|
||||||
|
color07 = "#5699af"
|
||||||
|
color08 = "#202328"
|
||||||
|
color09 = "#5b6268"
|
||||||
|
color10 = "#da8548"
|
||||||
|
color11 = "#4db5bd"
|
||||||
|
color12 = "#ecbe7b"
|
||||||
|
color13 = "#3071db"
|
||||||
|
color14 = "#a9a1e1"
|
||||||
|
color15 = "#46d9ff"
|
||||||
|
color16 = "#dfdfdf"
|
||||||
|
|
||||||
|
colorTrayer :: String
|
||||||
|
colorTrayer = "--tint 0x282c34"
|
||||||
#+end_src
|
#+end_src
|
||||||
** Gobal Variable
|
** Gobal Variable
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
myFont :: String
|
myFont :: String
|
||||||
myFont = "xft:NanumGothic:regular:size=9:antialias=true:hinting=true"
|
myFont = "xft:NanumGothic:regular:size=9:antialias=true:hinting=true"
|
||||||
|
|
||||||
myEmojiFont :: String
|
myEmojiFont :: String
|
||||||
myEmojiFont = "xft:Noto Fonts Emoji:regular:size=9:antialias=true:hinting=true"
|
myEmojiFont = "xft:Noto Fonts Emoji:regular:size=9:antialias=true:hinting=true"
|
||||||
|
|
||||||
myModMask :: KeyMask
|
myModMask :: KeyMask
|
||||||
myModMask = mod4Mask -- Sets modkey to super/windows key
|
myModMask = mod4Mask -- Sets modkey to super/windows key
|
||||||
|
|
||||||
myTerminal :: String
|
myTerminal :: String
|
||||||
myTerminal = "alacritty" -- Sets default terminal
|
myTerminal = "alacritty" -- Sets default terminal
|
||||||
|
|
||||||
myBrowser :: String
|
myBrowser :: String
|
||||||
myBrowser = "qutebrowser " -- Sets qutebrowser as browser
|
myBrowser = "qutebrowser " -- Sets qutebrowser as browser
|
||||||
|
|
||||||
myEmacs :: String
|
myEmacs :: String
|
||||||
myEmacs = "emacsclient -c -a 'emacs' " -- Makes emacs keybindings easier to type
|
myEmacs = "emacsclient -c -a 'emacs' " -- Makes emacs keybindings easier to type
|
||||||
|
|
||||||
myEditor :: String
|
myEditor :: String
|
||||||
myEditor = "emacsclient -c -a 'emacs' " -- Sets emacs as editor
|
myEditor = "emacsclient -c -a 'emacs' " -- Sets emacs as editor
|
||||||
-- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor
|
-- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor
|
||||||
|
|
||||||
myBorderWidth :: Dimension
|
myBorderWidth :: Dimension
|
||||||
myBorderWidth = 2 -- Sets border width for windows
|
myBorderWidth = 2 -- Sets border width for windows
|
||||||
|
|
||||||
myNormColor :: String
|
myNormColor :: String
|
||||||
myNormColor = "#282c34" -- Border color of normal windows
|
myNormColor = "#282c34" -- Border color of normal windows
|
||||||
|
|
||||||
myFocusColor :: String
|
myFocusColor :: String
|
||||||
myFocusColor = "#46d9ff" -- Border color of focused windows
|
myFocusColor = "#46d9ff" -- Border color of focused windows
|
||||||
|
|
||||||
altMask :: KeyMask
|
altMask :: KeyMask
|
||||||
altMask = mod1Mask -- Setting this for use in xprompts
|
altMask = mod1Mask -- Setting this for use in xprompts
|
||||||
|
|
||||||
windowCount :: X (Maybe String)
|
windowCount :: X (Maybe String)
|
||||||
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
|
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
|
||||||
#+end_src
|
#+end_src
|
||||||
** StartupHook
|
** StartupHook
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
myStartupHook :: X ()
|
myStartupHook :: X ()
|
||||||
myStartupHook = do
|
myStartupHook = do
|
||||||
--spawnOnce "xrandr --output DP-4 --primary --mode 2560x1440 --pos 0x0 --rotate normal --output HDMI-0 --mode 1920x1080 --pos 2560x0 --rotate normal"
|
--spawnOnce "xrandr --output DP-4 --primary --mode 2560x1440 --pos 0x0 --rotate normal --output HDMI-0 --mode 1920x1080 --pos 2560x0 --rotate normal"
|
||||||
spawn "$HOME/.xmonad/scripts/autostart.sh"
|
spawn "$HOME/.xmonad/scripts/autostart.sh"
|
||||||
--spawnOnce "nm-applet &"
|
--spawnOnce "nm-applet &"
|
||||||
--spawnOnce "picom -b --config ~/.xmonad/picom.conf &"
|
--spawnOnce "picom -b --config ~/.xmonad/picom.conf &"
|
||||||
--spawnOnce "picom --experimental-backends -b --config ~/.xmonad/picom.conf &"
|
--spawnOnce "picom --experimental-backends -b --config ~/.xmonad/picom.conf &"
|
||||||
--spawnOnce "dwall -s firewatch &"
|
--spawnOnce "dwall -s firewatch &"
|
||||||
--spawnOnce "fcitx &"
|
--spawnOnce "fcitx &"
|
||||||
--spawnOnce "seafile-applet &"
|
--spawnOnce "seafile-applet &"
|
||||||
--spawnOnce "seadrive-gui &"
|
--spawnOnce "seadrive-gui &"
|
||||||
--spawnOnce "blueberry-tray &"
|
--spawnOnce "blueberry-tray &"
|
||||||
--spawnOnce "volumeicon &"
|
--spawnOnce "volumeicon &"
|
||||||
--spawnOnce "enpass"
|
--spawnOnce "enpass"
|
||||||
--spawnOnce "green-tunnel -s &"
|
--spawnOnce "green-tunnel -s &"
|
||||||
--spawnOnce "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 0 --transparent true --alpha 0 --tint 0x282c34 --height 24 &"
|
--spawnOnce "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 0 --transparent true --alpha 0 --tint 0x282c34 --height 24 &"
|
||||||
--spawnOnce "/usr/bin/emacs --daemon &"
|
--spawnOnce "/usr/bin/emacs --daemon &"
|
||||||
-- spawnOnce "/usr/bin/emacs --daemon &" -- emacs daemon for the emacsclient
|
-- spawnOnce "/usr/bin/emacs --daemon &" -- emacs daemon for the emacsclient
|
||||||
-- spawnOnce "kak -d -s mysession &" -- kakoune daemon for better performance
|
-- spawnOnce "kak -d -s mysession &" -- kakoune daemon for better performance
|
||||||
-- spawnOnce "urxvtd -q -o -f &" -- urxvt daemon for better performance
|
-- spawnOnce "urxvtd -q -o -f &" -- urxvt daemon for better performance
|
||||||
|
|
||||||
--spawnOnce "xargs xwallpaper --stretch < ~/.xwallpaper" -- set last saved with xwallpaper
|
|
||||||
-- spawnOnce "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch" -- set random xwallpaper
|
|
||||||
-- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper
|
|
||||||
-- spawnOnce "feh --randomize --bg-fill ~/wallpapers/*" -- feh set random wallpaper
|
|
||||||
-- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh
|
|
||||||
setWMName "LG3D"
|
|
||||||
|
|
||||||
|
--spawnOnce "xargs xwallpaper --stretch < ~/.xwallpaper" -- set last saved with xwallpaper
|
||||||
|
-- spawnOnce "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch" -- set random xwallpaper
|
||||||
|
-- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper
|
||||||
|
-- spawnOnce "feh --randomize --bg-fill ~/wallpapers/*" -- feh set random wallpaper
|
||||||
|
-- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh
|
||||||
|
setWMName "LG3D"
|
||||||
#+end_src
|
#+end_src
|
||||||
** Layout
|
** Layout
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
|
-- Theme for showWName which prints current workspace when you change workspaces.
|
||||||
|
--Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
|
||||||
|
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
||||||
|
mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True
|
||||||
|
|
||||||
myColorizer :: Window -> Bool -> X (String, String)
|
-- Below is a variation of the above except no borders are applied
|
||||||
myColorizer = colorRangeFromClassName
|
-- if fewer than two windows. So a single window has no gaps.
|
||||||
(0x28,0x2c,0x34) -- lowest inactive bg
|
mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
||||||
(0x28,0x2c,0x34) -- highest inactive bg
|
mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
|
||||||
(0xc7,0x92,0xea) -- active bg
|
|
||||||
(0xc0,0xa7,0x9a) -- inactive fg
|
|
||||||
(0x28,0x2c,0x34) -- active fg
|
|
||||||
|
|
||||||
-- gridSelect menu layout
|
-- Defining a bunch of layouts, many that I don't use.
|
||||||
mygridConfig :: p -> GSConfig Window
|
-- limitWindows n sets maximum number of windows displayed for layout.
|
||||||
mygridConfig colorizer = (buildDefaultGSConfig myColorizer)
|
-- mySpacing n sets the gap size around the windows.
|
||||||
{ gs_cellheight = 40
|
tall = renamed [Replace "tall"]
|
||||||
, gs_cellwidth = 200
|
$ limitWindows 5
|
||||||
, gs_cellpadding = 6
|
$ smartBorders
|
||||||
, gs_originFractX = 0.5
|
$ windowNavigation
|
||||||
, gs_originFractY = 0.5
|
$ addTabs shrinkText myTabTheme
|
||||||
, gs_font = myFont
|
$ subLayout [] (smartBorders Simplest)
|
||||||
}
|
$ mySpacing 8
|
||||||
|
$ ResizableTall 1 (3/100) (1/2) []
|
||||||
|
monocle = renamed [Replace "monocle"]
|
||||||
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
|
$ addTabs shrinkText myTabTheme
|
||||||
|
$ subLayout [] (smartBorders Simplest)
|
||||||
|
$ Full
|
||||||
|
floats = renamed [Replace "floats"]
|
||||||
|
$ smartBorders
|
||||||
|
$ simplestFloat
|
||||||
|
grid = renamed [Replace "grid"]
|
||||||
|
$ limitWindows 9
|
||||||
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
|
$ addTabs shrinkText myTabTheme
|
||||||
|
$ subLayout [] (smartBorders Simplest)
|
||||||
|
$ mySpacing 8
|
||||||
|
$ mkToggle (single MIRROR)
|
||||||
|
$ Grid (16/10)
|
||||||
|
spirals = renamed [Replace "spirals"]
|
||||||
|
$ limitWindows 9
|
||||||
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
|
$ addTabs shrinkText myTabTheme
|
||||||
|
$ subLayout [] (smartBorders Simplest)
|
||||||
|
$ mySpacing' 8
|
||||||
|
$ spiral (6/7)
|
||||||
|
threeCol = renamed [Replace "threeCol"]
|
||||||
|
$ limitWindows 7
|
||||||
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
|
$ addTabs shrinkText myTabTheme
|
||||||
|
$ subLayout [] (smartBorders Simplest)
|
||||||
|
$ ThreeCol 1 (3/100) (1/2)
|
||||||
|
threeRow = renamed [Replace "threeRow"]
|
||||||
|
$ limitWindows 7
|
||||||
|
$ smartBorders
|
||||||
|
$ windowNavigation
|
||||||
|
$ addTabs shrinkText myTabTheme
|
||||||
|
$ subLayout [] (smartBorders Simplest)
|
||||||
|
-- Mirror takes a layout and rotates it by 90 degrees.
|
||||||
|
-- So we are applying Mirror to the ThreeCol layout.
|
||||||
|
$ Mirror
|
||||||
|
$ ThreeCol 1 (3/100) (1/2)
|
||||||
|
tabs = renamed [Replace "tabs"]
|
||||||
|
-- I cannot add spacing to this layout because it will
|
||||||
|
-- add spacing between window and tabs which looks bad.
|
||||||
|
$ tabbed shrinkText myTabTheme
|
||||||
|
tallAccordion = renamed [Replace "tallAccordion"]
|
||||||
|
$ Accordion
|
||||||
|
wideAccordion = renamed [Replace "wideAccordion"]
|
||||||
|
$ Mirror Accordion
|
||||||
|
|
||||||
spawnSelected' :: [(String, String)] -> X ()
|
-- setting colors for tabs layout and tabs sublayout.
|
||||||
spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
|
myTabTheme = def { fontName = myFont
|
||||||
where conf = def
|
, activeColor = color15
|
||||||
{ gs_cellheight = 40
|
, inactiveColor = color08
|
||||||
, gs_cellwidth = 200
|
, activeBorderColor = color15
|
||||||
, gs_cellpadding = 6
|
, inactiveBorderColor = colorBack
|
||||||
, gs_originFractX = 0.5
|
, activeTextColor = colorBack
|
||||||
, gs_originFractY = 0.5
|
, inactiveTextColor = color16
|
||||||
, gs_font = myFont
|
}
|
||||||
}
|
|
||||||
|
|
||||||
myAppGrid = [ --("Audacity", "audacity")
|
-- Theme for showWName which prints current workspace when you change workspaces.
|
||||||
--, ("Deadbeef", "deadbeef")
|
myShowWNameTheme :: SWNConfig
|
||||||
("Vivaldi", "vivaldi-stable")
|
myShowWNameTheme = def
|
||||||
, ("Emacs", "emacsclient -c -a emacs")
|
{ swn_font = "xft:Ubuntu:bold:size=60"
|
||||||
, ("Firefox", "firefox")
|
, swn_fade = 1.0
|
||||||
, ("Vivaldi", "vivaldi-stable")
|
, swn_bgcolor = "#1c1f24"
|
||||||
--, ("Geany", "geany")
|
, swn_color = "#ffffff"
|
||||||
--, ("Geary", "geary")
|
}
|
||||||
, ("Gimp", "gimp")
|
|
||||||
, ("Kdenlive", "kdenlive")
|
|
||||||
, ("LibreOffice Impress", "loimpress")
|
|
||||||
, ("LibreOffice Writer", "lowriter")
|
|
||||||
--, ("OBS", "obs")
|
|
||||||
, ("PCManFM", "pcmanfm")
|
|
||||||
]
|
|
||||||
|
|
||||||
myScratchPads :: [NamedScratchpad]
|
|
||||||
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
|
|
||||||
, NS "mocp" spawnMocp findMocp manageMocp
|
|
||||||
, NS "calculator" spawnCalc findCalc manageCalc
|
|
||||||
]
|
|
||||||
where
|
|
||||||
spawnTerm = myTerminal ++ " -t scratchpad"
|
|
||||||
findTerm = title =? "scratchpad"
|
|
||||||
manageTerm = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.9
|
|
||||||
w = 0.9
|
|
||||||
t = 0.95 -h
|
|
||||||
l = 0.95 -w
|
|
||||||
spawnMocp = myTerminal ++ " -t mocp -e mocp"
|
|
||||||
findMocp = title =? "mocp"
|
|
||||||
manageMocp = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.9
|
|
||||||
w = 0.9
|
|
||||||
t = 0.95 -h
|
|
||||||
l = 0.95 -w
|
|
||||||
spawnCalc = "qalculate-gtk"
|
|
||||||
findCalc = className =? "Qalculate-gtk"
|
|
||||||
manageCalc = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.5
|
|
||||||
w = 0.4
|
|
||||||
t = 0.75 -h
|
|
||||||
l = 0.70 -w
|
|
||||||
|
|
||||||
--Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
|
|
||||||
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
|
||||||
mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True
|
|
||||||
|
|
||||||
-- Below is a variation of the above except no borders are applied
|
|
||||||
-- if fewer than two windows. So a single window has no gaps.
|
|
||||||
mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
|
||||||
mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
|
|
||||||
|
|
||||||
-- Defining a bunch of layouts, many that I don't use.
|
|
||||||
-- limitWindows n sets maximum number of windows displayed for layout.
|
|
||||||
-- mySpacing n sets the gap size around the windows.
|
|
||||||
tall = renamed [Replace "tall"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ limitWindows 12
|
|
||||||
$ mySpacing 8
|
|
||||||
$ ResizableTall 1 (3/100) (1/2) []
|
|
||||||
magnify = renamed [Replace "magnify"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ magnifier
|
|
||||||
$ limitWindows 12
|
|
||||||
$ mySpacing 8
|
|
||||||
$ ResizableTall 1 (3/100) (1/2) []
|
|
||||||
monocle = renamed [Replace "monocle"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ limitWindows 20 Full
|
|
||||||
floats = renamed [Replace "floats"]
|
|
||||||
$ smartBorders
|
|
||||||
$ limitWindows 20 simplestFloat
|
|
||||||
grid = renamed [Replace "grid"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ limitWindows 12
|
|
||||||
$ mySpacing 8
|
|
||||||
$ mkToggle (single MIRROR)
|
|
||||||
$ Grid (16/10)
|
|
||||||
spirals = renamed [Replace "spirals"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ mySpacing' 8
|
|
||||||
$ spiral (6/7)
|
|
||||||
threeCol = renamed [Replace "threeCol"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ limitWindows 7
|
|
||||||
$ ThreeCol 1 (3/100) (1/2)
|
|
||||||
threeRow = renamed [Replace "threeRow"]
|
|
||||||
$ smartBorders
|
|
||||||
$ addTabs shrinkText myTabTheme
|
|
||||||
$ subLayout [] (smartBorders Simplest)
|
|
||||||
$ limitWindows 7
|
|
||||||
-- Mirror takes a layout and rotates it by 90 degrees.
|
|
||||||
-- So we are applying Mirror to the ThreeCol layout.
|
|
||||||
$ Mirror
|
|
||||||
$ ThreeCol 1 (3/100) (1/2)
|
|
||||||
tabs = renamed [Replace "tabs"]
|
|
||||||
-- I cannot add spacing to this layout because it will
|
|
||||||
-- add spacing between window and tabs which looks bad.
|
|
||||||
$ tabbed shrinkText myTabTheme
|
|
||||||
tallAccordion = renamed [Replace "tallAccordion"]
|
|
||||||
$ Accordion
|
|
||||||
wideAccordion = renamed [Replace "wideAccordion"]
|
|
||||||
$ Mirror Accordion
|
|
||||||
|
|
||||||
-- setting colors for tabs layout and tabs sublayout.
|
|
||||||
myTabTheme = def { fontName = myFont
|
|
||||||
, activeColor = "#46d9ff"
|
|
||||||
, inactiveColor = "#313846"
|
|
||||||
, activeBorderColor = "#46d9ff"
|
|
||||||
, inactiveBorderColor = "#282c34"
|
|
||||||
, activeTextColor = "#282c34"
|
|
||||||
, inactiveTextColor = "#d0d0d0"
|
|
||||||
}
|
|
||||||
|
|
||||||
-- Theme for showWName which prints current workspace when you change workspaces.
|
|
||||||
myShowWNameTheme :: SWNConfig
|
|
||||||
myShowWNameTheme = def
|
|
||||||
{ swn_font = "xft:Ubuntu:bold:size=60"
|
|
||||||
, swn_fade = 1.0
|
|
||||||
, swn_bgcolor = "#1c1f24"
|
|
||||||
, swn_color = "#ffffff"
|
|
||||||
}
|
|
||||||
|
|
||||||
-- The layout hook
|
|
||||||
myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats
|
|
||||||
$ mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout
|
|
||||||
where
|
|
||||||
myDefaultLayout = withBorder myBorderWidth tall
|
|
||||||
||| magnify
|
|
||||||
||| noBorders monocle
|
|
||||||
||| floats
|
|
||||||
||| noBorders tabs
|
|
||||||
||| grid
|
|
||||||
||| spirals
|
|
||||||
||| threeCol
|
|
||||||
||| threeRow
|
|
||||||
||| tallAccordion
|
|
||||||
||| wideAccordion
|
|
||||||
|
|
||||||
|
-- The layout hook
|
||||||
|
myLayoutHook = avoidStruts
|
||||||
|
$ mouseResize
|
||||||
|
$ windowArrange
|
||||||
|
$ T.toggleLayouts floats
|
||||||
|
$ mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout
|
||||||
|
where
|
||||||
|
myDefaultLayout = withBorder myBorderWidth tall
|
||||||
|
||| noBorders monocle
|
||||||
|
||| floats
|
||||||
|
||| noBorders tabs
|
||||||
|
||| grid
|
||||||
|
||| spirals
|
||||||
|
||| threeCol
|
||||||
|
||| threeRow
|
||||||
|
||| tallAccordion
|
||||||
|
||| wideAccordion
|
||||||
#+end_src
|
#+end_src
|
||||||
** Workspace
|
** Workspace
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
myWorkspaces = [" 1 ", " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ", " 8 ", " 9 "]
|
myWorkspaces = [" 1 ", " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ", " 8 ", " 9 "]
|
||||||
-- myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
|
-- myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
|
||||||
myWorkspaceIndices = M.fromList $ zipWith (,) myWorkspaces [1..] -- (,) == \x y -> (x,y)
|
myWorkspaceIndices = M.fromList $ zipWith (,) myWorkspaces [1..] -- (,) == \x y -> (x,y)
|
||||||
|
|
||||||
clickable ws = "<action=xdotool key super+"++show i++">"++ws++"</action>"
|
clickable ws = "<action=xdotool key super+"++show i++">"++ws++"</action>"
|
||||||
where i = fromJust $ M.lookup ws myWorkspaceIndices
|
where i = fromJust $ M.lookup ws myWorkspaceIndices
|
||||||
|
|
||||||
myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet)
|
myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet)
|
||||||
myManageHook = composeAll
|
myManageHook = composeAll
|
||||||
-- 'doFloat' forces a window to float. Useful for dialog boxes and such.
|
-- 'doFloat' forces a window to float. Useful for dialog boxes and such.
|
||||||
-- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8!
|
-- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8!
|
||||||
-- I'm doing it this way because otherwise I would have to write out the full
|
-- I'm doing it this way because otherwise I would have to write out the full
|
||||||
-- name of my workspaces and the names would be very long if using clickable workspaces.
|
-- name of my workspaces and the names would be very long if using clickable workspaces.
|
||||||
[ className =? "confirm" --> doFloat
|
[ className =? "confirm" --> doFloat
|
||||||
, className =? "file_progress" --> doFloat
|
, className =? "file_progress" --> doFloat
|
||||||
, className =? "dialog" --> doFloat
|
, className =? "dialog" --> doFloat
|
||||||
, className =? "download" --> doFloat
|
, className =? "download" --> doFloat
|
||||||
, className =? "error" --> doFloat
|
, className =? "error" --> doFloat
|
||||||
, className =? "Gimp" --> doFloat
|
, className =? "Gimp" --> doFloat
|
||||||
, className =? "notification" --> doFloat
|
, className =? "notification" --> doFloat
|
||||||
, className =? "pinentry-gtk-2" --> doFloat
|
, className =? "pinentry-gtk-2" --> doFloat
|
||||||
, className =? "splash" --> doFloat
|
, className =? "splash" --> doFloat
|
||||||
, className =? "toolbar" --> doFloat
|
, className =? "toolbar" --> doFloat
|
||||||
--, title =? "Oracle VM VirtualBox Manager" --> doFloat
|
--, title =? "Oracle VM VirtualBox Manager" --> doFloat
|
||||||
--, title =? "Mozilla Firefox" --> doShift ( myWorkspaces !! 1 )
|
--, title =? "Mozilla Firefox" --> doShift ( myWorkspaces !! 1 )
|
||||||
--, className =? "brave-browser" --> doShift ( myWorkspaces !! 1 )
|
--, className =? "brave-browser" --> doShift ( myWorkspaces !! 1 )
|
||||||
--, className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 )
|
--, className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 )
|
||||||
--, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
|
--, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
|
||||||
--, className =? "Gimp" --> doShift ( myWorkspaces !! 8 )
|
--, className =? "Gimp" --> doShift ( myWorkspaces !! 8 )
|
||||||
--, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
|
--, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
|
||||||
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||||
, (className =? "steam" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
, (className =? "steam" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||||
] <+> namedScratchpadManageHook myScratchPads
|
]
|
||||||
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** Key bindings
|
** Key bindings
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
myKeys :: [(String, X ())]
|
myKeys :: [(String, X ())]
|
||||||
myKeys =
|
myKeys =
|
||||||
-- Xmonad
|
-- Xmonad
|
||||||
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
|
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
|
||||||
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
|
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
|
||||||
, ("M-S-q", io exitSuccess) -- Quits xmonad
|
, ("M-S-q", io exitSuccess) -- Quits xmonad
|
||||||
|
|
||||||
-- Run Prompt
|
-- Run Prompt
|
||||||
-- M-p was the default keybinding. I've changed it to M-S-RET because I will use
|
-- M-p was the default keybinding. I've changed it to M-S-RET because I will use
|
||||||
-- M-p as part of the keychord for the other dmenu script bindings.
|
-- M-p as part of the keychord for the other dmenu script bindings.
|
||||||
, ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu
|
, ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu
|
||||||
|
|
||||||
-- Launch Apps
|
-- Launch Apps
|
||||||
, ("M-f", spawn "firefox")
|
, ("M-f", spawn "firefox")
|
||||||
, ("M-v", spawn "vivaldi-stable")
|
, ("M-v", spawn "vivaldi-stable")
|
||||||
, ("M-t", spawn "thunar")
|
, ("M-t", spawn "thunar")
|
||||||
, ("M-p", spawn "bitwarden-desktop")
|
, ("M-p", spawn "bitwarden-desktop")
|
||||||
--, ("M-e", spawn "emacs")
|
--, ("M-e", spawn "emacs")
|
||||||
, ("M-e", spawn myEmacs)
|
, ("M-e", spawn myEmacs)
|
||||||
, ("M-l", spawn "arcolinux-logout")
|
, ("M-l", spawn "arcolinux-logout")
|
||||||
|
|
||||||
-- Useful programs to have a keybinding for launch
|
-- Useful programs to have a keybinding for launch
|
||||||
, ("M-<Return>", spawn (myTerminal))
|
, ("M-<Return>", spawn (myTerminal))
|
||||||
--, ("M-b", spawn (myBrowser ++ " www.youtube.com/c/DistroTube/"))
|
--, ("M-b", spawn (myBrowser ++ " www.youtube.com/c/DistroTube/"))
|
||||||
--, ("M-M1-h", spawn (myTerminal ++ " -e htop"))
|
--, ("M-M1-h", spawn (myTerminal ++ " -e htop"))
|
||||||
|
|
||||||
-- Kill windows
|
-- Kill windows
|
||||||
, ("M-S-c", kill1) -- Kill the currently focused client
|
, ("M-S-c", kill1) -- Kill the currently focused client
|
||||||
--, ("M-S-a", killAll) -- Kill all windows on current workspace
|
--, ("M-S-a", killAll) -- Kill all windows on current workspace
|
||||||
|
|
||||||
-- Workspaces
|
-- Workspaces
|
||||||
--, ("M-.", nextScreen) -- Switch focus to next monitor
|
--, ("M-.", nextScreen) -- Switch focus to next monitor
|
||||||
--, ("M-,", prevScreen) -- Switch focus to prev monitor
|
--, ("M-,", prevScreen) -- Switch focus to prev monitor
|
||||||
--, ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP) -- Shifts focused window to next ws
|
--, ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP) -- Shifts focused window to next ws
|
||||||
--, ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP) -- Shifts focused window to prev ws
|
--, ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP) -- Shifts focused window to prev ws
|
||||||
|
|
||||||
-- Floating windows
|
-- Floating windows
|
||||||
--, ("M-f", sendMessage (T.Toggle "floats")) -- Toggles my 'floats' layout
|
--, ("M-f", sendMessage (T.Toggle "floats")) -- Toggles my 'floats' layout
|
||||||
--, ("M-t", withFocused $ windows . W.sink) -- Push floating window back to tile
|
--, ("M-t", withFocused $ windows . W.sink) -- Push floating window back to tile
|
||||||
--, ("M-S-t", sinkAll) -- Push ALL floating windows to tile
|
--, ("M-S-t", sinkAll) -- Push ALL floating windows to tile
|
||||||
|
|
||||||
-- Increase/decrease spacing (gaps)
|
-- Increase/decrease spacing (gaps)
|
||||||
--, ("M-d", decWindowSpacing 4) -- Decrease window spacing
|
--, ("M-d", decWindowSpacing 4) -- Decrease window spacing
|
||||||
--, ("M-i", incWindowSpacing 4) -- Increase window spacing
|
--, ("M-i", incWindowSpacing 4) -- Increase window spacing
|
||||||
--, ("M-S-d", decScreenSpacing 4) -- Decrease screen spacing
|
--, ("M-S-d", decScreenSpacing 4) -- Decrease screen spacing
|
||||||
--, ("M-S-i", incScreenSpacing 4) -- Increase screen spacing
|
--, ("M-S-i", incScreenSpacing 4) -- Increase screen spacing
|
||||||
|
|
||||||
-- Grid Select (CTR-g followed by a key)
|
-- Grid Select (CTR-g followed by a key)
|
||||||
, ("M-g g", spawnSelected' myAppGrid) -- grid select favorite apps
|
--, ("M-g g", spawnSelected' myAppGrid) -- grid select favorite apps
|
||||||
, ("M-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window
|
--, ("M-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window
|
||||||
--, ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window
|
--, ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window
|
||||||
|
|
||||||
-- Windows navigation
|
-- Windows navigation
|
||||||
--, ("M-m", windows W.focusMaster) -- Move focus to the master window
|
--, ("M-m", windows W.focusMaster) -- Move focus to the master window
|
||||||
, ("M-j", windows W.focusDown) -- Move focus to the next window
|
, ("M-j", windows W.focusDown) -- Move focus to the next window
|
||||||
, ("M-k", windows W.focusUp) -- Move focus to the prev window
|
, ("M-k", windows W.focusUp) -- Move focus to the prev window
|
||||||
--, ("M-S-m", windows W.swapMaster) -- Swap the focused window and the master window
|
--, ("M-S-m", windows W.swapMaster) -- Swap the focused window and the master window
|
||||||
--, ("M-S-j", windows W.swapDown) -- Swap focused window with next window
|
--, ("M-S-j", windows W.swapDown) -- Swap focused window with next window
|
||||||
--, ("M-S-k", windows W.swapUp) -- Swap focused window with prev window
|
--, ("M-S-k", windows W.swapUp) -- Swap focused window with prev window
|
||||||
--, ("M-<Backspace>", promote) -- Moves focused window to master, others maintain order
|
--, ("M-<Backspace>", promote) -- Moves focused window to master, others maintain order
|
||||||
--, ("M-S-<Tab>", rotSlavesDown) -- Rotate all windows except master and keep focus in place
|
--, ("M-S-<Tab>", rotSlavesDown) -- Rotate all windows except master and keep focus in place
|
||||||
, ("M-C-<Tab>", rotAllDown) -- Rotate all the windows in the current stack
|
, ("M-C-<Tab>", rotAllDown) -- Rotate all the windows in the current stack
|
||||||
|
|
||||||
-- Layouts
|
-- Layouts
|
||||||
--, ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout
|
--, ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout
|
||||||
--, ("M-C-M1-<Up>", sendMessage Arrange)
|
--, ("M-C-M1-<Up>", sendMessage Arrange)
|
||||||
--, ("M-C-M1-<Down>", sendMessage DeArrange)
|
--, ("M-C-M1-<Down>", sendMessage DeArrange)
|
||||||
--, ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts
|
--, ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts
|
||||||
--, ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder
|
--, ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder
|
||||||
, ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
|
, ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
|
||||||
|
|
||||||
-- Increase/decrease windows in the master pane or the stack
|
-- Increase/decrease windows in the master pane or the stack
|
||||||
--, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase # of clients master pane
|
--, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase # of clients master pane
|
||||||
--, ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease # of clients master pane
|
--, ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease # of clients master pane
|
||||||
--, ("M-C-<Up>", increaseLimit) -- Increase # of windows
|
--, ("M-C-<Up>", increaseLimit) -- Increase # of windows
|
||||||
--, ("M-C-<Down>", decreaseLimit) -- Decrease # of windows
|
--, ("M-C-<Down>", decreaseLimit) -- Decrease # of windows
|
||||||
|
|
||||||
-- Window resizing
|
-- Window resizing
|
||||||
--, ("M-h", sendMessage Shrink) -- Shrink horiz window width
|
--, ("M-h", sendMessage Shrink) -- Shrink horiz window width
|
||||||
--, ("M-l", sendMessage Expand) -- Expand horiz window width
|
--, ("M-l", sendMessage Expand) -- Expand horiz window width
|
||||||
--, ("M-M1-j", sendMessage MirrorShrink) -- Shrink vert window width
|
--, ("M-M1-j", sendMessage MirrorShrink) -- Shrink vert window width
|
||||||
--, ("M-M1-k", sendMessage MirrorExpand) -- Expand vert window width
|
--, ("M-M1-k", sendMessage MirrorExpand) -- Expand vert window width
|
||||||
|
|
||||||
-- Systemwise
|
-- Systemwise
|
||||||
, ("C-S-<Esc>", spawn $ "xfce4-taskmanager")
|
, ("C-S-<Esc>", spawn $ "xfce4-taskmanager")
|
||||||
-- Sublayouts
|
-- Sublayouts
|
||||||
-- This is used to push windows to tabbed sublayouts, or pull them out of it.
|
-- This is used to push windows to tabbed sublayouts, or pull them out of it.
|
||||||
--, ("M-C-h", sendMessage $ pullGroup L)
|
--, ("M-C-h", sendMessage $ pullGroup L)
|
||||||
--, ("M-C-l", sendMessage $ pullGroup R)
|
--, ("M-C-l", sendMessage $ pullGroup R)
|
||||||
--, ("M-C-k", sendMessage $ pullGroup U)
|
--, ("M-C-k", sendMessage $ pullGroup U)
|
||||||
--, ("M-C-j", sendMessage $ pullGroup D)
|
--, ("M-C-j", sendMessage $ pullGroup D)
|
||||||
--, ("M-C-m", withFocused (sendMessage . MergeAll))
|
--, ("M-C-m", withFocused (sendMessage . MergeAll))
|
||||||
---- , ("M-C-u", withFocused (sendMessage . UnMerge))
|
---- , ("M-C-u", withFocused (sendMessage . UnMerge))
|
||||||
--, ("M-C-/", withFocused (sendMessage . UnMergeAll))
|
--, ("M-C-/", withFocused (sendMessage . UnMergeAll))
|
||||||
--, ("M-C-.", onGroup W.focusUp') -- Switch focus to next tab
|
--, ("M-C-.", onGroup W.focusUp') -- Switch focus to next tab
|
||||||
--, ("M-C-,", onGroup W.focusDown') -- Switch focus to prev tab
|
--, ("M-C-,", onGroup W.focusDown') -- Switch focus to prev tab
|
||||||
|
|
||||||
-- Scratchpads
|
-- Scratchpads
|
||||||
-- Toggle show/hide these programs. They run on a hidden workspace.
|
-- Toggle show/hide these programs. They run on a hidden workspace.
|
||||||
-- When you toggle them to show, it brings them to your current workspace.
|
-- When you toggle them to show, it brings them to your current workspace.
|
||||||
-- Toggle them to hide and it sends them back to hidden workspace (NSP).
|
-- Toggle them to hide and it sends them back to hidden workspace (NSP).
|
||||||
--, ("C-s t", namedScratchpadAction myScratchPads "terminal")
|
--, ("C-s t", namedScratchpadAction myScratchPads "terminal")
|
||||||
--, ("C-s m", namedScratchpadAction myScratchPads "mocp")
|
--, ("C-s m", namedScratchpadAction myScratchPads "mocp")
|
||||||
--, ("C-s c", namedScratchpadAction myScratchPads "calculator")
|
--, ("C-s c", namedScratchpadAction myScratchPads "calculator")
|
||||||
|
|
||||||
-- Set wallpaper with 'feh'. Type 'SUPER+F1' to launch sxiv in the wallpapers directory.
|
-- Set wallpaper with 'feh'. Type 'SUPER+F1' to launch sxiv in the wallpapers directory.
|
||||||
-- Then in sxiv, type 'C-x w' to set the wallpaper that you choose.
|
-- Then in sxiv, type 'C-x w' to set the wallpaper that you choose.
|
||||||
--, ("M-<F1>", spawn "sxiv -r -q -t -o ~/wallpapers/*")
|
--, ("M-<F1>", spawn "sxiv -r -q -t -o ~/wallpapers/*")
|
||||||
--, ("M-<F2>", spawn "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch")
|
--, ("M-<F2>", spawn "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch")
|
||||||
--, ("M-<F2>", spawn "feh --randomize --bg-fill ~/wallpapers/*")
|
--, ("M-<F2>", spawn "feh --randomize --bg-fill ~/wallpapers/*")
|
||||||
|
|
||||||
-- Multimedia Keys
|
-- Multimedia Keys
|
||||||
--, ("<XF86AudioPlay>", spawn (myTerminal ++ "mocp --play"))
|
--, ("<XF86AudioPlay>", spawn (myTerminal ++ "mocp --play"))
|
||||||
--, ("<XF86AudioPrev>", spawn (myTerminal ++ "mocp --previous"))
|
--, ("<XF86AudioPrev>", spawn (myTerminal ++ "mocp --previous"))
|
||||||
--, ("<XF86AudioNext>", spawn (myTerminal ++ "mocp --next"))
|
--, ("<XF86AudioNext>", spawn (myTerminal ++ "mocp --next"))
|
||||||
--, ("<XF86AudioMute>", spawn "amixer set Master toggle")
|
--, ("<XF86AudioMute>", spawn "amixer set Master toggle")
|
||||||
--, ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute")
|
--, ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute")
|
||||||
--, ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute")
|
--, ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute")
|
||||||
--, ("<XF86HomePage>", spawn "firefox")
|
--, ("<XF86HomePage>", spawn "firefox")
|
||||||
--, ("<XF86Search>", safeSpawn "firefox" ["https://www.duckduckgo.com/"])
|
--, ("<XF86Search>", safeSpawn "firefox" ["https://www.duckduckgo.com/"])
|
||||||
--, ("<XF86Mail>", runOrRaise "thunderbird" (resource =? "thunderbird"))
|
--, ("<XF86Mail>", runOrRaise "thunderbird" (resource =? "thunderbird"))
|
||||||
--, ("<XF86Calculator>", runOrRaise "qalculate-gtk" (resource =? "qalculate-gtk"))
|
--, ("<XF86Calculator>", runOrRaise "qalculate-gtk" (resource =? "qalculate-gtk"))
|
||||||
--, ("<XF86Eject>", spawn "toggleeject")
|
--, ("<XF86Eject>", spawn "toggleeject")
|
||||||
--, ("<Print>", spawn "scrotd 0")
|
--, ("<Print>", spawn "scrotd 0")
|
||||||
]
|
]
|
||||||
-- The following lines are needed for named scratchpads.
|
-- The following lines are needed for named scratchpads.
|
||||||
where nonNSP = WSIs (return (\ws -> W.tag ws /= "NSP"))
|
where nonNSP = WSIs (return (\ws -> W.tag ws /= "NSP"))
|
||||||
nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "NSP"))
|
nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "NSP"))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** Main
|
** Main
|
||||||
#+begin_src haskell :tangle ./xmonad.hs
|
#+begin_src haskell :tangle ./xmonad.hs
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
-- Launching three instances of xmobar on their monitors.
|
-- Launching three instances of xmobar on their monitors.
|
||||||
-- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd"
|
-- xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_desktop_qhd"
|
||||||
-- xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc_desktop_fhd"
|
-- xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc_desktop_fhd"
|
||||||
xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_labtop_fhd"
|
xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc_labtop_fhd"
|
||||||
-- the xmonad, ya know...what the WM is named after!
|
-- the xmonad, ya know...what the WM is named after!
|
||||||
xmonad $ ewmh def
|
xmonad $ ewmh def
|
||||||
{ manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks
|
{ manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks
|
||||||
-- Run xmonad commands from command line with "xmonadctl command". Commands include:
|
-- Run xmonad commands from command line with "xmonadctl command". Commands include:
|
||||||
-- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run,
|
-- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run,
|
||||||
-- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run
|
-- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run
|
||||||
-- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors.
|
-- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors.
|
||||||
-- To compile xmonadctl: ghc -dynamic xmonadctl.hs
|
-- To compile xmonadctl: ghc -dynamic xmonadctl.hs
|
||||||
, handleEventHook = serverModeEventHookCmd
|
, handleEventHook = serverModeEventHookCmd
|
||||||
<+> serverModeEventHook
|
<+> serverModeEventHook
|
||||||
<+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
|
<+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
|
||||||
<+> docksEventHook
|
-- <+> fullscreenEventHook -- this does NOT work right if using multi-monitors!
|
||||||
<+> fullscreenEventHook -- this does NOT work right if using multi-monitors!
|
, modMask = myModMask
|
||||||
, modMask = myModMask
|
, terminal = myTerminal
|
||||||
, terminal = myTerminal
|
, startupHook = myStartupHook
|
||||||
, startupHook = myStartupHook
|
, layoutHook = showWName' myShowWNameTheme $ myLayoutHook
|
||||||
, layoutHook = showWName' myShowWNameTheme $ myLayoutHook
|
, workspaces = myWorkspaces
|
||||||
, workspaces = myWorkspaces
|
, borderWidth = myBorderWidth
|
||||||
, borderWidth = myBorderWidth
|
, normalBorderColor = myNormColor
|
||||||
, normalBorderColor = myNormColor
|
, focusedBorderColor = myFocusColor
|
||||||
, focusedBorderColor = myFocusColor
|
, logHook = dynamicLogWithPP $ xmobarPP
|
||||||
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
|
-- the following variables beginning with 'pp' are settings for xmobar.
|
||||||
-- the following variables beginning with 'pp' are settings for xmobar.
|
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
|
||||||
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
|
-- >> hPutStrLn xmproc1 x -- xmobar on monitor 2
|
||||||
-- >> hPutStrLn xmproc1 x -- xmobar on monitor 2
|
-- >> hPutStrLn xmproc2 x -- xmobar on monitor 3
|
||||||
-- >> hPutStrLn xmproc2 x -- xmobar on monitor 3
|
, ppCurrent = xmobarColor "#FFFFFF" "" . wrap "●" "" -- Current workspace
|
||||||
, ppCurrent = xmobarColor "#FFFFFF" "" . wrap "●" "" -- Current workspace
|
, ppVisible = xmobarColor "#c0a79a" "" . wrap "♼" "" . clickable -- Visible but not current workspace
|
||||||
, ppVisible = xmobarColor "#c0a79a" "" . wrap "♼" "" . clickable -- Visible but not current workspace
|
, ppHidden = xmobarColor "#c0a79a" "" . wrap "○" "" . clickable -- Hidden workspaces
|
||||||
, ppHidden = xmobarColor "#c0a79a" "" . wrap "○" "" . clickable -- Hidden workspaces
|
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows)
|
||||||
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . \s -> "" -- Hidden workspaces (no windows)
|
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
|
||||||
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
|
, ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separator character
|
||||||
, ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separator character
|
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
|
||||||
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
|
, ppExtras = [windowCount] -- # of windows current workspace
|
||||||
, ppExtras = [windowCount] -- # of windows current workspace
|
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] -- order of things in xmobar
|
||||||
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] -- order of things in xmobar
|
}
|
||||||
}
|
} `additionalKeysP` myKeys
|
||||||
} `additionalKeysP` myKeys
|
|
||||||
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|||||||
Reference in New Issue
Block a user