;; -*- 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")