76 lines
2.6 KiB
EmacsLisp
76 lines
2.6 KiB
EmacsLisp
;;; hungarian-holidays.el --- Adds a list of Hungarian public holidays to Emacs calendar
|
||
|
||
;; Copyright (C) 2016 Gergely Polonkai <gergely@polonkai.eu>
|
||
|
||
;; Author: Gergely Polonkai <gergely@polonkai.eu>
|
||
;; Maintainer: Gergely Polonkai <gergely@polonkai.eu>
|
||
;; Version: 0.0.1
|
||
;; Package-Version: 20161020.1338
|
||
;; Created: 20th October 2016
|
||
;; Keywords: calendar
|
||
|
||
;; This program is free software; you can redistribute it and/or
|
||
;; modify it under the terms of the GNU General Public License
|
||
;; as published by the Free Software Foundation; either version 3
|
||
;; of the License, or (at your option) any later version.
|
||
|
||
;; This program is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
|
||
;;; This package adds Hungarian (https://en.wikipedia.org/wiki/Hungary)
|
||
;;; public holidays to the Emacs calendar.
|
||
;;;
|
||
;;; If you have `org-agenda-include-diary` set to `t`, these will be
|
||
;;; also listed in the `org-agenda` view.
|
||
|
||
;;; Installation
|
||
|
||
;;; This package is available on MELPA, just `M-x` `package-install`
|
||
;;; `hungarian-holidays`. If you want to install it manually, clone
|
||
;;; this repository somewhere, add it to `load-path`, and add
|
||
;;; `(require 'hungarian-holidays)` to `.emacs`.
|
||
|
||
;;; Configuration
|
||
|
||
;;; Add a call to `(hungarian-holidays-add)` somewhere in your
|
||
;;; `.emacs`. Note that this must be called *before* Emacs calendar
|
||
;;; is loaded.
|
||
|
||
;;; Attribution
|
||
|
||
;;; This package is based on David Chkhikvadze’s `czech-holidays'
|
||
;;; package.
|
||
|
||
;;; Code:
|
||
|
||
(defvar hungarian-holidays-list
|
||
'((holiday-fixed 1 1 "Újév")
|
||
(holiday-fixed 3 15 "Az 1848-as forradalom ünnepe")
|
||
(holiday-easter-etc 0 "Húsvét Vasárnap")
|
||
(holiday-easter-etc 1 "Húsvét Hétfő")
|
||
(holiday-fixed 5 1 "A munka ünnepe")
|
||
(holiday-easter-etc 49 "Pünkösd vasárnap")
|
||
(holiday-easter-etc 50 "Pünkösd hétfő")
|
||
(holiday-fixed 8 20 "Az Államalapítás ünnepe")
|
||
(holiday-fixed 10 23 "Az 1956-os forradalom ünnepe")
|
||
(holiday-fixed 11 1 "Mindenszentek")
|
||
(holiday-fixed 12 25 "Karácsony napja")
|
||
(holiday-fixed 12 26 "Karácsony másnapja"))
|
||
"List of Hungarian public holidays.")
|
||
|
||
;;;###autoload
|
||
(defun hungarian-holidays-add ()
|
||
"Add Hungarian public holidays to Emacs calendar."
|
||
(mapc (lambda (d) (add-to-list 'holiday-other-holidays d t))
|
||
hungarian-holidays-list))
|
||
|
||
(provide 'hungarian-holidays)
|
||
;;; hungarian-holidays.el ends here
|