Lines Matching defs:french
1 ;;; cal-french.el --- calendar functions for the French Revolutionary calendar
46 (defun french-calendar-accents ()
54 (defconst french-calendar-epoch (calendar-absolute-from-gregorian '(9 22 1792))
57 (defconst french-calendar-month-name-array
61 (defconst french-calendar-multibyte-month-name-array
65 (defconst french-calendar-day-name-array
69 (defconst french-calendar-multibyte-special-days-array
73 (defconst french-calendar-special-days-array
77 (defun french-calendar-month-name-array ()
78 (if (french-calendar-accents)
79 french-calendar-multibyte-month-name-array
80 french-calendar-month-name-array))
82 (defun french-calendar-day-name-array ()
83 french-calendar-day-name-array)
85 (defun french-calendar-special-days-array ()
86 (if (french-calendar-accents)
87 french-calendar-multibyte-special-days-array
88 french-calendar-special-days-array))
90 (defun french-calendar-leap-year-p (year)
105 (defun french-calendar-last-day-of-month (month year)
111 (if (french-calendar-leap-year-p year)
115 (defun calendar-absolute-from-french (date)
133 (1- french-calendar-epoch))));; Days before start of calendar
135 (defun calendar-french-from-absolute (date)
140 (if (< date french-calendar-epoch)
143 (/ (- date french-calendar-epoch) 366))
147 (>= date (calendar-absolute-from-french (list 1 1 (1+ y))))
152 (calendar-absolute-from-french
154 (french-calendar-last-day-of-month m year)
159 (1- (calendar-absolute-from-french (list month 1 year))))))
162 (defun calendar-french-date-string (&optional date)
166 (let* ((french-date (calendar-french-from-absolute
169 (y (extract-calendar-year french-date))
170 (m (extract-calendar-month french-date))
171 (d (extract-calendar-day french-date)))
174 ((= m 13) (format (if (french-calendar-accents)
177 (aref (french-calendar-special-days-array) (1- d))
180 (if (french-calendar-accents)
184 (aref (french-calendar-month-name-array) (1- m))
187 (defun calendar-print-french-date ()
190 (let ((f (calendar-french-date-string (calendar-cursor-to-date t))))
195 (defun calendar-goto-french-date (date &optional noecho)
199 (let ((accents (french-calendar-accents))
200 (months (french-calendar-month-name-array))
201 (special-days (french-calendar-special-days-array)))
211 (calendar-french-from-absolute
217 (if (french-calendar-leap-year-p year)
220 french-calendar-special-days-array)
243 (calendar-absolute-from-french date)))
244 (or noecho (calendar-print-french-date)))
246 (defun diary-french-date ()
248 (let ((f (calendar-french-date-string date)))
253 (provide 'cal-french)
256 ;;; cal-french.el ends here