update font-css

doc/clog-manual.html

@@ -2327,6 +2327,13 @@ A list of standard cursor types can be found at:
 
 <p>Get/Setf font.</p></li>
 </ul>
+<p><a id="x-28CLOG-3AFONT-CSS-20GENERIC-FUNCTION-29"></a>
+<a id="CLOG:FONT-CSS%20GENERIC-FUNCTION"></a></p>
+<ul>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#CLOG:FONT-CSS%20GENERIC-FUNCTION" >FONT-CSS</a></span></span> <span class="locative-args">VALUE</span></span></p>
+
+<p>Get/Setf font raw css value</p></li>
+</ul>
 <p><a id="x-28CLOG-3ASET-FONT-20GENERIC-FUNCTION-29"></a>
 <a id="CLOG:SET-FONT%20GENERIC-FUNCTION"></a></p>
 <ul>

source/clog-element.lisp

@@ -2150,6 +2150,12 @@ A list of standard cursor types can be found at:
         (format nil "~A ~A ~A ~A ~A"
                 font-style font-variant font-weight font-height font-family)))
 
+(defgeneric font-css (value)
+  (:documentation "Get/Setf font raw css value"))
+
+(defmethod font-css ((obj clog-element))
+  (style obj "font"))
+
 (defgeneric (setf font-css) (value clog-element)
   (:documentation "Set font VALUE for CLOG-ELEMENT"))
 

source/clog.lisp

@@ -360,8 +360,6 @@ embedded in a native template application.)"
   (font-variant-type          type)
   (system-font-type           type)
   (font                       generic-function)
-  ;; This is not defined.
-  #+nil
   (font-css                   generic-function)
   (set-font                   generic-function)
   (text-alignment-type        type)