CL-WHO-подобный HTML-шаблон для других языков?

Ответ 1

Для CPAN предложения имеют вид (в алфавитном порядке)...

• Builder
• HTML:: AsSubs
• HTML:: Tiny
• Markapl
• Template:: Declare
• XML:: Generator

Использование табличной части примера CL-WHO предоставлено (за вычетом римских цифр и s/background-color/color/для сжатия кода в ширину экрана здесь!)....

Builder

use Builder;
my $builder = Builder->new;
my $h = $builder->block( 'Builder::XML' );

$h->table( { border => 0, cellpadding => 4 }, sub {
   for ( my $i = 1; $i < 25; $i += 5 ) {
       $h->tr( { align => 'right' }, sub {
           for my $j (0..4) {
               $h->td( { color => $j % 2 ? 'pink' : 'green' }, $i + $j );
           }
       });
   } 
});

say $builder->render;

HTML:: AsSubs

use HTML::AsSubs;

my $td = sub {
    my $i = shift;
    return map { 
        td( { color => $_ % 2 ? 'pink' : 'green' }, $i + $_ )
    } 0..4;
};

say table( { border => 0, cellpadding => 4 },
    map { 
        &tr( { align => 'right' }, $td->( $_ ) ) 
    } loop( below => 25, by => 5 )
)->as_HTML;

HTML:: Крошечный

use HTML::Tiny;
my $h = HTML::Tiny->new;

my $td = sub {
    my $i = shift;
    return map { 
        $h->td( { 'color' => $_ % 2 ? 'pink' : 'green' }, $i + $_ )
    } 0..4;
};

say $h->table(
    { border => 0, cellpadding => 4 },
    [
        map { 
            $h->tr( { align => 'right' }, [ $td->( $_ ) ] )  
        } loop( below => 25, by => 5 )    
    ]
);

Markapl

use Markapl;

template 'MyTable' => sub {
    table ( border => 0, cellpadding => 4 ) {
       for ( my $i = 1; $i < 25; $i += 5 ) {
           row ( align => 'right' ) {
               for my $j ( 0.. 4 ) {
                   td ( color => $j % 2 ? 'pink' : 'green' ) { $i + $j }
               }
           }
       } 
    }
};

print main->render( 'MyTable' );

Template:: Declare

package MyTemplates;
use Template::Declare::Tags;
use base 'Template::Declare';

template 'MyTable' => sub {
    table {
        attr { border => 0, cellpadding => 4 };
        for ( my $i = 1; $i < 25; $i += 5 ) {
            row  {
                attr { align => 'right' };
                    for my $j ( 0..4 ) {
                        cell {
                            attr { color => $j % 2 ? 'pink' : 'green' } 
                            outs $i + $j;
                        }
                    }
            }
        } 
    }
};

package main;
use Template::Declare;
Template::Declare->init( roots => ['MyTemplates'] );
print Template::Declare->show( 'MyTable' );

XML:: Generator

use XML::Generator;
my $x = XML::Generator->new( pretty => 2 );

my $td = sub {
    my $i = shift;
    return map { 
        $x->td( { 'color' => $_ % 2 ? 'pink' : 'green' }, $i + $_ )
    } 0..4;
};

say $x->table(
    { border => 0, cellpadding => 4 },
    map { 
        $x->tr( { align => 'right' }, $td->( $_ ) )  
    } loop( below => 25, by => 5 )    
);

И для создания "цикла" в HTML:: AsSubs/HTML:: Tiny/XML:: Generator примеры можно использовать следующее:

sub loop {
    my ( %p ) = @_;
    my @list;

    for ( my $i = $p{start} || 1; $i < $p{below}; $i += $p{by} ) {
        push @list, $i;
    }

    return @list;
}

Ответ 2

Один из Фонд Perl в текущих проектах, спонсируемых грантами (a облегченная веб-структура для Perl 6) имеет рабочий код Perl6, который предоставляет аналогичный интерфейс:

use Tags;
say show {
    html {
        head { title { 'Tags Demo' } }
        body {
            outs "hi";
            ul :id<numberlist> {
                outs "A list from one to ten:";
                for 1..10 {
                    li :class<number>, { $_ }
                }
            }
        }
    }
}

Обзор или клонирование текущего кода на github.

Ответ 3

Модуль Perl CGI поддерживает что-то вроде этого.

use CGI ':standard';
use Lisp::Fmt 

print header();

