ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
dotfiles/oni/home/config/common.scm

201 lines
8.8 KiB
Scheme
Raw Normal View History

Fix typo
2022-10-13 22:06:14 +02:00
(define-module (oni home config common)
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
#:use-module (gnu home services)
#:use-module (gnu home services desktop)
#:use-module (gnu home services shells)
#:use-module (gnu home services ssh)
#:use-module (guix gexp)
#:use-module (oni home services xbindkeys)
#:use-module (oni home services guile)
#:use-module (oni home services xmodmap)
#:use-module (oni home services kitty)
#:export (home-redshift-service
Fix indentation
2022-10-14 05:45:56 +02:00
home-xbindkeys-service
home-zsh-service
home-guile-service
home-xmodmap-service
home-openssh-service
Rename ‘(oni home services compton)’ -> ‘(oni home services picom)’
2023-03-08 08:10:57 +01:00
home-kitty-service))
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
(define home-redshift-service
(service home-redshift-service-type
(home-redshift-configuration
(location-provider 'manual)
(latitude 49.2127205)
Fix longitude for redshift
2022-10-14 05:46:04 +02:00
(longitude -122.9267927))))
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
(define home-xbindkeys-service
(service home-xbindkeys-service-type
(home-xbindkeys-configuration
(keybindings
Add shutdown-rofi script
2022-10-14 05:45:32 +02:00
'(((mod4 q) . "shutdown-rofi")
((mod4 k) . "hersbtclient close")
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
((mod4 mod1 k) . "herbstclient remove")
((mod4 Return) . "herbstclient spawn kitty")
((mod4 t) . "herbstclient spawn hlwm-run-or-raise \"\\(URxct\\|Hyper\\|kitty\\)\" kitty")
((mod4 b) . "herbstclient spawn hlwm-run-or-raise \"\\(Conkeror\\|[Ff]irefox\\|Chromium\\|Next\\|qutebrowser\\)\" firefox")
((mod4 e) . "herbstclient spawn hlwm-run-or-raise Emacs emacsclient --create-frame")
((control mod1 l) . "herbstclient spawn i3lock --color=000000")
((mod4 x) . "herbstclient spawn hlwm-switch-tags")
((mod4 shift b) . "herbstclient shift left")
((mod4 shift n) . "herbstclient shift down")
((mod4 shift p) . "herbstclient shift up")
((mod4 shift f) . "herbstclient shift right")
((mod4 control b) . "herbstclient resize left +0.05")
((mod4 control n) . "herbstclient resize down +0.05")
((mod4 control p) . "herbstclient resize up +0.05")
((mod4 control f) . "herbstclient resize right +0.05")
((mod4 shift underscore) . "herbstclient split bottom 0.5")
((mod4 shift bar) . "herbstclient split right 0.5")
((mod4 period) . "herbstclient use_index +1 --skip-visible")
((mod4 comma) . "herbstclient use_index -1 --skip-visible")
((mod4 shift control f) . "herbstclient floating toggle")
((mod4 f) . "herbstclient cycle_layout 1 vertical max")
((mod4 m) . "herbstclient fullscreen toggle")
((mod4 p) . "herbstclient pseudotile toggle")
((mod4 space) . "herbstclient or , and . compare tags.focus.curframe_wcount = 2 . cycle_layout +1 vertical horizontal max vertical grid , cycle_layout +1")
((mod4 BackSpace) . "herbstclient cycle_monitor")
((mod4 u) . "herbstclient jumpto urgent")
((XF86AudioPlay) . "herbstclient spawn mpc toggle")
((XF86AudioNext) . "herbstclient spawn mpc next")
((XF86AudioPrev) . "herbstclient spawn mpc prev")
((mod4 c)
("1" . "herbstclient move_index 0")
("2" . "herbstclient move_index 1")
("3" . "herbstclient move_index 2")
("4" . "herbstclient move_index 3")
("5" . "herbstclient move_index 4")
("6" . "herbstclient move_index 5")
("7" . "herbstclient move_index 6")
("8" . "herbstclient move_index 7")
("9" . "herbstclient move_index 8")
("0" . "herbstclient move_index 9"))
((mod4 s)
("f" . "flameshot full ~/pictures/screenshots/")
("c" . "flameshot gui")))))))
(define home-zsh-service
(service home-zsh-service-type
(home-zsh-configuration
(environment-variables
'(("HISTFILE" . "$HOME/.zsh/histfile")
("HISTSIZE" . "1000")
("SAVEHIST" . "1000")))
(zshrc
(list
(mixed-text-file
"zshrc"
"fpath=($HOME/.zsh/functions $fpath)\n"
"autoload -U $HOME/.zsh/functions/*(:t)\n"
"alias csi=\"rlwrap csi\"\n"
"alias scsh=\"rlwrap scsh\"\n"
"alias sbcl=\"rlwrap sbcl\"\n"
"alias hc=herbstclient\n"
"setopt SHARE_HISTORY\n"
"setopt HIST_IGNORE_ALL_DUPS\n"
Enable hiding commands that start with a space in ZSH
2023-06-16 08:10:56 +02:00
"setopt HIST_IGNORE_SPACE\n"
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
"setopt PROMPT_SUBST\n"
"zle -N x-copy-region-as-kill\n"
"zle -N x-kill-region\n"
"zle -N x-yank\n"
"bindkey -e '^[w' x-copy-region-as-kill\n"
"bindkey -e '^W' x-kill-region\n"
"bindkey -e '^Y' x-yank\n"
"autoload -Uz compinit\n"
"compinit\n"
Add horizontal rule before and after running commands in zsh
2023-05-25 08:47:48 +02:00
"function horizontal-rule() {\n"
"local width=$(tput cols)\n"
"echo -e \"\\033[0;32m${(pl:$width::━:)}\\033[0m\"\n"
"}\n"
"preexec_functions+=(horizontal-rule)\n"
"precmd_functions+=(horizontal-rule)\n"
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
"PROMPT=\"%T \\$(spwd) %B%(?.%F{2}.%F{1}[%?])>%b%f \""))))))
(define home-guile-service
(service home-guile-service-type
(home-guile-configuration
(use-readline #t)
(use-colorized #t))))
(define home-xmodmap-service
(service home-xmodmap-service-type
(home-xmodmap-configuration
(pointer '(3 2 1))
(extra '("remove Mod5 = ISO_Level3_Shift"
"keycode 108 = Alt_L"
"add Mod1 = Alt_L"
"remove mod4 = Super_R"
"keycode 134 = Hyper_R"
"add mod3 = Hyper_R")))))
(define home-openssh-service
(service home-openssh-service-type
(home-openssh-configuration
(hosts (list (openssh-host
fix(openssh-service): Change the name of my ssh connection This had my setup broken for weeks because it wouldn't recognize ryuslash.org as a configured host anymore.
2023-03-31 07:37:25 +02:00
(name "ryuslash.org")
Switch rincewind over to using Guix Home
2022-09-27 01:05:48 +02:00
(host-name "ryuslash.org")
(user "slash")
(port 4511)
(extra-content "LocalForward 8090 localhost:8090
LocalForward 2812 localhost:2812"))
(openssh-host
(name "rincewind")
(host-name "192.168.1.135")
(port 4511)))))))
(define home-kitty-service
(service home-kitty-service-type
(home-kitty-configuration
(configuration
'((font-family . "Fantasque Sans Mono")
(bold-font . "Fantasque Sans Mono Bold")
(italic-font . "Fantasque Sans Mono Italic")
(bold-italic-font . "Fantasque Sans Mono Bold Italic")
(font-size . 14)
(symbol-map . "U+f002 Font Awesome 5 Free Solid")
(cursor-shape . beam)
(cursor-blink-interval . 0)
(url-style . single)
(open-url-with . firefox)
(copy-on-select . #f)
(enable-audio-bell . #f)
(visual-bell-duration . 0)
(window-padding-width . 11.25)
(active-tab-font-style . normal)
(editor . emacsclient)
(allow-remote-control . #t)
(enabled-layouts vertical stack tall fat grid horizontal)
(cursor . "#969696")
(url-color . "#a88654")
(active-border-color . "#1f2c3f")
(inactive-border-color . "#3d3d3d")
(bell-border-color . "#3f1a1a")
(active-tab-foreground . "#65a854")
(active-tab-background . "#1f2c3f")
(inactive-tab-foreground . "#65a854")
(inactive-tab-background . "#3d3d3d")
(foreground . "#bfbfbf")
(background . "#222424")
(selection-foreground . "#222424")
(selection-background . "#7126a3f0f01f")
(color0 . "#222222")
(color8 . "#3d3d3d")
(color1 . "#ca3c828e828e")
(color9 . "#f01f71267126")
(color2 . "#90e4ca3c828e")
(color10 . "#8a8bf01f7126")
(color3 . "#bbe6ca3c828e")
(color11 . "#d6baf01f7126")
(color4 . "#828e9f3aca3c")
(color12 . "#7126a3f0f01f")
(color5 . "#bbe6828eca3c")
(color13 . "#d6ba7126f01f")
(color6 . "#828eca3cca3c")
(color14 . "#7126f01ff01f")
(color7 . "#969696")
Add keybindings like the ones in Emacs for kitty window management
2023-06-01 07:53:14 +02:00
(color15 . "#ededed")
;; This doesn't appear to work.
; (map . "ctrl+alt+o focus_visible_window")
(map . "alt+2 new_window")
(map . "alt+0 close_window"))))))
Reference in a new issue Copy permalink