[REBOL] Re: Need Some Help
From: greggirwin:mindspring at: 16-Oct-2005 11:43
DA> I'm new to Rebol, but I think it is excellent. I have a quick
DA> question or two that perhaps could be quickly answered. I saw at
DA> one time, a reference to a rebol script that will build index.r
DA> files in directories automagically. Has this been written, and
DA> could someone pass me a pointer to it.
I don't think it's been written, but in REBOL/docs/developer (on
Viewtop) shows you what the file can contain. I've never delved into
them myself, but it seems they can be very simple. I whacked the code
below together very quickly, so I don't know how close it will get
you, or how correct its results (plus it doesn't recurse through
dirs), but maybe better than nothing as a starting point.
buff: copy ""
; Put your title and summary here
title: "Site Title"
summary: "Site Summary"
emit: func [value] [
append buff join reform value "^/^/"
emit "REBOL [Type: 'index]"
'title mold title newline
'summary mold summary
; define links you want in your index.r file here.
foreach link links [
emit ['link mold form second split-path link link]
files: read %.
; This generates the "label" part of each file or folder entry
filename: func [file] [mold form second split-path file]
foreach file files [
emit either dir? file [
['folder filename file join file %index.r]
['file filename file file]
; write %index.r buff