Function: calendar-french-date-string

calendar-french-date-string is an autoloaded and byte-compiled function defined in cal-french.el.gz.

Signature

(calendar-french-date-string &optional DATE)

Documentation

String of French Revolutionary date of Gregorian DATE.

Returns the empty string if DATE is pre-French Revolutionary. Defaults to today's date if DATE is not given.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-french.el.gz
;;;###cal-autoload
(defun calendar-french-date-string (&optional date)
  "String of French Revolutionary date of Gregorian DATE.
Returns the empty string if DATE is pre-French Revolutionary.
Defaults to today's date if DATE is not given."
  (let* ((french-date (calendar-french-from-absolute
                       (calendar-absolute-from-gregorian
                        (or date (calendar-current-date)))))
         (y (calendar-extract-year french-date))
         (m (calendar-extract-month french-date))
         (d (calendar-extract-day french-date)))
    (cond
     ((< y 1) "")
     (t (format
         "%s %d %s an %d de la Révolution, jour %s"
         (aref calendar-french-day-name-array (% (1- d) 10))
         d
         (aref calendar-french-month-name-array (1- m))
         y
         (aref calendar-french-feasts-array (+ -31 (* 30 m) d)))))))