Mercurial > emacs

changeset 5700:6620aa507202

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mayan-date-string): New function. (calendar-print-mayan-date, diary-mayan-date): Use it.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Jan 1994 00:30:02 +0000
parents a2d78b648542
children b2f1e7bb5d00
files lisp/calendar/cal-mayan.el
diffstat 1 files changed, 17 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-mayan.el	Sun Jan 30 00:29:32 1994 +0000
+++ b/lisp/calendar/cal-mayan.el	Sun Jan 30 00:30:02 1994 +0000
@@ -328,19 +328,26 @@
      (-                          ; days before absolute date 0
       calendar-mayan-days-before-absolute-zero)))
 
+(defun calendar-mayan-date-string (&optional date)
+  "String of Mayan date of Gregorian DATE.
+Defaults to today's date if DATE is not given."
+  (let* ((d (calendar-absolute-from-gregorian 
+             (or date (calendar-current-date))))
+         (tzolkin (calendar-mayan-tzolkin-from-absolute d))
+         (haab (calendar-mayan-haab-from-absolute d))
+         (long-count (calendar-mayan-long-count-from-absolute d)))
+      (format "Long count = %s; tzolkin = %s; haab = %s"
+              (calendar-mayan-long-count-to-string long-count)
+              (calendar-mayan-tzolkin-to-string tzolkin)
+              (calendar-mayan-haab-to-string haab))))
+
 (defun calendar-print-mayan-date ()
   "Show the Mayan long count, tzolkin, and haab equivalents of date."
   (interactive)
-  (let* ((d (calendar-absolute-from-gregorian
+  (message "Mayan date: %s"
+           (calendar-mayan-date-string
             (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!"))))
-         (tzolkin (calendar-mayan-tzolkin-from-absolute d))
-         (haab (calendar-mayan-haab-from-absolute d))
-         (long-count (calendar-mayan-long-count-from-absolute d)))
-      (message "Mayan date: Long count = %s; tzolkin = %s; haab = %s"
-               (calendar-mayan-long-count-to-string long-count)
-               (calendar-mayan-tzolkin-to-string tzolkin)
-               (calendar-mayan-haab-to-string haab))))
+                (error "Cursor is not on a date!")))))
 
 (defun calendar-goto-mayan-long-count-date (date &optional noecho)
   "Move cursor to Mayan long count DATE.  Echo Mayan date unless NOECHO is t."
@@ -372,14 +379,7 @@
 
 (defun diary-mayan-date ()
   "Show the Mayan long count, haab, and tzolkin dates as a diary entry."
-  (let* ((d (calendar-absolute-from-gregorian date))
-         (tzolkin (calendar-mayan-tzolkin-from-absolute d))
-         (haab (calendar-mayan-haab-from-absolute d))
-         (long-count (calendar-mayan-long-count-from-absolute d)))
-    (format "Mayan date: Long count = %s; tzolkin = %s; haab = %s"
-            (calendar-mayan-long-count-to-string  long-count)
-            (calendar-mayan-tzolkin-to-string haab)
-            (calendar-mayan-haab-to-string tzolkin))))
+  (format "Mayan date: %s" (calendar-mayan-date-string date)))
 
 (provide 'cal-mayan)