;; -*- lexical-binding: t -*-
(setq mac-option-modifier 'meta
      mac-command-modifier 'super)

(global-set-key (kbd "s-a") 'mark-whole-buffer)    ; 对应Windows上面的Ctrl-a 全选
(global-set-key (kbd "s-c") 'kill-ring-save)       ; 对应Windows上面的Ctrl-c 复制
(global-set-key (kbd "s-s") 'save-buffer)          ; 对应Windows上面的Ctrl-s 保存
(global-set-key (kbd "s-v") 'yank)                 ; 对应Windows上面的Ctrl-v 粘贴
(global-set-key (kbd "s-z") 'undo)                 ; 对应Windows上面的Ctrol-z 撤销
(global-set-key (kbd "s-x") 'kill-region)          ; 对应Windows上面的Ctrol-x 剪切
 

(global-hl-line-mode 1)                            ; 高亮行号
(set-face-background 'hl-line "#e3f0fe")           ; 颜色

(setq default-frame-alist '((font . "霞鹜文楷等宽-20")))  ; 字体设置
(setq inhibit-startup-screen t)                    ; 关闭欢迎界面
(global-display-line-numbers-mode 1)               ; 设置行号
(electric-pair-mode t)                             ; 自动补全括号, 引号等
(tool-bar-mode 0)                                  ; 关闭界面菜单
(scroll-bar-mode 0)                                ; 关闭右侧滑动
(setq-default cursor-type '(bar . 4))              ; 设置光标样式
(setq make-backup-files nil)                       ; 不要设置~备份文件
(delete-selection-mode 1)                          ; 被选中的文字重新编辑允许直接覆盖
(global-auto-revert-mode 1)                        ; 外部如果更新了当前编辑的文本, em里面同步刷新
(fset 'yes-or-no-p 'y-or-n-p)                      ; 


;(setq tab-always-indent 'complete)                 ; tab补全(界面有点乱, 不用了)

;(require 'recentf)                                 ; 关闭文件后记录文件位置(好像没起作用)
;(recentf-mode 1)
;(setq recentf-max-menu-item 10)                    ; 保留历史位置的文件数目

 
; 启动包管理器
(require 'package)
(setq package-archives '(("gnu"   . "http://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
                          ("melpa" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")))
(package-initialize)
;;防止反复调用 package-refresh-contents 会影响加载速度
(when (not package-archive-contents)
  (package-refresh-contents))

;; 启动use package
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

;; 会在当前页显示一个buf进代码行提示
(use-package company
  :ensure t
  :defer t
  :init
  (global-company-mode 1)
  :config
  (setq company-minimum-prefix-length 2)
  (setq company-idle-delay 0.2)
  )


;; 提示按下的按键和对应的函数
(use-package keycast
  :ensure t
  :defer t
  :init
  (keycast-mode-line-mode 1)
  :config
  )

;; 对C M 相关的命令搜索提示
(use-package vertico
  :ensure t
  :defer t
  :init
  (vertico-mode t)
  :config
  )

;; 模糊搜搜提示
(use-package orderless
  :ensure t
  :defer t
  :init
  (setq completion-styles '(orderless))
  :config
  )

;; 直接显示粗略的帮助文档 用来配合vertico/orderless
(use-package marginalia
  :ensure t
  :defer t
  :init
  (marginalia-mode t)
  :config
  )

;; 增强帮助和搜索
(use-package embark-consult
  :ensure t
  :defer t
  :bind((("C-;" . embark-act)     ;; 绑定 C-; 到 embark-act
   ("C-s" . consult-line)         ;; 将 C-s 绑定到 consult-line，用于文本搜索
   ("M-s i" . consult-imenu)      ;; M-s i 跳转到 consult-imenu，快速访问函数列表
   ("C-x b" . consult-buffer)     ;; C-x b 打开 consult-buffer，带历史记录的缓冲区列表
   ))
  :init
  (setq consult-async-min-input 2)
  :config
  (setq prefix-help-command 'embark-prefix-help-command)
  )

;; 设置主题
(use-package catppuccin-theme
  :ensure t
  :defer t
  :init
  (setq catppuccin-flavor 'latte)
  (load-theme 'catppuccin :no-confirm)
  :config
  )


(setq a "~/.emacs.d/")

(defun say ())