From 1b02e9a398dd4c5c9ff409e17540cb1e1a94b9f9 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Thu, 11 Oct 2012 21:26:24 +0200
Subject: .config/clfswm/clfswmrc

---
 .config/clfswm/clfswmrc | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 .config/clfswm/clfswmrc

(limited to '.config/clfswm')

diff --git a/.config/clfswm/clfswmrc b/.config/clfswm/clfswmrc
new file mode 100644
index 0000000..f69623e
--- /dev/null
+++ b/.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")
-- 
cgit v1.2.3-54-g00ecf