| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253 |
- ;;; Code:
- (require 'diary-lib)
- (require 'holidays)
- (require 'lunar)
- ;; General settings
- (setq calendar-mark-diary-entries-flag t
- calendar-view-diary-initially-flag t
- calendar-mark-holidays-flag t
- lunar-phase-names
- '("● New Moon"
- "☽ First Quarter Moon"
- "○ Full Moon"
- "☾ Last Quarter Moon"))
- (add-to-list 'auto-mode-alist '("diary" . diary-mode))
- ;; Custom holidays
- (setq-default holiday-general-holidays
- '((holiday-fixed 1 1 "Año nuevo")
- (holiday-sexp '(calendar-nth-named-day 1 1 1 year 6) "Día de Reyes")
- (holiday-sexp '(calendar-nth-named-day 1 1 3 year 19) "Día de San José")
- (holiday-easter-etc -3 "Jueves Santo")
- (holiday-easter-etc -2 "Viernes Santo")
- (holiday-fixed 5 1 "Día del trabajo")
- (holiday-easter-etc +43 "Día de la ascención")
- (holiday-sexp '(calendar-nth-named-day 1 1 6 year 29)
- "San Pedro y San Pablo")
- (holiday-easter-etc +64 "Corpus Christi")
- (holiday-easter-etc +71 "Sagrado corazón")
- (holiday-fixed 7 20 "Día de la independencia")
- (holiday-fixed 8 7 "Batalla de Boyacá")
- (holiday-sexp '(calendar-nth-named-day 1 1 8 year 15)
- "Asunción de la virgen")
- (holiday-sexp '(calendar-nth-named-day 1 1 10 year 12) "Día de la raza")
- (holiday-sexp '(calendar-nth-named-day 1 1 11 year 1)
- "Todos los santos")
- (holiday-sexp '(calendar-nth-named-day 1 1 11 year 11)
- "Independencia de Cartagena")
- (holiday-fixed 12 8 "Inmaculada concepción")
- (holiday-fixed 12 25 "Navidad")))
- (setq calendar-holidays (append holiday-general-holidays
- holiday-local-holidays
- holiday-other-holidays
- holiday-solar-holidays))
- ;; Hooks
- (add-hook 'calendar-today-visible-hook 'calendar-mark-today)
- (provide 'conf-calendar)
- ;;; conf-calendar.el ends here
|
