my-emacs-d/lisp/minari.el
Gergely Polonkai 20389b6617 Initial version of minari.el
It has some bugs (or maybe my JS version has one). Yet, it’s
feature-complete.
2016-11-03 16:09:40 +01:00

66 lines
2.4 KiB
EmacsLisp
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;; minari.el --- Calculate Minari dates
;;; Commentary:
;;
;;; Code:
(defconst minari-special-day-names
'("Hëður" "Rideyy" "Morkh" "Morkh+" "Khmerd" "Chamog")
"Names of the special (monthless) days of the year.")
(defconst minari-weekday-names
'("Rounn" "Mïrdu" "Hëmi" "Drak" "Þodon" "Charm")
"Names of weekdays.")
(defconst minari-month-names
'("Mëbel" "Dirann" "Ma"
"Gerub" "Þrei" "Dimoc"
"Xentor" "Mëðïr" "Draþ"
"Quaden" "Ridïmel" "Rodom")
"Names of months.")
(defun minari-today-string ()
"Calculate today's date according to the Minari Calendar."
(let ((today (decode-time (current-time))))
(message "%s" today)
(setf (nth 3 today) (+ (nth 3 today) 11))
(message "%s" today)
(let* ((minari-leap (date-leap-year-p (nth 5 today)))
(doy (time-to-day-in-year (apply 'encode-time today)))
(minari-year (- (nth 5 today) 1873))
(minari-month 0)
(minari-doy 0)
(minari-day 0)
(minari-weekday 0)
(minari-special-day -1))
(cond
((eq doy 0) (setq minari-special-day 0))
((eq doy 91) (setq minari-special-day 1))
((eq doy 182) (setq minari-special-day 2))
((and (eq doy 183) minari-leap) (setq minari-special-day 3))
((and (eq doy 273) (not minari-leap)) (setq minari-special-day 4))
((and (eq doy 274) minari-leap) (setq minari-special-day 4))
((and (eq doy 364) (not minari-leap)) (setq minari-special-day 5))
((and (eq doy 365) minari-leap) (setq minari-special-day 5))
(t (let ((decr 0)
(minari-doy doy))
(when (> minari-doy 0) (setq decr (1+ decr)))
(when (> minari-doy 91) (setq decr (1+ decr)))
(when (> minari-doy 182) (setq decr (1+ decr)))
(when (and (> minari-doy 183) minari-leap) (setq decr (1+ decr)))
(when (and (> minari-doy 273) (not minari-leap))
(setq decr (1+ decr)))
(when (and (> minari-doy 274) minari-leap) (setq decr (1+ decr)))
(setq minari-doy (- minari-doy (1+ decr))
minari-month (round (fceiling (/ minari-doy 30)))
minari-day (% minari-doy 30))
(when (eq minari-day 0) (setq minari-day 30))
(setq minari-weekday (% minari-day 6)))))
(message "%d %s %s" minari-year minari-month minari-day)
)))
(provide 'minari)
;;; minari.el ends here