From d1ca763c928f706f0c04e2dd14079f991ba028cb Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 13 Oct 2022 13:06:14 -0700 Subject: Fix typo --- oni/home/common/config.scm | 203 ------------------------------------------- oni/home/common/services.scm | 2 - 2 files changed, 205 deletions(-) delete mode 100644 oni/home/common/config.scm delete mode 100644 oni/home/common/services.scm (limited to 'oni/home/common') diff --git a/oni/home/common/config.scm b/oni/home/common/config.scm deleted file mode 100644 index ccd29f3..0000000 --- a/oni/home/common/config.scm +++ /dev/null @@ -1,203 +0,0 @@ -(define-module (oni home common config) - #: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) - #:use-module (oni home services compton) - - #:export (home-redshift-service - home-xbindkeys-service - home-zsh-service - home-guile-service - home-xmodmap-service - home-openssh-service - home-kitty-service - home-picom-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 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" - "setopt SHARE_HISTORY\n" - "setopt HIST_IGNORE_ALL_DUPS\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" - "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 - (name "ryuslash") - (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")))))) - -(define home-picom-service - (service home-picom-service-type - (home-picom-configuration - (config - '((detect-transient . #t) - (shadow . #t) - (wintypes ((dnd ((shadow . #f))) - (dock ((shadow . #f))))) - (shadow-radius . 10) - (shadow-exclude ("name = 'mowedline'" - "class_g = 'trayer'" - "bounding_shaped"))))))) diff --git a/oni/home/common/services.scm b/oni/home/common/services.scm deleted file mode 100644 index eb3a3d8..0000000 --- a/oni/home/common/services.scm +++ /dev/null @@ -1,2 +0,0 @@ -(define-module (oni home common services) - #:use-module (oni home services rofi)) -- cgit v1.2.3-54-g00ecf