Add more arguments to hs.application.find() to allow hs.application.g…

…et() to work more as expected. Closes #3423 (#3425)

extensions/application/application.lua

@@ -100,10 +100,10 @@ objectMT.name=objectMT.title
 --- Notes:
 --- * see also `hs.application.find`
 function application.get(hint)
- return tpack(application.find(hint,false),nil)[1] -- just to be sure, discard extra results
+ return tpack(application.find(hint,false,true),nil)[1] -- just to be sure, discard extra results
 end
 
---- hs.application.find(hint) -> hs.application object(s)
+--- hs.application.find(hint, exact, stringLiteral) -> hs.application object(s)
 --- Constructor
 --- Finds running applications
 ---
@@ -113,6 +113,8 @@ end
 --- - a bundle ID string as per `hs.application:bundleID()`
 --- - a string pattern that matches (via `string.find`) the application name as per `hs.application:name()` (for convenience, the matching will be done on lowercased strings)
 --- - a string pattern that matches (via `string.find`) the application's window title per `hs.window:title()` (for convenience, the matching will be done on lowercased strings)
+--- * exact - a boolean, true to check application names for exact matches, false to use Lua's string:find() method. Defaults to false
+--- * stringLiteral - a boolean, true to interpret the hint string literally, false to interpret it as a Lua Pattern. Defaults to false.
 ---
 --- Returns:
 --- * one or more hs.application objects for running applications that match the supplied search criterion, or `nil` if none found
@@ -136,7 +138,7 @@ end
 --- -- by window title
 --- hs.application'bash':name() --> Terminal
 local findSpotlightWarningGiven = false
-function application.find(hint,exact)
+function application.find(hint,exact,stringLiteral)
  if hint==nil then return end
  local typ=type(hint)
  if typ=='number' then return application.applicationForPID(hint)
@@ -146,7 +148,7 @@ function application.find(hint,exact)
  local apps=application.runningApplications()
 
  if exact then for _,a in ipairs(apps) do if a:name()==hint then r[#r+1]=a end end
- else for _,a in ipairs(apps) do local aname=a:name() if aname and aname:lower():find(hint:lower()) then r[#r+1]=a end end end
+ else for _,a in ipairs(apps) do local aname=a:name() if aname and aname:lower():find(hint:lower(), 0, stringLiteral) then r[#r+1]=a end end end
 
  if spotlightEnabled then
  for _, v in ipairs(table.pack(realNameFor(hint, exact))) do