;;; init-time.el --- configure time -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>

;;; Commentary:

;; Configure time

;;; Code:

(require 'time)

(setq display-time-mode t)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-default-load-average nil)
(setq world-clock-list t)
(setq world-clock-timer-enable t)
(setq world-clock-timer-second 60)
;; UTC      => 02:42 +0000  Wednesday 20 April
;; Berkeley => 19:42 -0700  Tuesday 19 April
(setq world-clock-time-format "%R %z  %A %d %B")
(setq zoneinfo-style-world-list '(("UTC" "UTC")
                             ("America/Los_Angeles" "Berkeley")
                             ("America/Denver" "Mountain Time")
                             ("America/Chicago" "Central Time")
                             ("America/New_York" "New York")
                             ("Europe/London" "London")
                             ("Europe/Paris" "Paris")))

(add-to-list 'display-buffer-alist '("\\*wclock\\*"
                                     (display-buffer-in-side-window)
                                     (side . left)
                                     (slot . 0)
                                     (window-width . 0.35)))

(provide 'init-time)

;;; init-time.el ends here