;;; cal-mayan.el --- calendar functions for the Mayan calendars
-;; Copyright (C) 1992-1993, 1995, 1997, 2001-2011
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1992-1993, 1995, 1997, 2001-2015 Free Software
+;; Foundation, Inc.
;; Author: Stewart M. Clamen <clamen@cs.cmu.edu>
;; Edward M. Reingold <reingold@cs.uiuc.edu>
(message "Mayan date: %s"
(calendar-mayan-date-string (calendar-cursor-to-date t))))
-(define-obsolete-function-alias 'calendar-print-mayan-date
- 'calendar-mayan-print-date "23.1")
-
(defun calendar-mayan-read-haab-date ()
"Prompt for a Mayan haab date."
(let* ((completion-ignore-case t)
(calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
(or noecho (calendar-mayan-print-date)))
-(define-obsolete-function-alias 'calendar-next-haab-date
- 'calendar-mayan-next-haab-date "23.1")
-
;;;###cal-autoload
(defun calendar-mayan-previous-haab-date (haab-date &optional noecho)
"Move cursor to previous instance of Mayan HAAB-DATE.
(1- (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
(or noecho (calendar-mayan-print-date)))
-(define-obsolete-function-alias 'calendar-previous-haab-date
- 'calendar-mayan-previous-haab-date "23.1")
-
(defun calendar-mayan-haab-to-string (haab)
"Convert Mayan HAAB date (a pair) into its traditional written form."
(let ((month (cdr haab)))
(calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
(or noecho (calendar-mayan-print-date)))
-(define-obsolete-function-alias 'calendar-next-tzolkin-date
- 'calendar-mayan-next-tzolkin-date "23.1")
-
;;;###cal-autoload
(defun calendar-mayan-previous-tzolkin-date (tzolkin-date &optional noecho)
"Move cursor to previous instance of Mayan TZOLKIN-DATE.
(1- (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
(or noecho (calendar-mayan-print-date)))
-(define-obsolete-function-alias 'calendar-previous-tzolkin-date
- 'calendar-mayan-previous-tzolkin-date "23.1")
-
(defun calendar-mayan-tzolkin-to-string (tzolkin)
"Convert Mayan TZOLKIN date (a pair) into its traditional written form."
(format "%d %s"
(calendar-goto-date (calendar-gregorian-from-absolute date))
(or noecho (calendar-mayan-print-date)))))
-(define-obsolete-function-alias 'calendar-next-calendar-round-date
- 'calendar-mayan-next-round-date "23.1")
-
;;;###cal-autoload
(defun calendar-mayan-previous-round-date
(tzolkin-date haab-date &optional noecho)
(calendar-goto-date (calendar-gregorian-from-absolute date))
(or noecho (calendar-mayan-print-date)))))
-(define-obsolete-function-alias 'calendar-previous-calendar-round-date
- 'calendar-mayan-previous-round-date "23.1")
-
(defun calendar-mayan-long-count-to-absolute (c)
"Compute the absolute date corresponding to the Mayan Long Count C.
Long count is a list (baktun katun tun uinal kin)"
;; Days before absolute date 0.
(- calendar-mayan-days-before-absolute-zero)))
-(define-obsolete-function-alias 'calendar-absolute-from-mayan-long-count
- 'calendar-mayan-long-count-to-absolute "23.1")
-
(defun calendar-mayan-long-count-common-era (lc)
"Return non-nil if long count LC represents a date in the Common Era."
(let ((base (calendar-mayan-long-count-from-absolute 1)))
(calendar-mayan-long-count-to-absolute date)))
(or noecho (calendar-mayan-print-date)))
-(define-obsolete-function-alias 'calendar-goto-mayan-long-count-date
- 'calendar-mayan-goto-long-count-date "23.1")
-
(defvar date)
;; To be called from diary-list-sexp-entries, where DATE is bound.