alpha
/
dotfiles
1
0
Fork 0
Code Issues 15 Pull Requests Packages Projects Releases Wiki Activity

mu

Browse Source
pull/2/head
Alpha Chen 2 years ago
parent 6377f5b709
commit 6dc9241a07
No known key found for this signature in database
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

16
.hammerspoon/init.fnl
Unescape View File

@ -79,14 +79,14 @@
(accumulate [docked? false _ v (pairs (hs.usb.attachedDevices)) &until docked?] (accumulate [docked? false _ v (pairs (hs.usb.attachedDevices)) &until docked?]
(or docked? (= v.productName "CalDigit Thunderbolt 3 Audio")))) (or docked? (= v.productName "CalDigit Thunderbolt 3 Audio"))))
(local key-light-air-watcher (let [{: watcher} hs.caffeinate] (local key-light-air-watcher (let [{: watcher} hs.caffeinate
(: (watcher.new #(when (docked?) w (watcher.new #(when (docked?)
(match $1 (match $1
watcher.screensDidLock (update-key-light-air false) watcher.screensDidLock (update-key-light-air false)
watcher.screensDidSleep (update-key-light-air false) watcher.screensDidSleep (update-key-light-air false)
watcher.screensDidUnlock (update-key-light-air true) watcher.screensDidUnlock (update-key-light-air true)
watcher.screensDidWake (update-key-light-air true)))) watcher.screensDidWake (update-key-light-air true))))]
:start))) (w:start)))
; (local usb-watcher (: (hs.usb.watcher.new #(let [{: eventType : productName} $1] ; (local usb-watcher (: (hs.usb.watcher.new #(let [{: eventType : productName} $1]
; (when (= productName ; (when (= productName

Write Preview
Loading…
Cancel
Save