Anubis / Xlib

Commit 9446f71c49f31cb8fafebca16a249dee0a8fdddf

Authored by David RENÉ
1 parent 3b29cef2

add bool_attr boolean attribute in HTML CoreAttribute. This allow to attribute w… 

…ithout value like 'checked'
add helper for HTTP_Answer. no_content construct an answer with http_no_content (204)

fix some typo
Showing 5 changed files with 13 additions and 5 deletions   Show diff stats
Inline Side-by-side
mail/send_mail.anubis
  Show/Hide comments   View file @9446f71
@@ -132,8 +132,8 @@ define Result(SmtpClientResult, One) @@ -132,8 +132,8 @@ define Result(SmtpClientResult, One)
132 if length(tail) > 0 then 132 if length(tail) > 0 then
133 if send_rset(conn, sm_session, _sendmail_time_out, logger) is 133 if send_rset(conn, sm_session, _sendmail_time_out, logger) is
134 { 134 {
135 - error(result) then error(result),  
136 - ok(_) then send_to_recipients_list(conn, param, tail, sm_session, progress_report, logger, handle_result, unique_recipient) 135 + error(_result) then error(_result),
  136 + ok(_) then send_to_recipients_list(conn, param, tail, sm_session, progress_report, logger, handle_result, unique_recipient)
137 } 137 }
138 else 138 else
139 if unique_recipient then 139 if unique_recipient then
web/CXM_common.anubis
  Show/Hide comments   View file @9446f71
@@ -4,7 +4,7 @@ @@ -4,7 +4,7 @@
4 4
5 *Copyright* 5 *Copyright*
6 Copyright © Alain Prouté 2003~2007. 6 Copyright © Alain Prouté 2003~2007.
7 - © David RENÉ2007~2019 7 + © David RENÉ 2007~2019
8 8
9 9
10 *Authors:* 10 *Authors:*
web/CXM_making_a_web_site.anubis
  Show/Hide comments   View file @9446f71
@@ -3704,7 +3704,8 @@ define String @@ -3704,7 +3704,8 @@ define String
3704 " tabindex=\"" + index + "\"", 3704 " tabindex=\"" + index + "\"",
3705 attr(name, value) then 3705 attr(name, value) then
3706 " " + name + "=\"" + value + "\"", 3706 " " + name + "=\"" + value + "\"",
3707 - 3707 + bool_attr(bool, value)then
  3708 + if bool then " "+value+" " else "",
3708 event(e, value) then 3709 event(e, value) then
3709 " " + event_name(e) + "=\"" + value + "\"", 3710 " " + event_name(e) + "=\"" + value + "\"",
3710 tooltip(_) then "", //do nothing here, because we extract attributes at first in new_attrs 3711 tooltip(_) then "", //do nothing here, because we extract attributes at first in new_attrs
web/CXM_web_action.anubis
  Show/Hide comments   View file @9446f71
@@ -68,7 +68,7 @@ public define String @@ -68,7 +68,7 @@ public define String
68 format_web_action_name 68 format_web_action_name
69 ( 69 (
70 WEB_Action_Name action, 70 WEB_Action_Name action,
71 - List((String,String)) extra_ops, 71 + List((String,String)) extra_ops
72 )= 72 )=
73 format_web_action_name(action) 73 format_web_action_name(action)
74 + 74 +
web/types/making_a_web_site.anubis
  Show/Hide comments   View file @9446f71
@@ -559,6 +559,7 @@ public type CoreAttrs: @@ -559,6 +559,7 @@ public type CoreAttrs:
559 //elements in the document. 559 //elements in the document.
560 //Anubis specific 560 //Anubis specific
561 attr (String, String), //intended to provide unknown attritute 561 attr (String, String), //intended to provide unknown attritute
  562 + bool_attr (Bool, String), //like checked in checkbox the attribute 'checked' is here if true else nothing
562 event (HtmlEvents, String), 563 event (HtmlEvents, String),
563 tooltip (HTML_tooltip), 564 tooltip (HTML_tooltip),
564 565
@@ -614,4 +615,10 @@ public type HTTP_Answer: @@ -614,4 +615,10 @@ public type HTTP_Answer:
614 HTML_Partial_Content) 615 HTML_Partial_Content)
615 . 616 .
616 617
  618 +public define HTTP_Answer
  619 + no_content
  620 + =
  621 + plain_text(http_no_content, "")
  622 +.
  623 +
617 624