Mercurial > emacs
comparison lisp/calendar/calendar.el @ 93647:447b30ba4c57
Update for iso, islamic, julian, mayan, persian name changes.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 04 Apr 2008 07:32:39 +0000 |
parents | 8f16c93afd23 |
children | 6b2af597432a |
comparison
equal
deleted
inserted
replaced
93646:a1ece6da90e8 | 93647:447b30ba4c57 |
---|---|
1264 ;; 188 hebrew-calendar-leap-year-p | 1264 ;; 188 hebrew-calendar-leap-year-p |
1265 ;; 180 hebrew-calendar-elapsed-days | 1265 ;; 180 hebrew-calendar-elapsed-days |
1266 ;; 163 hebrew-calendar-last-month-of-year | 1266 ;; 163 hebrew-calendar-last-month-of-year |
1267 ;; 66 calendar-date-compare | 1267 ;; 66 calendar-date-compare |
1268 ;; 65 hebrew-calendar-days-in-year | 1268 ;; 65 hebrew-calendar-days-in-year |
1269 ;; 60 calendar-absolute-from-julian | 1269 ;; 60 calendar-julian-to-absolute |
1270 ;; 50 calendar-absolute-from-hebrew | 1270 ;; 50 calendar-absolute-from-hebrew |
1271 ;; 43 calendar-date-equal | 1271 ;; 43 calendar-date-equal |
1272 ;; 38 calendar-gregorian-from-absolute | 1272 ;; 38 calendar-gregorian-from-absolute |
1273 ;; . | 1273 ;; . |
1274 ;; | 1274 ;; |
1499 (last (calendar-last-day-of-month month year)) | 1499 (last (calendar-last-day-of-month month year)) |
1500 string) | 1500 string) |
1501 (goto-char (point-min)) | 1501 (goto-char (point-min)) |
1502 (calendar-insert-indented | 1502 (calendar-insert-indented |
1503 (calendar-string-spread | 1503 (calendar-string-spread |
1504 (list (format "%s %d" (calendar-month-name month) year)) ? 20) | 1504 (list (format "%s %d" (calendar-month-name month) year)) ?\s 20) |
1505 indent t) | 1505 indent t) |
1506 (calendar-insert-indented "" indent) ; go to proper spot | 1506 (calendar-insert-indented "" indent) ; go to proper spot |
1507 ;; Use the first two characters of each day to head the columns. | 1507 ;; Use the first two characters of each day to head the columns. |
1508 (dotimes (i 7) | 1508 (dotimes (i 7) |
1509 (insert | 1509 (insert |
1597 (define-key map [?\C-\s] 'calendar-set-mark) | 1597 (define-key map [?\C-\s] 'calendar-set-mark) |
1598 (define-key map "\C-x\C-x" 'calendar-exchange-point-and-mark) | 1598 (define-key map "\C-x\C-x" 'calendar-exchange-point-and-mark) |
1599 (define-key map "\e=" 'calendar-count-days-region) | 1599 (define-key map "\e=" 'calendar-count-days-region) |
1600 (define-key map "gd" 'calendar-goto-date) | 1600 (define-key map "gd" 'calendar-goto-date) |
1601 (define-key map "gD" 'calendar-goto-day-of-year) | 1601 (define-key map "gD" 'calendar-goto-day-of-year) |
1602 (define-key map "gj" 'calendar-goto-julian-date) | 1602 (define-key map "gj" 'calendar-julian-goto-date) |
1603 (define-key map "ga" 'calendar-goto-astro-day-number) | 1603 (define-key map "ga" 'calendar-astro-goto-day-number) |
1604 (define-key map "gh" 'calendar-goto-hebrew-date) | 1604 (define-key map "gh" 'calendar-goto-hebrew-date) |
1605 (define-key map "gi" 'calendar-goto-islamic-date) | 1605 (define-key map "gi" 'calendar-islamic-goto-date) |
1606 (define-key map "gb" 'calendar-bahai-goto-date) | 1606 (define-key map "gb" 'calendar-bahai-goto-date) |
1607 (define-key map "gC" 'calendar-goto-chinese-date) | 1607 (define-key map "gC" 'calendar-goto-chinese-date) |
1608 (define-key map "gk" 'calendar-goto-coptic-date) | 1608 (define-key map "gk" 'calendar-goto-coptic-date) |
1609 (define-key map "ge" 'calendar-goto-ethiopic-date) | 1609 (define-key map "ge" 'calendar-goto-ethiopic-date) |
1610 (define-key map "gp" 'calendar-goto-persian-date) | 1610 (define-key map "gp" 'calendar-persian-goto-date) |
1611 (define-key map "gc" 'calendar-goto-iso-date) | 1611 (define-key map "gc" 'calendar-iso-goto-date) |
1612 (define-key map "gw" 'calendar-goto-iso-week) | 1612 (define-key map "gw" 'calendar-iso-goto-week) |
1613 (define-key map "gf" 'calendar-goto-french-date) | 1613 (define-key map "gf" 'calendar-goto-french-date) |
1614 (define-key map "gml" 'calendar-goto-mayan-long-count-date) | 1614 (define-key map "gml" 'calendar-mayan-goto-long-count-date) |
1615 (define-key map "gmpc" 'calendar-previous-calendar-round-date) | 1615 (define-key map "gmpc" 'calendar-mayan-previous-round-date) |
1616 (define-key map "gmnc" 'calendar-next-calendar-round-date) | 1616 (define-key map "gmnc" 'calendar-mayan-next-round-date) |
1617 (define-key map "gmph" 'calendar-previous-haab-date) | 1617 (define-key map "gmph" 'calendar-mayan-previous-haab-date) |
1618 (define-key map "gmnh" 'calendar-next-haab-date) | 1618 (define-key map "gmnh" 'calendar-mayan-next-haab-date) |
1619 (define-key map "gmpt" 'calendar-previous-tzolkin-date) | 1619 (define-key map "gmpt" 'calendar-mayan-previous-tzolkin-date) |
1620 (define-key map "gmnt" 'calendar-next-tzolkin-date) | 1620 (define-key map "gmnt" 'calendar-mayan-next-tzolkin-date) |
1621 (define-key map "Aa" 'appt-add) | 1621 (define-key map "Aa" 'appt-add) |
1622 (define-key map "Ad" 'appt-delete) | 1622 (define-key map "Ad" 'appt-delete) |
1623 (define-key map "S" 'calendar-sunrise-sunset) | 1623 (define-key map "S" 'calendar-sunrise-sunset) |
1624 (define-key map "M" 'calendar-phases-of-moon) | 1624 (define-key map "M" 'calendar-phases-of-moon) |
1625 (define-key map " " 'scroll-other-window) | 1625 (define-key map " " 'scroll-other-window) |
1638 (define-key map "s" 'diary-show-all-entries) | 1638 (define-key map "s" 'diary-show-all-entries) |
1639 (define-key map "pd" 'calendar-print-day-of-year) | 1639 (define-key map "pd" 'calendar-print-day-of-year) |
1640 (define-key map "pC" 'calendar-print-chinese-date) | 1640 (define-key map "pC" 'calendar-print-chinese-date) |
1641 (define-key map "pk" 'calendar-print-coptic-date) | 1641 (define-key map "pk" 'calendar-print-coptic-date) |
1642 (define-key map "pe" 'calendar-print-ethiopic-date) | 1642 (define-key map "pe" 'calendar-print-ethiopic-date) |
1643 (define-key map "pp" 'calendar-print-persian-date) | 1643 (define-key map "pp" 'calendar-persian-print-date) |
1644 (define-key map "pc" 'calendar-print-iso-date) | 1644 (define-key map "pc" 'calendar-iso-print-date) |
1645 (define-key map "pj" 'calendar-print-julian-date) | 1645 (define-key map "pj" 'calendar-julian-print-date) |
1646 (define-key map "pa" 'calendar-print-astro-day-number) | 1646 (define-key map "pa" 'calendar-astro-print-day-number) |
1647 (define-key map "ph" 'calendar-print-hebrew-date) | 1647 (define-key map "ph" 'calendar-print-hebrew-date) |
1648 (define-key map "pi" 'calendar-print-islamic-date) | 1648 (define-key map "pi" 'calendar-islamic-print-date) |
1649 (define-key map "pb" 'calendar-bahai-print-date) | 1649 (define-key map "pb" 'calendar-bahai-print-date) |
1650 (define-key map "pf" 'calendar-print-french-date) | 1650 (define-key map "pf" 'calendar-print-french-date) |
1651 (define-key map "pm" 'calendar-print-mayan-date) | 1651 (define-key map "pm" 'calendar-mayan-print-date) |
1652 (define-key map "po" 'calendar-print-other-dates) | 1652 (define-key map "po" 'calendar-print-other-dates) |
1653 (define-key map "id" 'insert-diary-entry) | 1653 (define-key map "id" 'insert-diary-entry) |
1654 (define-key map "iw" 'insert-weekly-diary-entry) | 1654 (define-key map "iw" 'insert-weekly-diary-entry) |
1655 (define-key map "im" 'insert-monthly-diary-entry) | 1655 (define-key map "im" 'insert-monthly-diary-entry) |
1656 (define-key map "iy" 'insert-yearly-diary-entry) | 1656 (define-key map "iy" 'insert-yearly-diary-entry) |
1658 (define-key map "ib" 'insert-block-diary-entry) | 1658 (define-key map "ib" 'insert-block-diary-entry) |
1659 (define-key map "ic" 'insert-cyclic-diary-entry) | 1659 (define-key map "ic" 'insert-cyclic-diary-entry) |
1660 (define-key map "ihd" 'insert-hebrew-diary-entry) | 1660 (define-key map "ihd" 'insert-hebrew-diary-entry) |
1661 (define-key map "ihm" 'insert-monthly-hebrew-diary-entry) | 1661 (define-key map "ihm" 'insert-monthly-hebrew-diary-entry) |
1662 (define-key map "ihy" 'insert-yearly-hebrew-diary-entry) | 1662 (define-key map "ihy" 'insert-yearly-hebrew-diary-entry) |
1663 (define-key map "iid" 'insert-islamic-diary-entry) | 1663 (define-key map "iid" 'diary-islamic-insert-entry) |
1664 (define-key map "iim" 'insert-monthly-islamic-diary-entry) | 1664 (define-key map "iim" 'diary-islamic-insert-monthly-entry) |
1665 (define-key map "iiy" 'insert-yearly-islamic-diary-entry) | 1665 (define-key map "iiy" 'diary-islamic-insert-yearly-entry) |
1666 (define-key map "iBd" 'diary-bahai-insert-entry) | 1666 (define-key map "iBd" 'diary-bahai-insert-entry) |
1667 (define-key map "iBm" 'diary-bahai-insert-monthly-entry) | 1667 (define-key map "iBm" 'diary-bahai-insert-monthly-entry) |
1668 (define-key map "iBy" 'diary-bahai-insert-yearly-entry) | 1668 (define-key map "iBy" 'diary-bahai-insert-yearly-entry) |
1669 (define-key map "?" 'calendar-goto-info-node) | 1669 (define-key map "?" 'calendar-goto-info-node) |
1670 (define-key map "Hm" 'cal-html-cursor-month) | 1670 (define-key map "Hm" 'cal-html-cursor-month) |
1860 (setq mode-line-format | 1860 (setq mode-line-format |
1861 (calendar-string-spread | 1861 (calendar-string-spread |
1862 (let ((date (condition-case nil | 1862 (let ((date (condition-case nil |
1863 (calendar-cursor-to-nearest-date) | 1863 (calendar-cursor-to-nearest-date) |
1864 (error (calendar-current-date))))) | 1864 (error (calendar-current-date))))) |
1865 (mapcar 'eval calendar-mode-line-format)) | 1865 (mapcar 'eval calendar-mode-line-format)) |
1866 ? (frame-width))) | 1866 ?\s (frame-width))) |
1867 (force-mode-line-update)))) | 1867 (force-mode-line-update)))) |
1868 | 1868 |
1869 (defun calendar-window-list () | 1869 (defun calendar-window-list () |
1870 "List of all calendar-related windows." | 1870 "List of all calendar-related windows." |
1871 (let ((calendar-buffers (calendar-buffer-list)) | 1871 (let ((calendar-buffers (calendar-buffer-list)) |