Shireroth

Since the Employment Office has once again proved itself to be a waste of time..Quote:I would like help in developing a webpage for Volsung. I'll admit to being no designer, and frames and things tend to confound me too much.Something similar to the Hyperborean webpage would be nice.Basically what I want is to give someone the information and have them do up the webpage for me. Anyone interested?La. Wil Nider to the HyperboreansEoin to the restZirandorthel to the ages

Just because I can:; a WEBPAGE is (make-page STRING STRING PAGE-BODY)(define-struct page (url title content)); a PAGE-BODY is :; - STRING; - HTML DOCUMENT (whateverthefuck); a WEBSITE is :; LIST[WEBPAGE]; a LINK is (make-link STRING STRING)(define-struct link (url title)); create-sidebar : WEBSITE -- LIST[linkS]; makes a list of links to all pages in a site for use in a sidebar(define (create-sidebar asite) (make-links (map page-url asite) (map page-title asite))); make-links : LIST[STRING] LIST[STRING] -- LIST[link]; compiles a list of urls and titles into a list of links(define (make-links alou alot) (cond [(empty? alou) empty] [(cons? alou) (cons (make-link (first alou) (first alot)) (make-links (rest alou) (rest alot)))])); print-page : WEBSITE STRING -- VOID; creates a page of a certain name in a website with a title, sidebar, and body(define (print-page asite atitle) (let ([page (first (filter (lambda (apage) (string=? atitle (page-title apage))) asite))] [title (page-title page)] [body (page-body page)] [sidebar (create-sidebar asite)]) (begin (set-title atitle) (set-table (set-sidebar sidebar) (set-body body)))))

The lack of prettyprinting hurts my eyes The league of sadistic telepaths: "There's someone in your head and it's not you"Edited by: Ari Rahikkala at: 10/22/05 2:50

What the hell was all that anyway?Nobody, then? Sigh...

scheme code for building a template webpage?

You could have at least been nice enough to use R5RS instead of PLT Scheme ... The league of sadistic telepaths: "There's someone in your head and it's not you"

Why don't you just take the page source for the Hyperborean page, copy it, and replace all of the text and stuff with Volsaarn stuff?

Well yeah, that's what I was doing, but I ended up...well me and frames don't mix, let's just say.