update

init.el

@@ -13,7 +13,7 @@
 ;; handy settings
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
-(global-display-line-numbers-mode 1)
+(global-display-line-numbers-mode 0)
 (global-auto-revert-mode t)
 
 (setq mac-command-modifier 'meta)
@@ -25,6 +25,7 @@
 (global-unset-key (kbd "C-SPC"))
 (global-set-key (kbd "M-SPC") 'set-mark-command)
 (global-set-key (kbd "C-x C-b") 'bs-show)
+(global-set-key (kbd "C-,") 'compile)
 
 (windmove-default-keybindings 'meta)
 
@@ -36,10 +37,25 @@
 (load custom-file)
 ;; end handy settings
 
+;; backup settings
+(setq backup-directory-alist `(("." . "~/.emacs.d/backups/")))
+(setq version-control t)     ; 开启多版本备份
+(setq kept-old-versions 2)   ; 保留最早的2个版本
+(setq kept-new-versions 6)   ; 保留最新的6个版本
+(setq delete-old-versions t) ; 自动删除中间的多余版本
+
 ;; treesit
 (setq treesit-language-source-alist
       '((c3 "https://github.com/c3lang/tree-sitter-c3")))
 
+;; org
+(global-set-key (kbd "C-c c") 'org-capture)
+
+(setq org-capture-templates
+      '(("d" "draft" entry 
+         (file+headline "~/org/draft.org" "草稿本")
+         "* %? \n TIME: %U\n  %i" :empty-lines 1)))
+
 ;; packages
 (use-package use-package-treesit
   :ensure t)
@@ -52,7 +68,7 @@
 (use-package dimmer
   :ensure t
   :init
-  (setq dimmer-fraction 0.3) ; 调整变暗的程度（0.0 到 1.0，越大越暗，0.3 刚刚好）
+  (setq dimmer-fraction 0.3) ; 调整变暗的程度（0.0 到y 1.0，越大越暗，0.3 刚刚好）
   :config
   (dimmer-mode 1))
 
@@ -60,10 +76,56 @@
   :ensure t
   :bind ("M-o" . ace-window))
 
+(use-package treemacs
+  :ensure t
+  :defer t
+  :bind
+  ("C-x t" . treemacs) ; 依然沿用你习惯的 C-x t 来开关
+  :config
+  (setq treemacs-position 'left                  ; 放在左边
+        treemacs-width 30                        ; 宽度为 30
+        treemacs-is-never-other-window t        ; 用 C-x o 切换分屏时，光标会自动跳过侧边栏，非常舒服
+        treemacs-file-follow-mode 'always))     ; 右边看什么代码，左边目录就自动高亮到哪里
+
+(use-package projectile
+  :ensure t
+  :init
+  (projectile-mode +1)
+  :bind-keymap
+  ("C-c p" . projectile-command-map) ; 统一把 C-c p 作为所有项目操作的前缀
+  :config
+  (setq projectile-sort-order 'recentf) ; 优先展示最近打开过的小伙伴
+  (setq projectile-project-search-path '("~/workspace/" "~/code/")))
+
+(use-package go-mode
+  :ensure t
+  :hook (go-mode . eglot-ensure) ; 进入 go-mode 自动启动 eglot
+  :config
+  ;; 配置 eglot 在保存时自动格式化和整理导包
+  (add-hook 'before-save-hook
+            (lambda ()
+              (when (derived-mode-p 'go-mode)
+                ;; 相当于 goimports 的效果
+                (eglot-code-actions nil nil "source.organizeImports" t)
+                ;; 相当于 gofmt 的效果
+                (eglot-format-buffer)))))
+
+(use-package crystal-mode
+  :ensure t
+  :init
+  (autoload 'crystal-mode "crystal-mode" "Major mode for crystal files" t)
+   (add-to-list 'auto-mode-alist '("\\.cr$" . crystal-mode))
+   (add-to-list 'interpreter-mode-alist '("crystal" . crystal-mode))(autoload 'crystal-mode "crystal-mode" "Major mode for crystal files" t)
+   (add-to-list 'auto-mode-alist '("\\.cr$" . crystal-mode))
+   (add-to-list 'interpreter-mode-alist '("crystal" . crystal-mode)))
+
+(use-package gleam-ts-mode
+  :ensure t
+  :mode (rx ".gleam" eos))
 
 ;; vendor
 (add-to-list 'load-path (expand-file-name "vendor/c3-ts-mode" user-emacs-directory))
 (require 'c3-ts-mode)
 
-
-
+(add-to-list 'load-path (expand-file-name "vendor/odin-mode" user-emacs-directory))
+(require 'odin-mode)