Commit 52634f44d093b64753aaa0f5fb3ecbc2024becf4
1 parent
3919c7c0
Remove useless normalize which became identity (this mean that the function alwa…
…ys return incoming parameter). So normalize was no effect
Showing
1 changed file
with
4 additions
and
20 deletions
Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
| @@ -3522,24 +3522,8 @@ define String | @@ -3522,24 +3522,8 @@ define String | ||
| 3522 | } | 3522 | } |
| 3523 | + format(t) | 3523 | + format(t) |
| 3524 | }. | 3524 | }. |
| 3525 | - | ||
| 3526 | - | ||
| 3527 | - Normalizing a list of cell options (horizontal position must be specified; the default | ||
| 3528 | - is 'left'). | ||
| 3529 | - | ||
| 3530 | -define List(Cell_Option) | ||
| 3531 | - normalize | ||
| 3532 | - ( | ||
| 3533 | - List(Cell_Option) l | ||
| 3534 | - ) = | ||
| 3535 | - if member(l,left) then l else | ||
| 3536 | - if member(l,h_center) then l else | ||
| 3537 | - if member(l,right) then l else | ||
| 3538 | - //[left . l]. CR: why ? there is no default because we can use CSS | ||
| 3539 | - l. | ||
| 3540 | - | ||
| 3541 | - | ||
| 3542 | - Formating cells in a row. | 3525 | + |
| 3526 | + Formating cells in a row. | ||
| 3543 | 3527 | ||
| 3544 | define Printable_tree | 3528 | define Printable_tree |
| 3545 | format | 3529 | format |
| @@ -3551,7 +3535,7 @@ define Printable_tree | @@ -3551,7 +3535,7 @@ define Printable_tree | ||
| 3551 | { | 3535 | { |
| 3552 | [ ] then [ ], | 3536 | [ ] then [ ], |
| 3553 | [h . t] then if h is cell(options,element) then | 3537 | [h . t] then if h is cell(options,element) then |
| 3554 | - ["<td",format(reverse(normalize(options))),">", | 3538 | + ["<td",format(reverse(options)),">", |
| 3555 | format_element(element), | 3539 | format_element(element), |
| 3556 | "</td>" | 3540 | "</td>" |
| 3557 | . format(t,format_element)] | 3541 | . format(t,format_element)] |
| @@ -3567,7 +3551,7 @@ define Printable_tree | @@ -3567,7 +3551,7 @@ define Printable_tree | ||
| 3567 | { | 3551 | { |
| 3568 | [ ] then [ ], | 3552 | [ ] then [ ], |
| 3569 | [h . t] then if h is header_cell(options,element) then | 3553 | [h . t] then if h is header_cell(options,element) then |
| 3570 | - ["<th ",format(reverse(normalize(options))),">", | 3554 | + ["<th ",format(reverse(options)),">", |
| 3571 | format_element(element), | 3555 | format_element(element), |
| 3572 | "</th>" | 3556 | "</th>" |
| 3573 | . format(t,format_element)] | 3557 | . format(t,format_element)] |