examinekey: Added a "file" format variable

For consistency with find, and for easier scripting.

Command/Whereis.hs

@@ -95,10 +95,8 @@ perform o remotemap key ai = do
 		
 			mapM_ (showRemoteUrls remotemap) urls
 		Just formatter -> liftIO $ do
-			let vs = catMaybes
-				[ fmap (("file",) . fromRawFilePath)
-					(actionItemWorkTreeFile ai)
-				] ++ Command.Find.keyVars key
+			let vs = Command.Find.formatVars key
+				(AssociatedFile (actionItemWorkTreeFile ai))
 			let showformatted muuid murl = putStr $
 				Utility.Format.format formatter $
 					M.fromList $ vs ++ catMaybes