summary refs log tree commit diff
path: root/emacs
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2021-10-21 15:03:14 -0700
committerFranck Cuny <franck@fcuny.net>2021-10-21 15:03:14 -0700
commitea98c90ccfe15c5082af90bebfc325e92aef04d7 (patch)
treef07bea91f42cbb2b2b05793a422a8532aa73aa13 /emacs
parentemacs: adjust timezone information (diff)
downloademacs.d-ea98c90ccfe15c5082af90bebfc325e92aef04d7.tar.gz
emacs: configure world-clock
Diffstat (limited to 'emacs')
-rw-r--r--emacs/custom/fcuny-ui.el25
1 files changed, 16 insertions, 9 deletions
diff --git a/emacs/custom/fcuny-ui.el b/emacs/custom/fcuny-ui.el
index c71156d..cbc58f1 100644
--- a/emacs/custom/fcuny-ui.el
+++ b/emacs/custom/fcuny-ui.el
@@ -81,19 +81,21 @@
 (setq display-time-interval 60)
 (setq display-time-default-load-average nil)
 (setq zoneinfo-style-world-list
-      '(("America/Los_Angeles" "Berkeley")
-        ("America/Chicago" "Chicago")
+      '(("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")
+        ("Asia/Calcutta" "Bangalore")
         ("Asia/Tokyo" "Tokyo")))
 
-;; (setq world-clock-list t)
-;; (setq world-clock-time-format "%R %z  %A %d %B")
-;; Placement handled by `display-buffer-alist'
-;; (setq world-clock-buffer-name "*world-clock*")
-;; (setq world-clock-timer-enable t)
-;; (setq world-clock-timer-second 60)
+(when (boundp 'world-clock-list)
+  (setq world-clock-list t)
+  (setq world-clock-time-format "%R %z  %A %d %B")
+  (setq world-clock-timer-enable t)
+  (setq world-clock-timer-second 60))
 
 (display-time-mode t)
 
@@ -141,7 +143,12 @@
          (display-buffer-reuse-mode-window display-buffer-in-side-window)
          (window-width . 0.35)
          (side . left)
-         (slot . 0))))
+         (slot . 0))
+        ("\\*\\(wclock\\).*"
+           (display-buffer-in-side-window)
+           (window-width . 0.35)
+           (side . left)
+           (slot . 0))))
 
 (add-hook 'help-mode-hook #'visual-line-mode)