typos and optimizing Property stuff

Author: flip phillips

FPTools/Introspection.wl

@@ -57,7 +57,6 @@ Spelunk[s_String] := CellPrint[fancydefinition[#] &@ToExpression[s, InputForm, U
 SetAttributes[{defboxes, fancydefinition, Spelunk}, HoldFirst] 
 
 
-(* smart property display *)
 PropertiesInfo[thing_] := Module[{props,not},
   (* not = Pick[thing["Properties"], 
     Quiet@Check[thing[#], Missing[#]] & /@ 
@@ -66,7 +65,8 @@ PropertiesInfo[thing_] := Module[{props,not},
   *)
   props = thing["Properties"];
   not = Pick[props,
-    MissingQ//@Check[thing[#], Missing[#]] & /@ props];
+    Quiet[(MissingQ[#]||Head[#]==thing)&
+    //@Check[thing[#], Missing[#]] & /@ props]];
 
   <|"Available"->Complement[props, not],"Missing"->not|>]
 

FPTools/PacletInfo.m

@@ -11,7 +11,7 @@
    (* { "Documentation", MainPage -> "Guides/FPTools", Language -> "English"}, *)
    { "Kernel", 
    Symbols -> {
-    "FPTools`Spelunk","FPTools`ProptertiesInfo","FPTools`PropertiesDataset",
+    "FPTools`Spelunk","FPTools`PropertiesInfo","FPTools`PropertiesDataset",
 
     "FPTools`EntityPropertiesDataset","FPTools`ConceptBroaden","FPTools`ConceptDistance",
 

FPTools/Usage.wl

@@ -1,26 +1,31 @@
+(* ::Package:: *)
+
 (* Introspection *)
 Spelunk::usage = "Spelunk[symbol] will discover the definition of symbol. Underlined symbols in the output are clickable.";
 PropertiesInfo::usage = "PropertiesInfo[symbol] returns the {available, unavailable} properties for symbol.";
 PropertiesDataset::usage = "PropertiesDataset[symbol] returns a TableForm of the available properties for symbol.";
 
+
 (* Entity *)
 EntityPropertiesDataset::usage = "EntityPropertiesDataset[entity] does its best to list all the properties associated with the entity object supplied.";
 ConceptBroaden::usage = "ConceptBroaden[entity,depth] recursively climbs the Concept hierarchy until it hits the terminal Concept 'Entity' or after depth dives. Returns a list of Broader Concepts at each level.";
-ConceptDistance::usage = "ConceptDistance[entitya,entityb] determines the distance in 'concept steps' between concept a and b."
+ConceptDistance::usage = "ConceptDistance[entitya,entityb] determines the distance in 'concept steps' between concept a and b.";
+
+
 (* Image *)
 FPImageIdentify::usage = "FPImageIdentify[image,n] does the standard image identify returnig n (default 5) items and its probabilities.";
 
-(* Internet *)
-$MachineAddressesExternal::usage = "$MachineAddressesExternal gives the IP address of this machine as seen by the outside world."
 
-(* Sugar *)
-ApplyIf::usage = "ApplyIf[f,g,x] applies g to x if f[x] is True."
+(* Internet *)
+$MachineAddressesExternal::usage = "$MachineAddressesExternal gives the IP address of this machine as seen by the outside world.";
 
-(* Versioning *)
-FPVersionInfo::usage = "FPVersionInfo[path] gives an association with my primitive home grown versioning system."
 
-FPVersionString::usage = "FPVersionString[path] returns the current build as a string. the option \"Build->True\" adds the build number to the end of the string."
+(* Sugar *)
+ApplyIf::usage = "ApplyIf[f,g,x] applies g to x if f[x] is True.";
 
-FPWriteVersionInfo::usage = "FPWriteVersionInfo[path,vi] takes a version information structure and writes it out. At this point it doesn't validate its structure."
 
-FPVersionBumpBuild::usage = "FPVersionBumpBuild[path] updates the build number in the version json file."
+(* Versioning *)
+FPVersionInfo::usage = "FPVersionInfo[path] gives an association with my primitive home grown versioning system.";
+FPVersionString::usage = "FPVersionString[path] returns the current build as a string. the option \"Build->True\" adds the build number to the end of the string.";
+FPWriteVersionInfo::usage = "FPWriteVersionInfo[path,vi] takes a version information structure and writes it out. At this point it doesn't validate its structure.";
+FPVersionBumpBuild::usage = "FPVersionBumpBuild[path] updates the build number in the version json file.";

version.json

@@ -3,6 +3,6 @@
   "major_version": 0,
   "minor_version": 1,
   "revision_number": 4,
-  "build_number": 15,
-  "date": "Sun Mar 11 19:55:47 EDT 2018"
+  "build_number": 20,
+  "date": "Sun Mar 11 22:24:06 EDT 2018"
 }