+Support for: $W->{"css_push"}

[www.jankratochvil.net.git] / project / captive / doc / Macros.pm

diff --git a/project/captive/doc/Macros.pm b/project/captive/doc/Macros.pm
index 3538249..c247d6f 100755 (executable)
--- a/project/captive/doc/Macros.pm
+++ b/project/captive/doc/Macros.pm
@@ -105,16 +105,12 @@ sub init ($%)
 {
 my($class,%args)=@_;
 
-       $args{"__PACKAGE__"}||=caller();
-       %args=(
-                       "rel_start"=>"..",
-                       "rel_up"=>".",
-                       %args);
        My::Web->init(
-                       "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Macros.css") ]}" />
-HERE
+                       "css_push"=>"./Macros.css",
                        "heading_novskip"=>1,
+                       "rel_start"=>"..",      # possibly overridable
+                       "rel_up"=>".",  # possibly overridable
+                       "__PACKAGE__"=>caller(),        # possibly overridable
                        %args,
                        );