aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/init/ycp-time.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/init/ycp-time.el')
-rw-r--r--.emacs.d/init/ycp-time.el141
1 files changed, 0 insertions, 141 deletions
diff --git a/.emacs.d/init/ycp-time.el b/.emacs.d/init/ycp-time.el
deleted file mode 100644
index bc43764..0000000
--- a/.emacs.d/init/ycp-time.el
+++ /dev/null
@@ -1,141 +0,0 @@
-;;; ycp-time.el -- My config for time related -*- lexical-binding: t -*-
-
-;; Copyright (C) 2023 Free Software Foundation.
-
-;; Author: Yuchen Pei <id@ypei.org>
-;; Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Yuchen Pei <id@ypei.org>
-;; Package-Requires: ((emacs "28.2"))
-
-;; This file is part of dotfiles.
-
-;; dotfiles is free software: you can redistribute it and/or modify it under
-;; the terms of the GNU Affero General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; dotfiles 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 Affero General
-;; Public License for more details.
-
-;; You should have received a copy of the GNU Affero General Public
-;; License along with dotfiles. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; My config for time related. Covers date, time, calendar, holidays etc.
-
-;;; Code:
-
-
-
-(my-configure
- (my-setq-from-local calendar-latitude calendar-longitude calendar-location-name)
- (setq calendar-mark-holidays-flag t)
-
-;;;;; World clock (M-x world-clock)
- (setq display-time-world-list t)
- (setq zoneinfo-style-world-list ; timedatectl list-timezones
- '(("Pacific/Honolulu" "Honolulu")
- ("America/Los_Angeles" "Los Angeles")
- ("America/Chicago" "Chicago")
- ("America/New_York" "Boston")
- ("UTC" "UTC")
- ("Europe/London" "Coventry")
- ("Europe/Berlin" "Berlin")
- ("Africa/Khartoum" "Khartoum")
- ("Europe/Helsinki" "Helsinki")
- ("Asia/Dubai" "Dubai")
- ("Asia/Yekaterinburg" "Yekaterinburg")
- ("Asia/Calcutta" "Delhi")
- ("Asia/Shanghai" "Shanghai")
- ("Pacific/Auckland" "Auckland")))
-
- ;; All of the following variables are for Emacs 28
- (require 'time)
- (setq world-clock-list t)
- (setq world-clock-time-format "%R %z %A %d %B")
- (setq world-clock-buffer-name "*world-clock*") ; Placement handled by `display-buffer-alist'
- (setq world-clock-timer-enable t)
- (setq world-clock-timer-second 60)
-
- ;; Holidays
- (setq holiday-other-holidays
- '(
- (holiday-float 4 1 3 "Sechseläuten (Burning of Böögg)")
- (holiday-fixed 3 8 "Women's Day")
- (holiday-chinese 4 8 "Buddha's birthday (East Asia)")
- (holiday-fixed 4 26 "World Intellectual Pooperty Day")
- (holiday-fixed 4 30 "Walpurgis Night")
- (holiday-fixed 5 1 "May Day")
- (holiday-fixed 5 12 "International Nurses Day")
- (holiday-fixed 6 4 "International Nothing Happened On This Day")
- (holiday-float 6 6 1 "Midsommar" 20)
- (holiday-float 9 6 3 "Software Freedom Day")
- (holiday-islamic 10 1 "Hari Raya Puasa")
- (holiday-fixed 12 13 "St Lucia Day")
- (holiday-easter-etc -47 "Fat Tuesday / Fettisdagen / Pancake Tuesday / Mardi Gras")
- (holiday-easter-etc 39 "Ascension Day")
- (holiday-easter-etc 60 "Corpus Christi")
- )
- calendar-chinese-all-holidays-flag t
- holiday-local-holidays
- '(
- (holiday-fixed 1 26 "Australia Day (Vic holiday)")
- (holiday-float 3 1 2 "Labour Day (Vic holiday)")
- (holiday-fixed 4 25 "Anzac Day (Vic holiday)")
- (holiday-float 6 1 2 "Monarch's Birthday (Vic oliday)")
- (holiday-fixed 6 30 "End of financial year")
- (holiday-float 9 5 -1 "(Possibly) Friday before the AFL Grand Final (Vic holiday)")
- (holiday-float 10 5 1 "(Possibly) Friday before the AFL Grand Final (Vic holiday)")
- (holiday-float 11 2 1 "Melbourne Cup (Vic holiday)")
- )
- holiday-general-holidays
- '(
- (holiday-fixed 1 1 "New Year's Day")
- (holiday-fixed 2 14 "Valentine's Day")
- (holiday-fixed 3 17 "St. Patrick's Day")
- (holiday-fixed 4 1 "April Fools' Day")
- (holiday-float 5 0 2 "Mother's Day")
- (holiday-float 6 0 3 "Father's Day")
- (holiday-fixed 7 4 "US Independence Day")
- (holiday-fixed 10 31 "Halloween")
- (holiday-float 11 4 4 "Thanksgiving")
- )
- holiday-bahai-holidays
- '()
- holiday-hebrew-holidays
- '()
- )
- (setq calendar-holidays
- (append holiday-general-holidays holiday-local-holidays
- holiday-other-holidays holiday-christian-holidays
- holiday-hebrew-holidays holiday-islamic-holidays
- holiday-bahai-holidays holiday-oriental-holidays
- holiday-solar-holidays
- (my-get-from-local my-holiday-personal-holidays)))
- (put 'list-timers 'disabled nil)
- )
-
-(my-package appt
- (:delay 20)
- (setq appt-message-warning-time 5)
- (setq appt-display-duration 30)
- (setq appt-display-interval 5)
- ;; dbus notification of appt
- (require 'my-time)
- (setq appt-disp-window-function #'my-app-display-window)
- ;; with org-agenda-to-appt
- (require 'org-clock)
- (require 'my-utils)
- (when (boundp 'appt-to-agenda-timer)
- (cancel-timer appt-to-agenda-timer))
- (when (my-server-p)
- (setq appt-to-agenda-timer
- (run-at-time
- "07:00am"
- 86400 #'org-agenda-to-appt))))
-
-(provide 'ycp-time)
-;;; ycp-time.el ends here