25 lines
667 B
Common Lisp
25 lines
667 B
Common Lisp
;; -*- 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")
|