reorganize more configurations

1 files changed, 59 insertions, 38 deletions

diff --git a/nix/users/fcuny/configs/emacs/init.el b/nix/users/fcuny/configs/emacs/init.el
index 5673b9a..19cbef7 100644
--- a/nix/users/fcuny/configs/emacs/init.el
+++ b/nix/users/fcuny/configs/emacs/init.el
@@ -7,9 +7,66 @@
 ;; use utf-8 everywhere
 (set-default-coding-systems 'utf-8)
 
-(setq backup-inhibited t)                               ;; no backups
-(setq create-lockfiles nil)                             ;; don't use a lock file
+(setq backup-inhibited t)   ;; no backups
+(setq create-lockfiles nil) ;; don't use a lock file
+
+(use-package recentf
+  :ensure nil
+  :hook (after-init . recentf-mode)
+  :config
+  (setq recentf-max-saved-items 1000)
+  (setq recentf-max-menu-items 25)
+  (setq recentf-save-file-modes nil)
+  (setq recentf-keep nil)
+  (setq recentf-auto-cleanup nil)
+  (setq recentf-initialize-file-name-history nil)
+  (setq recentf-filename-handlers nil)
+  (setq recentf-show-file-shortcuts-flag nil))
+
+;;;; Auto revert mode
+(use-package autorevert
+  :ensure nil
+  :hook (after-init . global-auto-revert-mode)
+  :config
+  (setq auto-revert-verbose t))
 
+;;; time related configurations
+;;;; Display current time
+(use-package time
+  :ensure nil
+  :hook (after-init . display-time-mode)
+  :config
+  (setq display-time-format " %a %e %b, %H:%M ")
+  (setq display-time-24hr-format t)
+  (setq display-time-interval 60)
+  (setq display-time-default-load-average nil))
+
+;;;; World clock (M-x world-clock)
+(use-package time
+  :ensure nil
+  :commands (world-clock)
+  :config
+  (setq display-time-world-list t)
+  (setq zoneinfo-style-world-list ; M-x shell RET timedatectl list-timezones
+        '(("America/Los_Angeles" "Berkeley")
+          ("America/Chicago" "Chicago")
+          ("UTC" "UTC")
+          ("Europe/Paris" "Paris")))
+
+  (setq world-clock-list t)
+  (setq world-clock-time-format "%z %R	%a %d %b (%Z)")
+  (setq world-clock-buffer-name "*world-clock*") ; Placement handled by `display-buffer-alist'
+  (setq world-clock-timer-enable t)
+  (setq world-clock-timer-second 60))
+
+;;;; Emacs server (allow emacsclient to connect to running session)
+(use-package server
+  :ensure nil
+  :defer 1
+  :config
+  (setq server-client-instructions nil)
+  (unless (server-running-p)
+    (server-start)))
 
 (require 'ibuffer)
 (require 'imenu)
@@ -39,7 +96,6 @@
 
 ;; global minor modes
 (fringe-mode '(8 . 0))
-(global-auto-revert-mode t)
 (save-place-mode t)
 (which-key-mode t)
 
@@ -49,11 +105,6 @@
       history-delete-duplicates t
       savehist-save-minibuffer-history t)
 
-(require 'recentf)
-(recentf-mode t)
-(setq recentf-max-saved-items 2000
-      recentf-max-menu-items  200)
-
 ;; some key bindings
 (global-set-key (kbd "M-j") 'join-line)
 (global-set-key (kbd "C-x C-b") 'ibuffer)
@@ -72,8 +123,6 @@
 (let ((envs '("PATH" "GOPATH" "GOBIN")))
   (exec-path-from-shell-copy-envs envs))
 
-(exec-path-from-shell-copy-envs )
-
 ;; ensure we highlights whitespaces
 (require 'whitespace)
 (dolist (mode-hook '(prog-mode-hook text-mode-hook conf-mode-hook))
@@ -111,29 +160,6 @@
                (set-buffer-modified-p nil)
                (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name))))))))
 
-;;; time related configurations
-(require 'time)
-(setq display-time-24hr-format t
-      display-time-interval 60
-      display-time-mode t
-      display-time-format "%H:%M %d.%m"
-      display-time-day-and-date t
-      display-time-default-load-average nil)
-
-(setq world-clock-list t
-      world-clock-timer-enable t
-      world-clock-timer-second 60
-      world-clock-time-format "%R %z  %A %d %B")
-
-;; UTC      => 02:42 +0000  Wednesday 20 April
-;; Berkeley => 19:42 -0700  Tuesday 19 April
-(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")))
 
 ;;; magit
 (require 'magit)
@@ -322,11 +348,6 @@
   (setq aidermacs-default-model "claude-3-7-sonnet-latest")
   (setenv "ANTHROPIC_API_KEY" (fcuny/read-op-item "op://Private/anthropic llm/credential")))
 
-;;; server
-(require 'server)
-(unless (server-running-p)
-  (server-start))
-
 ;;; early-init.el ends here
 ;; byte-compile-warnings: (not docstrings lexical noruntime)
 ;; End: