ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.config/clfswm/clfswmrc

Browse source
This commit is contained in:
Tom Willemsen 2012-10-11 21:26:24 +02:00
parent 9ec6ce7e74
commit 1b02e9a398
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
.config/clfswm/clfswmrc Normal file
View file

@ -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")