blob: f69623eccc618187718c8169f74fd443e90277ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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")
|
