Function: calendar-mayan-read-tzolkin-date

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

Signature

(calendar-mayan-read-tzolkin-date)

Documentation

Prompt for a Mayan tzolkin date.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-mayan.el.gz
(defun calendar-mayan-read-tzolkin-date ()
  "Prompt for a Mayan tzolkin date."
  (let* ((completion-ignore-case t)
         (tzolkin-count (calendar-read-sexp
                         "Tzolkin kin (1-13)"
                         (lambda (x) (and (> x 0) (< x 14)))
                         1))
         (tzolkin-name-list (append calendar-mayan-tzolkin-names-array nil))
         (tzolkin-name (cdr
                        (assoc-string
                         (completing-read "Tzolkin uinal: "
                                          (mapcar 'list tzolkin-name-list)
                                          nil t)
                         (calendar-make-alist tzolkin-name-list 1) t))))
    (cons tzolkin-count tzolkin-name)))