Function: calendar-persian-date-string

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

Signature

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

Documentation

String of Persian date of Gregorian DATE, default today.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-persia.el.gz
;;;###cal-autoload
(defun calendar-persian-date-string (&optional date)
  "String of Persian date of Gregorian DATE, default today."
  (let* ((persian-date (calendar-persian-from-absolute
                        (calendar-absolute-from-gregorian
                         (or date (calendar-current-date)))))
         (y (calendar-extract-year persian-date))
         (m (calendar-extract-month persian-date)))
    (calendar-dlet
        ((monthname (aref calendar-persian-month-name-array (1- m)))
         (day (number-to-string (calendar-extract-day persian-date)))
         (year (number-to-string y))
         (month (number-to-string m))
         dayname)
      (mapconcat #'eval calendar-date-display-form ""))))