Function: calendar-mayan-read-haab-date

calendar-mayan-read-haab-date is a byte-compiled function defined in cal-mayan.el.gz.

Signature

(calendar-mayan-read-haab-date)

Documentation

Prompt for a Mayan haab date.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-mayan.el.gz
(defun calendar-mayan-read-haab-date ()
  "Prompt for a Mayan haab date."
  (let* ((completion-ignore-case t)
         (haab-day (calendar-read-sexp
                    "Haab kin (0-19)"
                    (lambda (x) (and (>= x 0) (< x 20)))
                    0))
         (haab-month-list (append calendar-mayan-haab-month-name-array
                                  (and (< haab-day 5) '("Uayeb"))))
         (haab-month (cdr
                      (assoc-string
                       (completing-read "Haab uinal: "
                                        (mapcar 'list haab-month-list)
                                        nil t)
                       (calendar-make-alist haab-month-list 1) t))))
    (cons haab-day haab-month)))