re-add config
This commit is contained in:
parent
f7bda86058
commit
3ed7b2eac6
|
@ -0,0 +1,31 @@
|
|||
;; you can just use modules like in regular guile
|
||||
|
||||
;; (defrule (callback key arg body ...)
|
||||
;; (bind key (lambda arg
|
||||
;; body ...)))
|
||||
;; (import :std/sugar)
|
||||
|
||||
;; (defrule (on-release key body ...)
|
||||
;; (bind key (lambda (type)
|
||||
;; (when (= type 0)
|
||||
;; body)
|
||||
;; ...)))
|
||||
|
||||
;; ;; key A
|
||||
;; (on-release 30
|
||||
;; (run-process ["notify-send" "oof"])
|
||||
;; (exit))
|
||||
|
||||
(import :std/format ;; "./lib.ss"
|
||||
)
|
||||
|
||||
;; (export #t)
|
||||
|
||||
(eprintf "test\n")
|
||||
(def k 1)
|
||||
;; key Left Control
|
||||
;; (bind! 29
|
||||
;; (lambda (type)
|
||||
;; ;; we turn on the led on key press and turn it off when released
|
||||
;; (when (< type 2)
|
||||
;; (led! 0 type))))
|
Loading…
Reference in New Issue