diff options
| -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. |