Deprecated and private (?) slots recieve appropriate CSS classes

superbobry · Apr 18, 2010 · 2165e2c · 2165e2c
1 parent 2469f8a
commit 2165e2c
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 3 deletions.
diff --git a/DocFormatter.io b/DocFormatter.io
@@ -60,10 +60,17 @@ DocFormatter := Object clone prependProto(ProgressMixIn) do(
             E div(class="ref-slots")
         )
         meta slots keys sort foreach(slot,
+            description := meta slots at(slot)
+            class := if(description beginsWithSeq("Deprecated"),
+                "deprecated"
+            ,
+                if(description beginsWithSeq("Private"),
+                    "private", nil)
+            )
             details insert(
-                E dl(id=slot beforeSeq("("), # Check for deprecation?
+                E dl(id=slot beforeSeq("("), class=class,
                     E dt(slot),
-                    E dd(meta slots at(slot))
+                    E dd(description)
                 )
             )
         )

diff --git a/css/style.css b/css/style.css
@@ -101,4 +101,7 @@ h2 {
 .ref-slots dd { 
     margin-left: 2em; 
     margin-top: .8em;
-}
+}
+
+.deprecated { color: #5555AA; }
+.private { color: #888888; }