Rebol

Scripts

Animation

CGI

Compression

Console

Database

Debug

Dialects

Dialogs

Editor

Encryption

Extension

External Library

File

File Handling

Files

Financial

FTP

Game

Games

Graphics

GUI

HTML

HTTP

Internet

LDC

Markup

Math

Module

Network

Networking

None

Other - Net

Parse

Patch

Printing

Protocol

Rebol

Scheme

Scientific

SDK

Security

Shell

Sound

SQL

TCP

Testing

Text

Text Processing

User Interface

Util

Utility

VID

Visualization

Web

Win API

X-File

XML

Wiki

Download Script View Documentation

REBOL [
    Title: "tagit"
    Date: 16-Nov-2004
    Version: 1.0.0
    File: %tagit.r
    Author: "Nigel Salt"
    Purpose: {generate tagged HTML blocks}
    Email: none
    library: [
        level: 'beginner 
        platform: 'windows 
        type: 'tool 
        domain: [html markup] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

tagit: func [
  "Returns second argument enclosed in an html tag set using the first argument"
  tag [string!] "tag"
  text "content to be tagged"
] [
  join "<" [tag ">" text ""]
]

comment {
  Builds simplest possible html document using the tagit function
  tagit builds a tagged string using the first string argument as an HTML tag
  and the second string argument as the body to be enclosed between tags
}
pagetitle: "tagit test page"
titleblock: tagit "title" pagetitle
headblock: tagit "head" titleblock

bodyhead: tagit "h1" pagetitle
bodyp: tagit "p" "bodytext"
bodytext: join bodyhead [bodyp]
bodyblock: tagit "body" bodytext

doctext: join headblock [bodyblock]
docblock: tagit "html" doctext

print docblock