(index ("gallery-dir" 0) ("gallery-url" 200) ("zoomed-url" 371) ("thumb-dir" 535) ("gallery-var" 768) ("entry-var" 953) ("max-thumb-dimensions" 1144) ("movie-image" 1518) ("root-gallery-name" 1696) ("gallery-contents" 1920) ("thumbnail" 2242) ("thumbnail/epeg" 2649) ("thumbnail/imlib2" 2825) ("galleries-up-to" 3034) ("prev-entry" 3200) ("next-entry" 3445))
(def (sig (parameter "(gallery-dir [directory-name])" (id gallery-dir))) (p "The directory under which the galleries can be found, relative to the index page. Defaults to " (tt "\"galleries\"") "."))
(def (sig (parameter "(gallery-url [url-string])" (id gallery-url))) (p "The page that shows gallery listings with thumbnail entries. Defaults to " (tt "\"index.ssp\"")))
(def (sig (parameter "(zoomed-url [url-string])" (id zoomed-url))) (p "The webpage that serves the zoomed-in views on images. Defaults to " (tt "\"zoomed.ssp\"")))
(def (sig (parameter "(thumb-dir [directory-name])" (id thumb-dir))) (p "The name of the directory under which thumnail versions of the images in the parent directory are stored. Defaults to " (tt "\"thumbs\"") ".") (pre "\t     "))
(def (sig (parameter "(gallery-var [symbol])" (id gallery-var))) (p "The name of the GET parameter that contains the gallery the user wishes to view. Defaults to " (tt "gallery") "."))
(def (sig (parameter "(entry-var [symbol])" (id entry-var))) (p "The name of the GET parameter that contains the entry the user wishes to view (when zoomed). Defaults to " (tt "entry") "."))
(def (sig (parameter "(max-thumb-dimensions [number])" (id max-thumb-dimensions))) (p "Maximum width " (i "or") " height of a thumbnail.") (p "The smaller of the two will get scaled by the same factor as the larger, which will be shrunk into this size. In other words, it maintains the aspect ratio of the original picture in the thumb.") (p "Defaults to " (tt "100") "."))
(def (sig (parameter "(movie-image [url-string])" (id movie-image))) (p "The image file to display when a movie is in the gallery. Defaults to " (tt "\"/pics/movie.jpg\"") "."))
(def (sig (parameter "(root-gallery-name [string])" (id root-gallery-name))) (p "The title of the topmost gallery.  All subgalleries have a title that is equal to the directory name. Defaults to " (tt "\"Galleries\"") "."))
(def (sig (procedure "(gallery-contents)" (id gallery-contents))) (p "Get the contents of the currently selected gallery (as determined by " (tt "gallery-var") ").") (p "Returns two values: The first value is a list of subgalleries in that gallery, the second value is a list of entries (ie, pictures) in that gallery."))
(def (sig (procedure "(thumbnail gallery entry)" (id thumbnail))) (p "Returns a link to the thumbnail picture of the selected entry under the selected gallery.") (p "Chooses " (tt "thumbnail/epeg") " or " (tt "thumbnail/imlib2") " based on the entry file.") (p "Side-effects: creates the thumbnail if it does not exist and creates the thumbs directory as determined by " (tt "thumb-dir") " if necessary."))
(def (sig (procedure "(thumbnail/epeg gallery entry)" (id thumbnail/epeg))) (p "Epeg-specific version of " (tt "thumbnail") ". " (b "Note: the source image must be a jpeg.")))
(def (sig (procedure "(thumbnail/imlib2 gallery entry)" (id thumbnail/imlib2))) (p "Imlib2-specific version of " (tt "thumbnail") ".") (p (b "Note: the source image must be of a type understood by imlib2.")))
(def (sig (procedure "(galleries-up-to gallery)" (id galleries-up-to))) (p "Returns a list of all the galleries from the root gallery up to the specified gallery."))
(def (sig (procedure "(prev-entry entry entries)" (id prev-entry))) (p "Return the filename of the previous entry in the " (tt "entries") " list, as seen from the selected entry.  Returns " (tt "#f") " if this is the first entry in the list."))
(def (sig (procedure "(next-entry entry entries)" (id next-entry))) (p "Return the filename of the next entry in the " (tt "entries") " list, as seen from the selected entry.  Returns " (tt "#f") " if this is the last entry in the list."))
