;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/world-clock-incal.el

(require 'time)

(defalias 'wc #'world-clock)

(setq world-clock-time-format " %F  %R  %z  %Z")

(keymap-set world-clock-mode-map "u" (lambda ()
                                       (interactive)
                                       (world-clock-update) ))

(setq zoneinfo-style-world-list
  (list
   '("America/Los_Angeles" "Los Angeles")
   '("America/New_York"    "New York")
   '("Europe/London"       "London")
   '("Europe/Brussels"     "Amsterdam")
   '("Europe/Berlin"       "Berlin")
   '("Europe/Paris"        "Paris")
   '("Europe/Stockholm"    "Stockholm")
   '("Europe/Istanbul"     "Istanbul")
   '("Europe/Moscow"       "Moscow")
   '("Asia/Shanghai"       "Shanghai")
   ))

(provide 'world-clock-incal)