Move base-style() method to base-class

Author: dwarring

docs/CSS/TagSet.md

@@ -2,6 +2,10 @@
  / [[CSS-TagSet]](https://css-raku.github.io/CSS-TagSet-raku)
  / [CSS::TagSet](https://css-raku.github.io/CSS-TagSet-raku/CSS/TagSet)
 
+
+
+interface role for tagsets
+
 Name
 ----
 
@@ -35,13 +39,13 @@ Default method to parse an inline style associated with the tag, typically the i
 
     method tag-style(Str $tag, Str *%atts) returns CSS::Properties
 
-Abstract method to compute a specific style, based on a tag-name and any additional tag attributes. This method must be implemented, by the class instance.
+Computes a specific style, based on a tag-name and any additional tag attributes. This method must be implemented, by the class instance.
 
 By convention, this method vivifies a new empty [CSS::Properties](https://css-raku.github.io/CSS-Properties-raku/CSS/Properties) object, if the tag was previously unknown.
 
 ### method base-style
 
-    method tag-style(str $tag) returns CSS::Properties
+    method base-style(str $tag) returns CSS::Properties
 
-Abstract rule to 
+Return the basic style for the tag.
 

docs/index.md

@@ -65,6 +65,6 @@ Classes
 
   * [CSS::TagSet::Pango](https://css-raku.github.io/CSS-TagSet-raku/CSS/TagSet/Pango) - Implements Pango styling
 
-  * [CSS::TagSet::TaggedPDF](https://css-raku.github.io/CSS-TagSet-raku/CSS/TagSet/TaggedPDF) - (*UNDER CONSTRUCTION*) Implements Tagged PDF styling
+  * [CSS::TagSet::TaggedPDF](https://css-raku.github.io/CSS-TagSet-raku/CSS/TagSet/TaggedPDF) - Implements Tagged PDF styling
 
 

lib/CSS/TagSet.rakumod

@@ -5,6 +5,11 @@ use CSS::Media;
 use CSS::Properties;
 use CSS::Stylesheet;
 use CSS::Writer;
+has CSS::Properties %.props;
+has %.tags;
+has CSS::Module $.module = CSS::Module::CSS3.module;
+
+method media { ... }
 
 sub load-css-tagset($tag-css, CSS::Media :$media!, :%tags!, |c) is export(:load-css-tagset) {
     my CSS::Stylesheet $style-sheet;
@@ -58,7 +63,9 @@ method inline-style(Str $, Str :$style) {
     CSS::Properties.new(:$.module, :$style);
 }
 
-method base-style(|c) { ... }
+method base-style(Str $tag) {
+    %.props{$tag} //= CSS::Properties.new: :$.module, declarations => %.tags{$tag} // [];
+}
 
 =begin pod
 
@@ -94,14 +101,14 @@ from the  `style` attribute.
 
     method tag-style(Str $tag, Str *%atts) returns CSS::Properties
 
-Abstract method to compute a specific style, based on a tag-name and any additional tag attributes. This method must be implemented, by the class instance.
+Computes a specific style, based on a tag-name and any additional tag attributes. This method must be implemented, by the class instance.
 
 By convention, this method vivifies a new empty L<CSS::Properties> object, if the tag was previously unknown.
 
 =head3 method base-style
 
-    method tag-style(str $tag) returns CSS::Properties
+    method base-style(str $tag) returns CSS::Properties
 
-Abstract rule to 
+Return the basic style for the tag.
 
 =end pod

lib/CSS/TagSet/Pango.rakumod

@@ -8,10 +8,7 @@ use CSS::Module::CSS3;
 use CSS::Properties;
 use CSS::Units;
 
-has CSS::Module $.module = CSS::Module::CSS3.module;
-has CSS::Properties %!props;
 has CSS::Media $.media .= new: :type<screen>;
-has %!tags;
 
 submethod TWEAK(IO() :$style-sheet) {
     my %CustomProps = %(
@@ -92,10 +89,6 @@ method load-stylesheet(IO() $_) {
 
 method declarations { %!tags }
 
-method base-style(Str $tag) {
-    %!props{$tag} //= CSS::Properties.new(:$!module, declarations => %!tags{$tag}) // [];
-}
-
 # mapping of Pango attributes to CSS properties
 has %!SpanProp = %(
     background => 'background-color',

lib/CSS/TagSet/TaggedPDF.rakumod

@@ -9,10 +9,7 @@ use CSS::Module::CSS3;
 use CSS::Properties;
 use CSS::Units :pt;
 
-has CSS::Module $.module = CSS::Module::CSS3.module;
 has CSS::Media $.media .= new: :type<print>;
-has CSS::Properties %!props;
-has %!tags;
 
 submethod TWEAK(IO() :$style-sheet) {
     my %CustomProps = %(
@@ -37,10 +34,6 @@ method load-stylesheet(IO() $_) {
 
 method declarations { %!tags }
 
-method base-style(Str $tag) {
-    %!props{$tag} //= CSS::Properties.new: :$!module, declarations => %!tags{$tag} // []; 
-}
-
 sub snake-case($s) {
     $s.split(/<?after .><?before <[A..Z]>>/)».lc.join: '-'
 }
@@ -90,7 +83,7 @@ method tag-style($tag, *%attrs --> CSS::Properties:D) {
                 $css."$_"() = $value;
             }
             when HashMap {
-                $css."{.key}"() = $_ with .value{$value}; 
+                $css."{.key}"() = $_ with .value{$value};
             }
             when Code {
                 with .($key, $value) -> $kv {

lib/CSS/TagSet/XHTML.rakumod

@@ -8,11 +8,8 @@ use CSS::Module::CSS3;
 use CSS::Properties;
 use URI;
 
-has CSS::Properties %!props;
 has CSS::Media $.media .= new: :type<screen>;
 has SetHash %!link-pseudo;
-has CSS::Module $.module = CSS::Module::CSS3.module;
-has %!tags;
 
 submethod TWEAK(IO() :$style-sheet) {
     my %CustomProps = %(
@@ -41,10 +38,6 @@ method load-stylesheet(IO() $_) {
 
 method declarations { %!tags }
 
-method base-style(Str $prop) {
-    %!props{$prop} //= CSS::Properties.new(:$!module, declarations => %!tags{$prop} // []);
-}
-
 # mapping of HTML attributes to CSS properties
 constant %AttrProp = %(
     align         => '-xhtml-align',