.emacs-my
changeset 1354 57d416cf71fa
parent 1352 5d8228d51506
child 1355 420364dcee32
--- a/.emacs-my	Thu Mar 03 17:49:51 2016 +0200
+++ b/.emacs-my	Mon Mar 07 12:04:54 2016 +0200
@@ -365,12 +365,6 @@
 ;; (linum-mode 1)
 ;; (global-linum-mode 1)
 
-;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ")
-(setq display-time-24hr-format t)
-(setq display-time-day-and-date nil)
-(setq display-time-default-load-average nil)
-(display-time)                          ; display-time-mode
-
 (when window-system
   (set-background-color "white")
   (set-foreground-color "black")
@@ -412,6 +406,23 @@
 (setq initial-scratch-message nil)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(setq "date, time")
+
+(require 'time)
+
+;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ")
+(setq display-time-24hr-format t)
+(setq display-time-day-and-date nil)
+(setq display-time-default-load-average nil)
+(display-time)                          ; display-time-mode
+
+;; For (display-time-world).
+(setq display-time-world-time-format "%A %d %B %R %z %Z")
+(mapc (lambda (el) (add-to-list 'display-time-world-list el))
+      '(("EET" "EET")
+        ("PST" "PST")))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "shell, bash, Cygwin, MSYS")
 
 (defvar my-use-windows-shell nil