diff options
| author |  Tom Willemse | 2026-07-08 01:34:58 -0700 |
|---|---|---|
| committer | Tom Willemse | 2026-08-26 23:04:25 -0700 |
| commit | ee5957e0322d02147be0be4dba079df30a09f6a5 (patch) | |
| tree | 3dff0c2cf026819cd8c57af301f4e16520769071 | |
| parent | 5aa8d484f27883778ccd105e034f8bcd8bfe48a2 (diff) | |
| download | new-dotfiles-ee5957e0322d02147be0be4dba079df30a09f6a5.tar.gz new-dotfiles-ee5957e0322d02147be0be4dba079df30a09f6a5.zip | |
hammerspoon: Update debugging info method
| -rw-r--r-- | hammerspoon/.hammerspoon/init.fnl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/hammerspoon/.hammerspoon/init.fnl b/hammerspoon/.hammerspoon/init.fnl index 15640c5..0f7b2ee 100644 --- a/hammerspoon/.hammerspoon/init.fnl +++ b/hammerspoon/.hammerspoon/init.fnl @@ -1,10 +1,11 @@ -(fn show-window-title [] +(fn show-window-information [] (let [window (hs.window.focusedWindow)] (if (= window nil) (hs.alert.show "no window") - (hs.alert.show (: (hs.window.focusedWindow) :title))))) + (hs.alert.show (.. "Title: " (window:title) "\n" + "Application: " (: (window:application) :name)))))) -(hs.hotkey.bind ["cmd" "alt" "ctrl"] "e" show-window-title) +(hs.hotkey.bind ["cmd" "alt" "ctrl"] "e" show-window-information) (hs.hotkey.bind ["cmd" "shift"] "r" hs.reload) ;;; Layout -- Automatically put windows in their place. |