X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/5e1c3722bed4ad0682167b080d5a8e42ca3ea2df..966011a81f3d7e86dd8cb8b39854a911a3bf5e61:/.emacs.d/init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index fdc7a33..6169072 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -341,7 +341,12 @@ This sets each user option VAR's value to the corresponding VALUE.
    display-time-mail-icon '(image :type xpm
                                   :file "gnus/gnus-pointer.xpm"
                                   :ascent center)
-   display-time-use-mail-icon t)
+   display-time-use-mail-icon t
+   zoneinfo-style-world-list
+   `(,@zoneinfo-style-world-list
+     ("Etc/UTC" "UTC")
+     ("Asia/Tehran" "Tehran")
+     ("Australia/Melbourne" "Melbourne")))
   (display-time-mode))
 
 (run-with-idle-timer 0.1 nil #'require 'battery)
@@ -357,6 +362,14 @@ This sets each user option VAR's value to the corresponding VALUE.
 (require 'winner)
 (winner-mode 1)
 
+(run-with-idle-timer 0.1 nil #'require 'windmove)
+(with-eval-after-load 'windmove
+  (csetq windmove-wrap-around t)
+  (global-set-key (kbd "M-H") #'windmove-left)
+  (global-set-key (kbd "M-L") #'windmove-right)
+  (global-set-key (kbd "M-K") #'windmove-up)
+  (global-set-key (kbd "M-J") #'windmove-down))
+
 (with-eval-after-load 'compile
   ;; don't display *compilation* buffer on success.  based on
   ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'
@@ -434,10 +447,12 @@ This sets each user option VAR's value to the corresponding VALUE.
 
 ;; info
 (with-eval-after-load 'info
-  (add-to-list
-   'Info-directory-list
-   (expand-file-name
-    (convert-standard-filename "info/") source-directory)))
+  (csetq
+   Info-directory-list
+   `(,@Info-directory-list
+     ,(expand-file-name
+       (convert-standard-filename "info/") source-directory)
+     "/usr/share/info/")))
 
 ;; faces
 (when (display-graphic-p)