Main page works.

This commit is contained in:
Eli Barzilay 2010-06-05 14:09:40 -04:00
parent 3b3bfb0719
commit f56532c022
6 changed files with 752 additions and 24 deletions

View File

@ -19,6 +19,15 @@
[body #`(lambda () (text #,@xs))])
#'(layouter id ... x ... body))])))
(define (id->file who id sfx dir)
(let* ([f (and id (symbol->string (force id)))]
[f (cond [(and f (regexp-match #rx"[.]" f)) f]
[(and f sfx)
(string-append f (regexp-replace #rx"^[.]?" sfx "."))]
[else (error 'who "missing `#:file', or `#:id'~a"
(if sfx "" " and `#:suffix'"))])])
(if dir (web-path dir f) f)))
;; The following are not intended for direct use, see
;; `define+provide-context' below (it could be used with #f for the
;; directory if this ever gets used for a flat single directory web
@ -28,12 +37,7 @@
(define-syntax (plain stx)
(syntax-case stx () [(_ . xs) (process-contents 'plain #'plain* stx #'xs)]))
(define (plain* #:id [id #f] #:suffix [suffix #f] #:dir [dir #f]
#:file
[file (if (and id suffix)
(let ([f (format "~a.~a" (force id) suffix)])
(if dir (web-path dir f) f))
(error 'plain
"missing `#:file', or `#:id' and `#:suffix'"))]
#:file [file (id->file 'plain id suffix dir)]
#:referrer
[referrer (lambda (url)
(error 'plain "no referrer for ~e" file))]
@ -48,15 +52,13 @@
(syntax-case stx () [(_ . xs) (process-contents 'page #'page* stx #'xs)]))
(define (page* #:id [id #f]
#:dir [dir #f]
#:file [file (if id
(format "~a.html" (force id))
(error 'page "missing `#:file' or `#:id'"))]
#:file [file (id->file 'page id "html" dir)]
#:title [label (if id
(let* ([id (->string (force id))]
[id (regexp-replace #rx"^.*/" id "")]
[id (regexp-replace #rx"-" id " ")])
(string-titlecase id))
(error 'page "missing `#:file' or `#:title'"))]
(error 'page "missing `#:id' or `#:title'"))]
#:link-title [linktitle label]
#:window-title [wintitle @list{Racket: @label}]
#:full-width [full-width #f]
@ -79,9 +81,7 @@
@(if body-attrs
(apply body `(,@body-attrs ,content))
(body content))}))
(define this
(resource (if dir (web-path dir file) file)
(file-writer output-xml page) referrer))
(define this (resource file (file-writer output-xml page) referrer))
this)
(provide set-navbar!)

View File

@ -2,22 +2,26 @@
(define-syntax-rule (define* id E) (begin (define id E) (provide id)))
(define ((make-link url . text) . alternate)
(a href: url (if (null? alternate) text alternate)))
;; ----------------------------------------------------------------------------
;; Pages that are made outside of this system
(define* -planet @a[href: "http://planet.racket-lang.org/"]{PLaneT})
(define* -planet @make-link["http://planet.racket-lang.org/"]{PLaneT})
(define doc-url "http://docs.racket-lang.org/")
(define* -docs @a[href: doc-url]{Documentation})
(define* -docs @make-link[doc-url]{Documentation})
(define-syntax-rule (define-doc-link id desc)
(define* id @a[href: `(,doc-url id "/")]{
(define* id @make-link[`(,doc-url id "/")]{
@strong{@(string-titlecase (symbol->string 'id))}: @desc}))
@define-doc-link[quick]{An Introduction to Racket with Pictures}
@define-doc-link[more ]{Systems Programming with Racket}
@define-doc-link[guide]{Racket}
@define-doc-link[continue]{Continue}
(define* intros (list quick more guide))
@ -25,22 +29,25 @@
;; External links
(define* -htdp
@a[href: "http://www.htdp.org/"]{@i{How to Design Programs}})
@make-link["http://www.htdp.org/"]{@i{How to Design Programs}})
(define* -redex
@make-link["http://redex.plt-scheme.org/"]{Redex})
(define* -teachscheme
@a[href: "http://www.teach-scheme.org/"]{TeachScheme!})
@make-link["http://www.teach-scheme.org/"]{TeachScheme!})
(define* -cookbook
@a[href: "http://schemecookbook.org/"]{Schematics Scheme Cookbook})
@make-link["http://schemecookbook.org/"]{Schematics Scheme Cookbook})
(define* -schematics
@a[href: "http://sourceforge.net/projects/schematics/"]{Schematics})
@make-link["http://sourceforge.net/projects/schematics/"]{Schematics})
(define* -schemers
@a[href: "http://schemers.org/"]{@tt{schemers.org}})
@make-link["http://schemers.org/"]{@tt{schemers.org}})
(define* -plai
@a[href: "http://www.plai.org/"]{
@make-link["http://www.plai.org/"]{
@i{Programming Languages: Application and Interpretation}})
(define* -bootstrap @a[href: "http://www.bootstrapworld.org/"]{Bootstrap})
(define* -bootstrap @make-link["http://www.bootstrapworld.org/"]{Bootstrap})

View File

@ -0,0 +1,134 @@
#lang at-exp s-exp "shared.rkt"
(require syntax-color/module-lexer
setup/xref
scribble/xref)
(provide code)
(define doc-root "http://docs.racket-lang.org/")
(define expand-namespace (make-base-namespace))
(define xref (load-collections-xref))
(define (code . strs)
(let* ([str (apply string-append strs)]
[bstr (string->bytes/utf-8
(regexp-replace* #rx"(?m:^$)" str "\xA0"))]
[in (open-input-bytes bstr)])
(let* ([tokens
(let loop ([mode #f])
(let-values ([(lexeme type data start end backup-delta mode)
(module-lexer in 0 mode)])
(if (eof-object? lexeme)
null
(cons (list type (sub1 start) (sub1 end) 0)
(loop mode)))))]
[substring* (lambda (bstr start [end (bytes-length bstr)])
(bytes->string/utf-8 (subbytes bstr start end)))]
[e (parameterize ([read-accept-reader #t]
[current-namespace expand-namespace])
(expand (read-syntax 'prog (open-input-bytes bstr))))]
[ids (let loop ([e e])
(cond
[(and (identifier? e)
(syntax-original? e))
(let ([pos (sub1 (syntax-position e))]
[b (identifier-binding e)])
(list (list (if (and (list? b)
(let-values ([(name base) (module-path-index-split (car b))])
(or name base)))
(let ([tag (xref-binding->definition-tag xref e 0)])
(if tag
(cons (if (eq? (car tag) 'form)
'linkimportform
'linkimportid)
(let-values ([(p a) (xref-tag->path+anchor
xref tag
#:external-root-url doc-root)])
(format "~a#~a" p a)))
'importid))
'id)
pos
(+ pos (syntax-span e))
1)))]
[(syntax? e) (append (loop (syntax-e e))
(loop (or (syntax-property e 'origin)
null))
(loop (or (syntax-property e 'disappeared-use)
null)))]
[(pair? e) (append (loop (car e)) (loop (cdr e)))]
[else null]))]
[link-mod (lambda (mp-stx priority #:orig? [always-orig? #f])
(if (or always-orig?
(syntax-original? mp-stx))
(let ([mp (syntax->datum mp-stx)])
(let-values ([(p a)
(xref-tag->path+anchor
xref
`(mod-path ,(format "~s" mp))
#:external-root-url doc-root)])
(if p
(list (let ([pos (sub1 (syntax-position mp-stx))])
(list (cons 'modpath (format "~a#~a" p a))
pos
(+ pos (syntax-span mp-stx))
priority)))
null)))
null))]
[mods (let loop ([e e])
(syntax-case e (module require begin)
[(module name lang (mod-beg form ...))
(apply append
(link-mod #'lang 2)
(map loop (syntax->list #'(form ...))))]
[(#%require spec ...)
(apply append
(map (lambda (spec)
;; Need to add support for renaming forms, etc.:
(if (module-path? (syntax->datum spec))
(link-mod spec 2)
null))
(syntax->list #'(spec ...))))]
[(begin form ...)
(apply append
(map loop (syntax->list #'(form ...))))]
[else null]))]
[language (if (regexp-match? #rx"^#lang " bstr)
(let ([m (regexp-match #rx"^#lang ([-a-zA-Z/._+]+)" bstr)])
(if m
(link-mod
#:orig? #t
(datum->syntax #f
(string->symbol (bytes->string/utf-8 (cadr m)))
(vector 'in 1 6 7 (bytes-length (cadr m))))
3)
null))
null)]
[tokens (sort (append ids
mods
language
(filter (lambda (x) (not (eq? (car x) 'symbol)))
;; Drop #lang entry:
(cdr tokens)))
(lambda (a b)
(or (< (cadr a) (cadr b))
(and (= (cadr a) (cadr b))
(> (cadddr a) (cadddr b))))))])
(apply pre (let loop ([pos 0]
[tokens tokens])
(cond
[(null? tokens) (list (substring* bstr pos))]
[(eq? (caar tokens) 'white-space) (loop pos (cdr tokens))]
[(= pos (cadar tokens))
(cons (let ([style (caar tokens)]
[s (substring* bstr (cadar tokens) (caddar tokens))])
(if (pair? style)
(a href: (cdr style) class: (format "code~a" (car style)) s)
(span class: (format "code~a" style) s)))
(loop (caddar tokens) (cdr tokens)))]
[(> pos (cadar tokens))
(loop pos (cdr tokens))]
[else (cons
(substring* bstr pos (cadar tokens))
(loop (cadar tokens) tokens))]))))))

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.8 KiB

View File

@ -1,6 +1,593 @@
#lang at-exp s-exp "shared.rkt"
(require "code.rkt" "outreach+research.rkt" racket/string)
(define (doc s)
(string-append "http://docs.racket-lang.org/" s))
(define-struct example (code desc))
(define-struct (cmdline-example example) ())
(define-struct (scribble-example example) ())
(define-struct (graphical-example example) ())
(define (desc . strs) (apply div strs))
(define (elemcode . strs) (apply tt strs))
(provide index)
(define index
(page #:link-title "About" #:window-title "Racket"
"TODO"))
#:extra-headers (delay more.css)
(div class: 'whatpane
@span{@span[class: 'whatb]{Racket} is a programming language.})
(div class: 'aboutpane
(div class: 'panetitle "Start Quickly")
(div class: 'downloadbutton download-plt)
(alts-panel
@; --- Each example here should be exactly 7 lines long ---
@; Candidates for initial example: ------------------------
(list
(example
@code{
#lang racket
;; Finds Racket sources in all subdirs
(for ([path (in-directory)])
(when (regexp-match? #rx"[.]rkt$" path)
(printf "source file: ~a\n" path)))
}
@desc{
The @elemcode{in-directory} function constructs
a sequence that walks a directory tree (starting with
the current directory, by default) and generates
paths in the tree. The @elemcode{for}
form binds @elemcode{p} to each path in the sequence,
and @elemcode{regexp-match?} applies a pattern to
the path.})
(example
@code{
#lang web-server/insta
;; A "hello world" web server
(define (start request)
'(html
(body "Hello World")))
}
@desc{
This example implements a web server using the
@elemcode{web-server/insta} language. Each time a connection
is made to the server, the @elemcode{start} function is
called to get the HTML to send back to the client.
})
(example
@code{
#lang racket ; An echo server
(define listener (tcp-listen 12345))
(let echo-server ()
(define-values (in out) (tcp-accept listener))
(thread (lambda () (copy-port in out)
(close-output-port out)))
(echo-server))
}
@desc{
Racket makes it easy to use TCP sockets and spawn
threads to handle them. This program starts a server
at TCP port 12345 that echos anything a client sends
back to the client.
})
(example
@code{
#lang racket
;; Report each unique line from stdin
(let ([saw (make-hash)])
(for ([line (in-lines)])
(unless (hash-ref saw line #f)
(displayln line))
(hash-set! saw line #t)))
}
@desc{
Uses a hash table to record previously seen lines.
You can run this program in DrRacket, but it makes more
sense from the command line.
})
)
@; Additional examples: --------------------------
(list
(graphical-example
@code{
#lang racket ; A picture
(require 2htdp/image)
(let sierpinski ([n 6])
(if (zero? n)
(triangle 2 'solid 'red)
(let ([next (sierpinski (- n 1))])
(above next (beside next next)))))
}
@desc{
The @elemcode{2htdp/image} library provides easy-to-use
functions for constructing images, and DrRacket can display
an image result as easily as it can display a number result.
In this case, a @elemcode{sierpinski} function is defined and
called (at the same time) to generate a Sierpinski triangle
of depth 6.
})
(graphical-example
@code{
#lang racket/gui ; A GUI guessing game
(define f (new frame% [label "Guess"]))
(define n (random 5)) (send f show #t)
(define ((check i) btn evt)
(message-box "." (if (= i n) "Yes" "No")))
(for ([i (in-range 5)])
(make-object button% (format "~a" i) f (check i)))
}
@desc{
This simple guesing game demonstates Racket's
class-based GUI toolkit. The
@elemcode{frame%} class implements a
top-level window, and @elemcode{button%} obviously
implements a button. The @elemcode{check} function
defined here produces an function that is used
for the button's callback action.
})
(example
@code{
#lang racket ; Simple web scraper
(require net/url net/uri-codec)
(define (let-me-google-that-for-you str)
(let* ([g "http://www.google.com/search?q="]
[u (string-append g (uri-encode str))]
[rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)"])
(regexp-match* rx (get-pure-port (string->url g)))))
}
@desc{
Add a call to @elemcode{let-me-google-that-for-you} to
get a list of search results.
})
(cmdline-example
@code{
#lang racket
;; A dice-rolling command-line utility
(command-line
#:args (dice sides)
(for ([i (in-range (string->number dice))])
(displayln
(+ 1 (random (string->number sides))))))
}
@desc{
Playing a game but no dice on hand?
Let Racket roll for you. The @elemcode{command-line}
form makes sure that the right number of
arguments are provided and automatically
implements the @tt{--help} switch.
})
(example
@code{
#lang racket
;; Print the Greek alphabet
(for ([i (in-range 25)])
(displayln
(integer->char
(+ i (char->integer #\u3B1)))))
}
@desc{
The only reason we use the encoded form of a
character @elemcode{#\u3B1}
instead of the more direct form @elemcode{#\α} is that we
don't trust your browser to render it correctly. DrRacket
is perfectly happy with @elemcode{#\α}.
})
(graphical-example
@code{
#lang htdp/bsl ; Any key inflates the balloon
(require 2htdp/image) (require 2htdp/universe)
(define (balloon b) (circle b "solid" "red"))
(define (blow-up b k) (+ b 5))
(define (deflate b) (max (- b 1) 1))
(big-bang 50 (on-key blow-up) (on-tick deflate)
(to-draw balloon 200 200))
}
@desc{
Racket's mission includes education at all levels.
This program uses the @elemcode{htdp/bsl} teaching
language, the @elemcode{2htdp/image} library for
creating pictures in the teaching languages, and the
@elemcode{2htdp/universe} library for interactive
animations.
})
(example
@code{
#lang lazy
;; An infinite list:
(define fibs
(list* 1 1 (map + fibs (cdr fibs))))
;; Print the 1000th Fibonacci number:
(print (list-ref fibs 1000))
}
@desc{
And now for something completely different.
The @elemcode{lazy} language is more like Haskell
than Lisp, so feel free to build an infinite list
and look at only part of it.
})
(example
@code{
#lang typed/racket
;; Using higher-order occurrence typing
(define-type SrN (U String Number))
(: tog ((Listof SrN) -> String))
(define (tog l)
(apply string-append (filter string? l)))
(tog (list 5 "hello " 1/2 "world" (sqrt -1)))
}
@desc{
Racket's type system is designed to let you
add types after you've worked for a while
in untyped mode @|ndash| even if your untyped program
wouldn't fit nicely in a conventional type system.
})
(scribble-example
@code|{
#lang scribble/base
@; Generate a PDF or HTML document
@title{Bottles --- @italic{Abridged}}
@(apply itemlist
(for/list ([n (in-range 100 0 -1)])
@item{@(format "~a" n) bottles.}))
}|
@desc{
This program uses the @elemcode{scribble/base} language for
generating documents using a prose-friendly syntax.
})
))
@p{@a[href: (doc "quick/")]{Draw more pictures} or
@a[href: (doc "more/")]{build a web server from scratch}.
Racket includes both @a[href: (doc "")]{batteries}
and a @a[href: (doc "drracket/")]{programming environment},
so @a[href: (doc "getting-started/index.html")]{get started}!})
(table class: 'threepanes
(tr
(td
(div class: 'panetitle "Grow your Program")
@p{Racket's
@a[href: (doc "guide/intro.html#(part._.Interacting_with_.Racket)")]{interactive mode}
encourages experimentation,
and quick scripts easily compose into larger systems. Small scripts
and large systems both benefit from @a[href:
(doc "guide/performance.html")]{native-code JIT compilation}. When
a system gets too big to keep in your head, you can add
@a[href: (doc "ts-guide/index.html")]{static types}.})
(td
(div class: 'panetitle "Grow your Language")
@p{@a[href: (doc "guide/languages.html")]{Extend Racket} whenever
you need to. Mold it to better suit your tasks without
sacrificing
@a[href: (doc "guide/dialects.html")]{interoperability} with
existing libraries and without having to modify the
@a[href: (doc "guide/intro.html")]{tool chain}.
When less is more, you can remove parts of a language
or start over and build a new one.})
(td
(div class: 'panetitle "Grow your Skills")
@p{Whether you're just @-htdp{starting out}, want to know more
about programming language @-plai{applications} or
@-redex{models}, looking to @continue{expand your horizons},
or ready to dive into @outreach+research{research}, Racket can
help you become a better programmer and system builder.})))))
(define (alts-panel l1 l2)
(define l (append l1 l2))
(apply div class: 'slideshow
@script/inline[type: "text/javascript"]{
var showing = 0;
var help_showing = false;
var kind = [ @(string-join (for/list ([i (in-list l)])
(cond
[(cmdline-example? i) "\"cmd\""]
[(scribble-example? i) "\"scrib\""]
[(graphical-example? i) "\"dr\""]
[else "\"any\""]))
",") ];
function change_show_to(new_showing) {
elem = document.getElementById("frame" + showing);
elem.style.display = "none";
elem = document.getElementById("helpframe" + showing);
elem.style.display = "none";
elem = document.getElementById("howto" + kind[showing]);
elem.style.display = "none";
showing = new_showing;
elem = document.getElementById("frame" + showing);
elem.style.display = "block";
elem = document.getElementById("helpframe" + showing);
elem.style.display = "block";
elem = document.getElementById("howto" + kind[showing]);
elem.style.display = "block";
elem = document.getElementById("rewindbutton");
elem.style.color = ((showing == 0) ? "#aaa" : "#444");
elem = document.getElementById("advancebutton");
elem.style.color = ((showing == @(sub1 (length l))) ? "#aaa" : "#444");
}
function change_show(amt) {
change_show_to((showing + amt + @(length l)) % @(length l));
}
function advance_show() {
if (showing < @(sub1 (length l))) change_show(1);
return false;
}
function rewind_show() {
if (showing > 0) change_show(-1);
return false;
}
function show_help() {
elem = document.getElementById("helppanel");
elem.style.display = "block";
help_showing = true;
return false;
}
function hide_help() {
elem = document.getElementById("helppanel");
elem.style.display = "none";
help_showing = false;
return false;
}
function toggle_help() {
if (help_showing)
return hide_help();
else
return show_help();
}
}
(div
class: 'buttonpanel
(a href: "#"
id: "rewindbutton"
class: 'slideshowbutton
onclick: "return rewind_show()"
style: "color: #aaa;"
"<")
(a href: "#"
id: "advancebutton"
class: 'slideshowbutton
onclick: "return advance_show()"
">")
(a href: "#"
class: 'slideshowhbutton
onclick: "return toggle_help()"
"?")
(div class: 'hiddenhelp
id: "helppanel"
style: "display: none"
(div class: 'helpcontent
(a href: "#"
class: 'closebutton
onclick: "return hide_help()"
"close")
(apply div class: 'helpdesc
(for/list ([elem l]
[pos (in-naturals)])
(div class: 'helpdeskframe
id: (format "helpframe~a" pos)
style: "display: none"
(example-desc elem))))
@div[class: 'helptext]{Form and function names in the code
are hyperlinked to documentation, so click on them
for more information.}
@div[class: 'helptext
id: "howtoany"]{To run the example, install Racket,
start DrRacket, paste the example program
into the top area in DrRacket,
and click the Run button. Alternatively, save the
program to a file and run @tt{racket} on the file.}
@div[class: 'helptext
style: "display: none"
id: "howtodr"]{To run the example, install Racket,
start DrRacket, paste the example program
into the top area in DrRacket,
and click the Run button.}
@div[class: 'helptext
id: "howtoscrib"]{To run the example, install Racket,
start DrRacket, and paste the example program
into the top area in DrRacket.
When a program in a Scribble
language is opened in DrRacket, a @b{Scribble HTML}
button appears for rendering the document to HTML.
Click it.}
@div[class: 'helptext
style: "display: none"
id: "howtocmd"]{This example is a command-line script.
To run the example, install Racket,
paste the example program into a file, and
run @tt{racket} on the file with command-line arguments
after the filename. Alternatively, for a Unix installation, you can
add @tt{#!/usr/bin/env racket} at the top and make the
file executable, and then you can run the file directly.})))
(append
(for/list ([elem l]
[pos (in-naturals)])
(div class: 'slideshowframe
id: (format "frame~a" pos)
style: (format "display: ~a" (if (zero? pos) "block" "none"))
(example-code elem)))
(list
@script/inline[type: "text/javascript"]{
change_show_to(Math.floor(Math.random()* @(length l1)));
}))))
;; TODO
;; (define screenshots
;; (let ([image (copyfile (in-here "screenshot.jpg"))])
;; @a[href: "http://plt-scheme.org/screenshots/"]{
;; @img[src: image alt: "[screenshots]" border: 0
;; style: "margin-bottom: 2px;"]@;
;; @|br|@small{Screenshots}}))
;; (define tour-video
;; (page #:title "DrScheme Tour" #:file "tour.html"
;; (define (center . body)
;; (table align: 'center style: "margin: 3em 0em;"
;; (tr (td align: 'center body))))
;; ;; someone posted a comment saying that adding "&fmt=18" to the url
;; ;; shows a higher resolution video, but it looks exactly the same.
;; (define url "http://www.youtube.com/v/vgQO_kHl39g&hl=en")
;; @center{
;; @object[type: "application/x-shockwave-flash" data: url
;; width: (round (* 3/2 425)) height: (round (* 3/2 344))]{
;; @param[name: "movie" value: url]}}))
(define download-plt
(let ([img1 (copyfile (in-here "download.png"))]
[img2 (copyfile (in-here "download-dark.png"))])
(list
@script/inline[type: "text/javascript"]{
@; Don't load all images here -- it causes a delay when loading the page
@; instead, do it only when needed, and also set a timer to do it after
@; loading the page. This makes it so that there's almost never a delay
@; when loading the page, and also no delay when switching the image.
var rollovers = false, the_download_button = false;
function init_rollovers() {
if (!rollovers) {
rollovers = [ new Image(), new Image() ];
rollovers[0].src = "@img1";
rollovers[1].src = "@img2";
the_download_button = document.getElementById("download_button");
}
}
function set_download_image(n) {
if (!rollovers) init_rollovers();
the_download_button.src = rollovers[n].src;
}
setTimeout(init_rollovers, 400);
}
@a[href: "http://download.plt-scheme.org/drscheme/"
onmouseover: "set_download_image(1);"
onmouseout: "set_download_image(0);"]{
@img[id: "download_button" border: "0" src: img1
alt: "Download PLT Scheme" title: "Download PLT Scheme"]})))
(define more.css
@plain[#:referrer (lambda (url) (link rel: "stylesheet" type: "text/css"
href: url title: "default"))]{
.whatpane {
font-size: medium;
float: left;
width: 20%;
}
.whatb {
font-size: large;
font-weight: bold;
}
.aboutpane {
width: 56%;
margin-right: auto;
margin-left: auto;
}
.panetitle {
width: 100%;
font-size: large;
font-weight: bold;
color: #D00;
}
.threepanes {
width: 100%;
}
.threepanes td {
vertical-align: top;
align: center;
width: 30%;
padding: 0.5em;
}
.slideshow {
position: relative;
}
.buttonpanel {
display: block;
position: absolute;
left: 100%;
top: -3ex;
width: 3em;
margin: 0em 0em 0em -5em;
}
.slideshowbutton, .slideshowhbutton {
text-decoration: none;
border: 1px solid #ddd;
font-weight: bold;
color: #444;
padding: 0px 1px 0px 1px;
}
.slideshowbutton {
margin: 0px 1px 0px 1px;
}
.slideshowhbutton {
margin: 0px 1px 0px 10px;
}
.hiddenhelp {
width: 0em;
margin-left: 2em;
}
.helpcontent {
width: 20em;
background-color: #FFE;
padding: 10px;
margin-top: 3px;
border: 1px solid black;
}
.closebutton {
font-size: small;
margin-bottom: 1em;
}
.helptext, .helpdesc {
margin-top: 0.5em;
}
.helptext {
font-size: small;
}
.downloadbutton {
position: relative;
float: right;
left: 1em;
top: -1em;
height: 0em;
width: 1em;
margin: 0em -1em 0em 0em;
}
@;
.codecomment {
color: #c2741f;
}
.codeparenthesis {
color: #843c24;
}
.codeconstant, .codestring {
color: #228b22;
}
.codeid, .codemodpath {
color: #262680;
}
.codeimportid {
color: blue;
}
.codeimportform {
font-weight: bold;
}
.codelinkimportid {
color: blue;
text-decoration: none;
}
.codelinkimportform {
font-weight: bold;
color: black;
text-decoration: none;
}
.codelinkimportid:hover {
text-decoration: none;
}
.codelinkimportform:hover {
text-decoration: none;
}
.codemodpath:hover {
text-decoration: none;
}})