Anubis / Xlib

Commit 5f6cc89a9720cf2a3cd30db91e86c8339de02af1

Authored by Cédric RICARD
1 parent 52b0927f

SMTP: making smtp_send_line() public 

Web: adding attr() alternative to Text_Option type
Showing 2 changed files with 6 additions and 2 deletions   Show diff stats
Inline Side-by-side
calexium_lib/mail/smtp_client.anubis
  Show/Hide comments   View file @5f6cc89
... ... @@ -202,7 +202,7 @@ define Result(SmtpClientResult, $T)
202 202  
203 203 Sending a piece of text (String) from the begining.
204 204  
205   -define Maybe(One)
  205 +public define Maybe(One)
206 206 smtp_send_line
207 207 (
208 208 RWStream conn,
... ...
calexium_lib/web/CXM_making_a_web_site.anubis
  Show/Hide comments   View file @5f6cc89
... ... @@ -650,7 +650,8 @@ public type Text_Option:
650 650 class(String), //CSS class
651 651 id(String),
652 652 style(String),
653   - title(String).
  653 + title(String),
  654 + attr(String, String).
654 655  
655 656 public define Text_Option
656 657 tooltip(String s) = title(s).
... ... @@ -2997,6 +2998,8 @@ define List(CoreAttrs)
2997 2998 [ style(the_style) . get_css_class(t) ]
2998 2999 else if h is title(name) then
2999 3000 [ tooltip(name) . get_css_class(t) ]
  3001 + else if h is attr(name, value) then
  3002 + [ attr(name, value) . get_css_class(t) ]
3000 3003 else
3001 3004 get_css_class(t)
3002 3005 }
... ... @@ -3644,6 +3647,7 @@ define String
3644 3647 id(id_name) then " id=\"" + id_name +"\"",
3645 3648 style(style_string) then " style=\"" + style_string + "\"",
3646 3649 title(s) then " title=\"" + s +"\""
  3650 + attr(n,v) then " " + n + "=\"" + v +"\""
3647 3651 } + if t is [ ] then "" else ("; "+format(t))
3648 3652 }.
3649 3653  
... ...