diff options
author | Tom Willemsen | 2012-10-12 08:52:53 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-10-12 08:52:53 +0200 |
commit | 77c39ea0f082446f21981bd0876a4f1fde3c4807 (patch) | |
tree | 8843848d7c92d6be20a3e23bd22c0c9e5218022d /.config/clfswm | |
parent | 8bcf0ae40fc2e9c6565567131218029768859839 (diff) | |
parent | 1f3bdb9e4490e20aefd7038a507aee50c76728dc (diff) | |
download | dotfiles-77c39ea0f082446f21981bd0876a4f1fde3c4807.tar.gz dotfiles-77c39ea0f082446f21981bd0876a4f1fde3c4807.zip |
Merge remote-tracking branch 'origin/master' into phoenix
Conflicts:
.config/cower/config
.emacs.d/init.el
Diffstat (limited to '.config/clfswm')
-rw-r--r-- | .config/clfswm/clfswmrc | 25 |
1 files changed, 25 insertions, 0 deletions
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") |