(define-module (oni home config common) #: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 home-xbindkeys-service home-zsh-service home-guile-service home-xmodmap-service home-openssh-service home-kitty-service)) (define home-redshift-service (service home-redshift-service-type (home-redshift-configuration (location-provider 'manual) (latitude 49.2127205) (longitude -122.9267927)))) (define home-xbindkeys-service (service home-xbindkeys-service-type (home-xbindkeys-configuration (keybindings '(((mod4 q) . "shutdown-rofi") ((mod4 k) . "hersbtclient close") ((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" "alias reco=\"pushd ~/projects/new-dotfiles/ && guix home reconfigure config.scm; popd\"\n" "alias abcde=\"guix shell abcde -- abcde\"\n" "setopt SHARE_HISTORY\n" "setopt HIST_IGNORE_ALL_DUPS\n" "setopt HIST_IGNORE_SPACE\n" "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" "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" "PROMPT=\"%T \\$(spwd) %B%(?.%F{2}.%F{1}[%?])>%b%f \"") (local-file "zsh/guix-environment.zsh")))))) (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 (name "ryuslash.org") (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") (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") ;; Find any "View build log messages" from guix and open the ;; build log in Emacs. (map . "ctrl+shift+g kitten hints --type=regex --regex=\\\"View build log at '([^']+)'\\.\\\" --program=\\\"emacsclient\\\""))))))