SMTP: making smtp_send_line() public

Web: adding attr() alternative to Text_Option type

SMTP: making smtp_send_line() public
Web: adding attr() alternative to Text_Option type
Cédric RICARD
1 parent 52b0927f
Showing 2 changed files with 6 additions and 2 deletions Show diff stats
calexium_lib/mail/smtp_client.anubis
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -202,7 +202,7 @@ define Result(SmtpClientResult, $T)
    Sending a piece of text (String) from the begining. 
-define Maybe(One)
+public define Maybe(One)
   smtp_send_line
   (
     RWStream  conn,
@@ -650,7 +650,8 @@ public type Text_Option:
    class(String),         //CSS class 
    id(String),
    style(String),
-   title(String).
+   title(String),
+   attr(String, String).
 public define Text_Option
   tooltip(String s) = title(s).
@@ -2997,6 +2998,8 @@ define List(CoreAttrs)
        [ style(the_style) .  get_css_class(t) ]
       else if h is title(name) then
        [ tooltip(name) .  get_css_class(t) ]
+      else if h is attr(name, value) then
+       [ attr(name, value) .  get_css_class(t) ]
       else
         get_css_class(t)
   }
@@ -3644,6 +3647,7 @@ define String
            id(id_name)      then " id=\"" + id_name +"\"",
            style(style_string)  then " style=\"" + style_string + "\"",
            title(s)         then " title=\"" + s +"\""
+           attr(n,v)        then " " + n + "=\"" + v +"\""
          } + if t is [ ] then "" else ("; "+format(t))
      }.