print table( { -border => 1, -cellpading => 4},
    loop({ below => 25, by=> 5}, sub {
        my $i = shift;
        tr( {-align => 'right'} ,
            loop({ from => $i, below $i + 5}, sub {
                my $j = shift;
                td({-bgcolor => ($oddp eq $j ? 'pink' : 'green')}
                    fmt("[email protected]", 1+$j);
            })
        )
    });

Я старался держать его лизким, поэтому вам придется реализовать функцию lispy loop самостоятельно. Я действительно не программирую Common List, поэтому надеюсь, что правильно понял ваш код.

Ответ 4

Существует stan: синтаксис s-выражения для выражения xml в чистом питоне, от Divmod Nevow. Я думаю, что это то, чего ты хочешь. Пример из связанного учебника:

t = T.table[
           T.tr[
               T.td[ "Name:" ],
               T.td[ original.name ]
           ],
           T.tr[
               T.td[ "Email:" ],
               T.td[T.a(href='mailto:%s' % original.email)[ original.email ] ]
           ],
           T.tr[
               T.td[ "Password:" ],
               T.td[ "******" ]
           ],
       ]

Ответ 5

Стандарт Perl CGI модуль может сделать что-то подобное:

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;

print 
    start_html("An example"),
    h1(
        {
            -align => "left",
            -class => "headerinfo",
        },
        'this is an example'
    ),
    "The CGI module has functions that add HTML:",
    ul( map li($_),
        ("start_html",
        "h1, h2, h3, etc.",
        "ol, ul, li",
        "ol, ul, li",
        "table, tr, th, td")
    ),
    "and many more.",
    end_html();

Это производит:

<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>An example</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<h1 class="headerinfo" align="left">this is an example</h1>The CGI module has functions that add HTML:<ul><li>start_html</li> <li>h1, h2, h3, etc.</li> <li>ol, ul, li</li> <li>ol, ul, li</li> <li>table, tr, th, td</li></ul>and many more.
</body>
</html>

Раздел li можно переписать следующим образом

print ol(map li($_), @list);

если у вас есть список или массив.

Ответ 6

Clojure

В модуле Clojure имеется множество библиотек генерации HTML, основанных на CL-WHO, как и следовало ожидать, Clojure является Lisp). Вот как вы могли это сделать, используя библиотеку HTML, которая поставляется с Compojure и cl-format:

(use 'compojure.html
     'com.infolace.format)

(html
 [:table {:border 0 :cellpadding 4}
  (map (fn [tds] [:tr {:align "right"} tds])
       (partition 5 (map (fn [num color]
                           [:td {:bgcolor color}
                            (cl-format nil "[email protected]" (inc num))])
                         (range 25)
                         (cycle ["green" "pink"]))))])

Библиотека Compojure HTML хорошо использует литеральные хеш-карты Clojure как пары атрибут/значение, а использование литеральных векторов для тэгов вместо списков для всего помогает тегам выделяться немного и позволяет избежать некоторой необходимости в макромагии.

partition разбивает коллекцию на группы из некоторого числа элементов. cycle генерирует бесконечно повторяющийся список элементов коллекции. Эти плюс range и map помогают избежать явных циклов и переменных счетчика.

Ответ 7

Здесь такая вещь для JavaScript. Он выглядит следующим образом:

T.div({ className: "content"},
      T.p("Some ", T.u("paragraph")),
      T.p("Another paragraph"))

Ответ 8

Haskell

В Haskell есть библиотека комбинаторов HTML, которая не отличается от CL-WHO. Однако ленивый функциональный подход к программированию приводит к значительно иной идиоматической структуре итерации, чем средства цикла в Common Lisp:

import Data.Char
import Data.List
import Text.Html
-- from http://fawcett.blogspot.com/2007/08/roman-numerals-in-haskell.html
import RomanNumerals

-- Simple roman numeral conversion; returns "" if it cannot convert.
rom :: Int -> String
rom r = let m = toRoman r
        in (map toUpper . maybe "" id) m

-- Group a list N elements at a time.
-- groupN 2 [1,2,3,4,5] == [[1,2],[3,4],[5]]
groupN n [] = []
groupN n xs = let (a, b) = splitAt n xs in a : (groupN n b)

pink = "pink" -- for convenience below; green is already covered by Text.Html

rom_table = table ! [border 0, cellpadding 4] << trs
    where
      -- a list of <tr> entries
      trs = map (rom_tr . map rom_td) rom_array

      -- generates a <tr> from a list of <td>s
      rom_tr tds = tr ! [align "right"] << tds

      -- generates a <td> given a numeral and a color
      rom_td (r, c) = td ! [bgcolor c] << r

      -- our 5 x 5 array (list x list) of numerals and colors
      rom_array = (groupN 5 . take 25) rom_colors

      -- a theoretically infinite list of pairs of roman numerals and colors
      -- (practically, though, the roman numeral library has limits!)
      rom_colors = zip (map rom [1..]) colors

      -- an infinite list of alternating green and pink colors
      colors = cycle [green, pink]

main = let s = prettyHtml rom_table 
       in putStrLn s

Я должен отметить также небольшую библиотеку combinator в Text.Html для компоновки таблиц с использованием операторов "выше" и "рядом" для вычисления охвата строк/столбцов, но он слишком упрощен с точки зрения применения атрибутов для дублирования этого примера точно, и нам не нужно фантастическое разбиение строк и столбцов.

Ответ 9

Там html-tags, расширение Chicken Scheme, Теги html генерируют либо [X] HTML, либо SXML.

Здесь пример (с использованием расширения цикла и рассматриваемого вывода строки):

(<table> border: 0 cellpadding: 4
  (string-intersperse
   (loop for i below 25 by 5
         collect
         (<tr> align: "right"
               (string-intersperse
                (loop for j from i below (+ i 5)
                      collect
                      (<td> bgcolor: (if (odd? j)
                                         "pink"
                                         "green")
                            (+ 1 j))))))))

Я бы добавил ссылки на расширения цикла и html-utils (которые построены поверх html-тегов), но stackoverflow рассматривает, что я спамер, и только позволяет мне размещать максимум две ссылки.