Back to notes Keyboard shortcut: 'u' 

(calendar-entry-page
   (string-append "Calendar entry page" ": " (as-string calendar-name))
   (form
      "http://www.cs.auc.dk/~normark/cgi-bin/calendar/calendar-registrate-entries.cgi"
      (con
         (h
            1
            (font-color
               red
               (con "Calendar entry definition" (br) calendar-entry-title)))
         (news-flash)
         (if (not (equal? "" calendar-id-word))
             (con
                (a-tag
                   (string-append data-url-prefix calendar-id-word ".html")
                   "Your current calendar")
                (p))
             "")
         (table-cal-entries
            0
            entry-width-list
            (make-list 11 calendar-entry-background-color)
            calendar-entry-headers
            (append
               (map
                  (lambda (entry) (entry-row (row-id-gen "r") entry))
                  (append
                     current-entries
                     (empty-calendar-entries number-of-empty-entries)))))
         (p)
         (hr)
         (p)
         (reset-row-id-generation!)
         (i (b "Calendar color key:"))
         (horizontal-space 2)
         (font-size
            2
            "Here you can describe the meaning of the colors in the calendar")
         (p)
         (table-2
            0
            (list 350 100)
            (make-list 2 calendar-entry-background-color)
            (list "Text" "Color")
            (map
               (lambda
                  (entry)
                  (calendar-color-key-entry (row-id-gen "c") entry))
               (append
                  current-color-keys
                  (empty-color-key-entries number-of-empty-color-keys))))
         (reset-row-id-generation!)
         (p)
         (hr)
         (p)
         (i (b "Calendar span:"))
         (p)
         (indent-pixels
            10
            (con
               (b "Month: ")
               (horizontal-space 1)
               (text-line "start-month" 2 calendar-start-month)
               (horizontal-space 12)
               (b "Year: ")
               (horizontal-space 1)
               (text-line "start-year" 4 calendar-start-year)
               (horizontal-space 2)
               (font-size 2 "Not earlier than 1970")
               (horizontal-space 12)
               (b "Number of months: ")
               (horizontal-space 1)
               (text-line "number-of-months" 2 calendar-number-of-months)
               (horizontal-space 2)
               (font-size
                  2
                  (con-space
                     "Minimum 1, maximum"
                     (as-string max-calendar-length)
                     "months."))
               (horizontal-space 12)))
         (p)
         (hr)
         (p)
         (i (b "Calendar owner:"))
         (p)
         (indent-pixels
            10
            (con
               (b "Owner or purpose id: ")
               (horizontal-space 1)
               (text-line "owner" 15 calendar-id-word)
               (horizontal-space 2)
               (font-size 2 "One word, no spaces")
               (horizontal-space 12)
               (b "Password: ")
               (horizontal-space 1)
               (password-line "password" 10 "")
               (horizontal-space 1)
               (font-size 2 "Never use your system password")))
         (p)
         (hr)
         (p)
         (i (b "Other calendar properties:"))
         (p)
         (indent-pixels
            10
            (con
               (b "Calendar title: ")
               (horizontal-space 1)
               (text-line "description" 55 calendar-entry-title)
               (p)
               (b "Calendar column width: ")
               (horizontal-space 1)
               (text-line
                  "column-width"
                  4
                  (as-string calendar-actual-column-width))
               (horizontal-space 1)
               (font-size
                  2
                  (con
                     "in pixels, minimum "
                     (as-string min-month-width)
                     ", maximum "
                     (as-string max-month-width)))
               (horizontal-space 12)
               (b "Font size: ")
               (horizontal-space 1)
               (text-line "font-size" 2 calendar-font-size)
               (horizontal-space 2)
               (font-size
                  2
                  "A number between 1 and 6, 1 is smallest, 6 is largest")
               (p)
               (b "Language: ")
               (horizontal-space 1)
               (select
                  "language"
                  (list "danish" "english")
                  (list "danish" "english")
                  calendar-language)
               (horizontal-space 12)
               (b "Week separator: ")
               (horizontal-space 1)
               (select
                  "week-separator"
                  (list "thin" "thick")
                  (list "thin" "thick")
                  calendar-week-separator)
               (horizontal-space 12)))
         (p)
         (hr)
         (p)
         (i (b "Calendar merging:"))
         (horizontal-space 2)
         (font-size
            2
            (con-space
               "Merge with another calendar (or with entries exported from the "
               (a-tag
                  "http://www.cs.auc.dk/~normark/scheme/styles/course-plan/man/course-plan.html"
                  "course plan tool")
               ")"))
         (br)
         (font-size 2 "Type 'owner or purpose id' of other calendars")
         (p)
         (indent-pixels
            10
            (con
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-1" 25 merge-1-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (br)
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-2" 25 merge-2-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (br)
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-3" 25 merge-3-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (br)
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-4" 25 merge-4-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (br)
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-5" 25 merge-5-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (br)
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-6" 25 merge-6-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (br)
               (b "Merge with calendar: ")
               (horizontal-space 1)
               (text-line "merge-7" 25 merge-7-start)
               (horizontal-space 2)
               (font-size
                  2
                  "Another calendar which you want to include in this calendar")
               (p)
               (font-size
                  2
                  (con
                     "Danish holidays for 2001 and 2002 are available as "
                     (kbd "helligdage-01")
                     " and "
                     (kbd "helligdage-02")))
               (br)))
         (p)
         (hr)
         (p)
         (i (b "Auto deletion:"))
         (p)
         (indent-pixels
            10
            (con
               (b "Auto delete old entries: ")
               (horizontal-space 1)
               (checkbox "auto-delete")
               (p)))
         (p)
         (hr)
         (p)
         (submit "Remake Calendar")
         (vertical-space 2)
         (font-size 2 calendar-credit))))