New stow hierarchy

1 files changed, 25 insertions, 0 deletions

diff --git a/clfswm/.config/clfswm/clfswmrc b/clfswm/.config/clfswm/clfswmrc
new file mode 100644
index 0000000..f69623e
--- /dev/null
+++ b/clfswm/.config/clfswm/clfswmrc
@@ -0,0 +1,25 @@
+;; -*- mode: lisp; -*-
+(in-package :clfswm)
+
+(defun start-i3lock ()
+  "Run i3lock"
+  (do-shell "exec i3lock -c 000000"))
+
+(defun start-i3lock-2 ()
+  "Run i3lock in second mode"
+  (setf *second-mode-leave-function* 'start-i3lock)
+  (leave-second-mode))
+
+(defun my-bindings ()
+  (define-main-key ("l" :mod-1 :control) 'start-i3lock)
+  (define-second-key ("l" :mod-1 :control) 'start-i3lock-2))
+
+(add-hook *binding-hook* 'my-bindings)
+
+;; (defun my-init-hook ()
+;;   (add-frame (create-frame :name "The Gimp" :x 0.6 :y 0 :w 0.3 :h 0.2) *root-frame*))
+
+;;y (add-hook *init-hook* 'my-init-hook)
+
+;;(setf *frame-background* "#252a2b")
+;;(setf *frame-foreground* "#eeeeec")