blob: a6932aaf5a668974256c672b4e4b37b0f9ea508b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
;;; 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
|