text-shadow

README.md

@@ -22,7 +22,7 @@ STATUS: CLOG is complete and all work is on higher order additions,
 such as full desktop over the web, database tools,etc. See below for
 some enhacements being worked on. CLOG is actually based on GNOGA, a
 framework I wrote for Ada in 2013 and used in commercial production
-code for the last 8 years, i.e. the techiniques CLOG uses are solid
+code for the last 8+ years, i.e. the techiniques CLOG uses are solid
 and proven.
 
 CLOG is being actively extended daily. Check the github discussion

source/clog-element.lisp

@@ -1889,6 +1889,23 @@ line-width - size or medium|thin|thick|length|initial|inherit"))
   (setf (style obj "box-shadow") value))
 (defsetf box-shadow set-box-shadow)
 
+;;;;;;;;;;;;;;;;;
+;; text-shadow ;;
+;;;;;;;;;;;;;s;;;
+
+(defgeneric text-shadow (clog-element)
+  (:documentation "Get/Setf text-shadow."))
+
+(defmethod text-shadow ((obj clog-element))
+  (style obj "text-shadow"))
+
+(defgeneric set-text-shadow (clog-element value)
+  (:documentation "Set text-shadow. See https://developer.mozilla.org/en-US/docs/Web/CSS/CSS_Background_and_Borders/Text-shadow_generator"))
+
+(defmethod set-text-shadow ((obj clog-element) value)
+  (setf (style obj "text-shadow") value))
+(defsetf text-shadow set-text-shadow)
+
 ;;;;;;;;;;;;;
 ;; outline ;;
 ;;;;;;;;;;;;;

source/clog-gui.lisp

@@ -1440,7 +1440,7 @@ Calls on-input with t if confirmed or nil if canceled."
 						  (client-movement nil)
 						  (html-id nil))
   "Create a form dialog box with CONTENT followed by FIELDS.
-Fields is a list of lists each list has:
+FIELDS is a list of lists each list has:
 
     (1) Field name         - Used for (name attribute)
     (2) Field description  - Used for label
@@ -1453,13 +1453,13 @@ Special field types
    =============  ==================
    :filename      default dir -- NOTE: This is _server_ side!
    :checkbox      t if checked
-   :radiobox      a-list ((label name)) a third value can be used to select
+   :radiobox      a-list ((label name)) a third value can be added \"checked\"
-   :select        a-list ((label name)) a third value can be used to select 
+   :select        a-list ((label name)) a third value can be added \"selected\"
    :text          value
      (any text input types also work :email, :tel, etc.
       see FORM-ELEMENT-TYPE)
 
-Calls on-input after OK or Cancel with a-list of field name to value
+Calls on-input after OK or Cancel with an a-list of field name to value
 if confirmed or nil if canceled."
   (unless html-id
     (setf html-id (clog-connection:generate-id)))

source/clog.lisp

@@ -293,6 +293,7 @@ embedded in a native template application.)"
   (set-border                 generic-function)
   (border-radius              generic-function)
   (box-shadow                 generic-function)
+  (text-shadow                generic-function)
   (outline-style-type         type)
   (outline                    generic-function)
   (set-outline                generic-function)