main
parent
4d87428203
commit
a287e38df9
SSH Key Fingerprint:
SHA256:3fOT8fiYQG/aK9ntivV3Bqtg8AYQ7q4nV6ZgihOA20g
@ -1,81 +1,117 @@
|
||||
;; fennel-ls doesn't support arbitrary allowed globals, so
|
||||
;; unwrap `hs` here to localize it to just one place
|
||||
(local {: application
|
||||
: dialog
|
||||
: eventtap
|
||||
: execute
|
||||
: fs
|
||||
: hotkey
|
||||
:loadSpoon load_spoon
|
||||
: logger
|
||||
: notify
|
||||
: pasteboard
|
||||
: uielement
|
||||
: window} hs)
|
||||
|
||||
(local {: mash : smash : modal-bind} (require :hotkey))
|
||||
|
||||
(local log (hs.logger.new :log :info))
|
||||
(set hs.logger.defaultLogLevel :info)
|
||||
(local log (logger.new :log :info))
|
||||
(set logger.defaultLogLevel :info)
|
||||
|
||||
(set window.animationDuration 0.0)
|
||||
|
||||
(set hs.window.animationDuration 0.0)
|
||||
(hs.loadSpoon :MiroWindowsManager)
|
||||
;; (set spoon.MiroWindowsManager.fullScreenSizes [1 (/ 4 3) 2]) ; only fullscreen
|
||||
(load_spoon :MiroWindowsManager)
|
||||
|
||||
;; fnlfmt: skip
|
||||
(spoon.MiroWindowsManager:bindHotkeys {:up [mash :k]
|
||||
:left [mash :h]
|
||||
:down [mash :j]
|
||||
:right [mash :l]
|
||||
:fullscreen [mash :m]
|
||||
;; :center [mash "c"]
|
||||
;; :move [smash "m"]
|
||||
;; :resize [mash "d"]
|
||||
})
|
||||
(let [{:MiroWindowsManager wm} spoon]
|
||||
(wm:bindHotkeys {:up [mash :k]
|
||||
:left [mash :h]
|
||||
:down [mash :j]
|
||||
:right [mash :l]
|
||||
:fullscreen [mash :m]
|
||||
;; :center [mash "c"]
|
||||
;; :move [smash "m"]
|
||||
;; :resize [mash "d"]
|
||||
})
|
||||
;; (set wm.fullScreenSizes [1 (/ 4 3) 2]) ; only fullscreen
|
||||
)
|
||||
|
||||
;; debugging
|
||||
;; (hs.hotkey.bind mash "d" (fn [] (hs.dialog.blockAlert "message" "text" "one" "two")))
|
||||
;; (hs.hotkey.bind mash "d" (fn [] (hs.dialog.alert 100 100 (fn [] ) "message" "text" "one" "two")))
|
||||
; (hotkey.bind mash "d" #(dialog.blockAlert "message" "text" "one" "two"))
|
||||
|
||||
;; defeat paste blocking
|
||||
(hs.hotkey.bind [:cmd :alt] :v
|
||||
#(hs.eventtap.keyStrokes (hs.pasteboard.getContents)))
|
||||
|
||||
(hs.hotkey.bind mash :e
|
||||
#(let [app (hs.application.frontmostApplication)
|
||||
prev-pasteboard (hs.pasteboard.getContents)
|
||||
e (hs.uielement.focusedElement)
|
||||
text (if e (e:selectedText)
|
||||
(do
|
||||
(hs.eventtap.keyStroke [:cmd] :c)
|
||||
(hs.pasteboard.getContents)))
|
||||
date (hs.execute "date -Iseconds -u | tr -d '\n'")
|
||||
file (.. "~/.quickcursor." date)]
|
||||
(hs.pasteboard.setContents text)
|
||||
(hs.execute (.. "pbpaste > " file))
|
||||
(hs.execute (.. "/opt/homebrew/bin/neovide --nofork " file))
|
||||
(hs.execute (.. "pbcopy < " file))
|
||||
(app:setFrontmost)
|
||||
(hs.eventtap.keyStroke [:cmd] :v)
|
||||
(hs.execute (.. "rm " file))
|
||||
(hs.pasteboard.setContents prev-pasteboard)))
|
||||
|
||||
(fn linkify []
|
||||
(let [app (hs.application.frontmostApplication)
|
||||
prev-pasteboard (hs.pasteboard.getContents)
|
||||
e (hs.uielement.focusedElement)
|
||||
(hotkey.bind [:cmd :alt] :v #(eventtap.keyStrokes (pasteboard.getContents)))
|
||||
|
||||
(fn run [...]
|
||||
(accumulate [last nil _ cmd (ipairs [...])]
|
||||
(execute cmd)))
|
||||
|
||||
(fn with-selection [cb]
|
||||
(let [app (application.frontmostApplication)
|
||||
prev-pasteboard (pasteboard.getContents)
|
||||
e (uielement.focusedElement)
|
||||
text (if e (e:selectedText)
|
||||
(do
|
||||
(hs.eventtap.keyStroke [:cmd] :c)
|
||||
(hs.pasteboard.getContents)))
|
||||
link (.. "[" text "]" "(" prev-pasteboard ")")]
|
||||
(hs.pasteboard.setContents link)
|
||||
(eventtap.keyStroke [:cmd] :c)
|
||||
(pasteboard.getContents)))
|
||||
content (cb text prev-pasteboard)]
|
||||
(pasteboard.setContents content)
|
||||
(app:setFrontmost)
|
||||
(hs.eventtap.keyStroke [:cmd] :v)
|
||||
(hs.pasteboard.setContents prev-pasteboard)))
|
||||
(eventtap.keyStroke [:cmd] :v)
|
||||
(pasteboard.setContents prev-pasteboard)))
|
||||
|
||||
(fn chomp [s]
|
||||
(if (= (s:sub -1) "\n")
|
||||
(s:sub 1 -2)
|
||||
s))
|
||||
|
||||
(modal-bind mash "," nil [[mash :l nil linkify]])
|
||||
(hotkey.bind mash :e
|
||||
#(with-selection (fn [text]
|
||||
(let [home (os.getenv :HOME)
|
||||
date (chomp (run "date -Iseconds -u"))
|
||||
file (.. home :/.quickcursor. date)]
|
||||
(pasteboard.setContents text)
|
||||
(run (.. "pbpaste > " file)
|
||||
(.. "/opt/homebrew/bin/neovide --nofork "
|
||||
file)
|
||||
(.. "pbcopy < " file) (.. "rm " file))
|
||||
(pasteboard.getContents)))))
|
||||
|
||||
(hotkey.bind mash :t #(execute :/opt/homebrew/bin/alacritty))
|
||||
|
||||
(modal-bind mash "," nil
|
||||
[[mash
|
||||
:l
|
||||
nil
|
||||
(fn []
|
||||
(with-selection #(.. "[" $1 "]" "(" $2 ")")))]])
|
||||
|
||||
;;; Elgato Key Light Air
|
||||
|
||||
; package.loaded["key-light-air"]["find-hostname"]()
|
||||
; package.loaded["key-light-air"]["update"](false)
|
||||
;; Run `package.loaded["key-light-air"]["find-hostname"]()`
|
||||
;; to find the hostname of the Key Light Air
|
||||
(require :key-light-air)
|
||||
|
||||
;;; Quitter
|
||||
|
||||
(let [{: start} (require :quitter-fnl)]
|
||||
(start {:Calendar 30
|
||||
:Discord 300
|
||||
:MailMate 600
|
||||
:Messages 300
|
||||
:Reeder 600
|
||||
:Slack 300
|
||||
:Telegram 300}))
|
||||
|
||||
;;; Spoons
|
||||
|
||||
(: (hs.loadSpoon :ReloadConfiguration) :start)
|
||||
(: (load_spoon :ReloadConfiguration) :start)
|
||||
|
||||
;; Local overrides
|
||||
(when (hs.fs.attributes :local.fnl)
|
||||
(when (fs.attributes :local.fnl)
|
||||
(require :local))
|
||||
|
||||
(: (hs.notify.new {:title :Hammerspoon
|
||||
:informativeText "Config loaded"
|
||||
:withdrawAfter 2}) :send)
|
||||
(: (notify.new {:title :Hammerspoon
|
||||
:informativeText "Config loaded"
|
||||
:withdrawAfter 2}) :send)
|
||||
|
||||
|
||||
Loading…
Reference in new issue