added .config files

.config/stumpwm/config

@@ -0,0 +1,115 @@
+(in-package :stumpwm)
+;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")
+
+;; StumpWM Modules
+;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps")
+;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts")
+;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray")
+;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts")
+
+(run-commands
+ "gnewbg I"
+ "gnew II"
+ "gnewbg III"
+ "gnewbg IV"
+ "gnewbg V"
+ "gnewbg-float F")
+
+;; (set-prefix-key (kbd "s-d"))
+
+;; (setf *mouse-focus-policy* :click)
+
+;; (setq *message-window-gravity* :top)
+;; (setq *message-window-padding* 10)
+;; (setq *message-window-y-padding 10)
+
+;; (setq *input-window-gravity* :center)
+
+;; (load-module "kbd-layouts")
+
+;; (run-shell-command "xmodmap ~/Dotfiles/.config/Xmodmap")
+
+;; Set some super key bindings
+(define-key *top-map* (kbd "s-h") "move-focus left")
+(define-key *top-map* (kbd "s-l") "move-focus right")
+(define-key *top-map* (kbd "s-j") "move-focus down")
+(define-key *top-map* (kbd "s-k") "move-focus up")
+
+(define-key *top-map* (kbd "s-H") "move-window left")
+(define-key *top-map* (kbd "s-L") "move-window right")
+(define-key *top-map* (kbd "s-J") "move-window down")
+(define-key *top-map* (kbd "s-K") "move-window up")
+
+(define-key *top-map* (kbd "s-f") "fullscreen")
+(define-key *top-map* (kbd "s-r") "iresize")
+(define-key *top-map* (kbd "s-Q") "delete")
+(define-key *top-map* (kbd "s-SPC") "run-shell-command emacsclient -e \"(call-interactively #'app-launcher-run-app)\"")
+(define-key *top-map* (kbd "s-L") "run-shell-command slock")
+(define-key *top-map* (kbd "s-RET") "run-shell-command alacritty")
+(define-key *top-map* (kbd "s-E") "run-shell-command emacs")
+(define-key *top-map* (kbd "s-W") "run-shell-command firefox")
+
+(define-key *top-map* (kbd "s-TAB") "next-in-frame")
+(define-key *top-map* (kbd "s-S-TAB") "prev-in-frame")
+
+(define-key *top-map* (kbd "s-1") "gselect I")
+(define-key *top-map* (kbd "s-2") "gselect II")
+(define-key *top-map* (kbd "s-3") "gselect III")
+(define-key *top-map* (kbd "s-4") "gselect IV")
+(define-key *top-map* (kbd "s-5") "gselect V")
+
+(define-key *top-map* (kbd "s-!") "gmove I")
+(define-key *top-map* (kbd "s-@") "gmove II")
+(define-key *top-map* (kbd "s-#") "gmove III")
+(define-key *top-map* (kbd "s-$") "gmove IV")
+(define-key *top-map* (kbd "s-%") "gmove V")
+
+;; Brightness and volume
+;; (define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
+;; (define-key *top-map* (kbd "XF86MonBrightnessUp") "run-shell-command brightnessctl set +5%")
+;; (define-key *top-map* (kbd "XF86AudioLowerVolume") "run-shell-command amixer set Master 3%- unmute")
+;; (define-key *top-map* (kbd "XF86AudioRaiseVolume") "run-shell-command amixer set Master 3%+ unmute")
+;; (define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
+
+;; Set UI colors
+(set-border-color "#c792ea")
+(set-bg-color "#232635")
+(set-fg-color "#A6Accd")
+;; (set-msg-border-width 2)
+
+;; (load-module "swm-gaps")
+;; (setf swm-gaps:*inner-gaps-size* 3)
+;; (run-commands "toggle-gaps-on")
+
+;; Enable TTF fonts
+;; (load-module "ttf-fonts")
+;; (setf xft:*font-dirs* '("/home/opal/.guix-home/profile/share/fonts/"))
+;; (setf clx-truetype:+font-cache-filename+ "/home/daviwil/.local/share/fonts/font-cache.sexp")
+;; (xft:cache-fonts)
+
+;; (set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))
+
+;; ;; Set mode line colors
+;; (setf *mode-line-background-color* "#232635")
+;; (setf *mode-line-foreground-color* "#A6Accd")
+
+;; ;; Set the mode line format
+;; (setf *screen-mode-line-format* "[^B%n^b] %W ^>%d")
+;; (run-commands "mode-line" "mode-line")
+
+;; ;; Start the mode line
+;; (run-commands "mode-line")
+
+;; ;; Add the system tray module
+;; (load-module "stumptray")
+;; (stumptray:stumptray)
+
+;; (run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
+;; (run-shell-command "dunst")
+;; (run-shell-command "nm-applet")
+;; (run-shell-command "syncthing-gtk --minimized")
+;; (run-shell-command "redshift -l 37.983810:23.727539 -t 6500:3500")
+;; (run-shell-command "emacs")
+
+(require :slynk)
+(slynk:create-server :dont-close t)