Function: calendar-mayan-long-count-from-absolute

calendar-mayan-long-count-from-absolute is a byte-compiled function defined in cal-mayan.el.gz.

Signature

(calendar-mayan-long-count-from-absolute DATE)

Documentation

Compute the Mayan long count corresponding to the absolute DATE.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-mayan.el.gz
(defun calendar-mayan-long-count-from-absolute (date)
  "Compute the Mayan long count corresponding to the absolute DATE."
  (let* ((long-count (+ date calendar-mayan-days-before-absolute-zero))
         (baktun (/ long-count 144000))
         (remainder (% long-count 144000))
         (katun (/ remainder 7200))
         (remainder (% remainder 7200))
         (tun (/ remainder 360))
         (remainder (% remainder 360))
         (uinal (/ remainder 20))
         (kin (% remainder 20)))
    (list baktun katun tun uinal kin)))