From 8803c4ae3d0a504feea75d7e482303e1ef0419e2 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Sun, 3 Mar 2024 12:01:34 -0500
Subject: [PATCH] update font-css

---
 doc/clog-manual.html     | 7 +++++++
 source/clog-element.lisp | 6 ++++++
 source/clog.lisp         | 2 --
 3 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/doc/clog-manual.html b/doc/clog-manual.html
index db7246a..39ad976 100644
--- a/doc/clog-manual.html
+++ b/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>
diff --git a/source/clog-element.lisp b/source/clog-element.lisp
index 4c34335..57ca1bd 100644
--- a/source/clog-element.lisp
+++ b/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"))
 
diff --git a/source/clog.lisp b/source/clog.lisp
index f6ea093..2361837 100644
--- a/source/clog.lisp
+++ b/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)