;; 实用行操作
(defun my/duplicate-line ()
  "复制当前行。"
  (interactive)
  (let ((col (current-column)))
    (move-beginning-of-line 1)
    (kill-line)
    (yank)
    (open-line 1)
    (forward-line 1)
    (yank)
    (move-to-column col)))

(global-set-key (kbd "C-c d") 'my/duplicate-line)

(defun my/move-line-up ()
  "将当前行上移。"
  (interactive)
  (transpose-lines 1)
  (forward-line -2))

(defun my/move-line-down ()
  "将当前行下移。"
  (interactive)
  (forward-line 1)
  (transpose-lines 1)
  (forward-line -1))

(global-set-key (kbd "M-<up>") 'my/move-line-up)
(global-set-key (kbd "M-<down>") 'my/move-line-down)

;; 排序命令
M-x sort-lines              ; 按字母排序
M-x sort-numeric-fields     ; 按数字排序
M-x sort-columns            ; 按列排序
M-x reverse-region          ; 反转行顺序

;; 去重
M-x delete-duplicate-lines  ; 删除重复行（Emacs 29+）
M-x uniq                    ; 相邻去重

;; 使用 cua-mode 获得更直观的矩形编辑
;; C-RET 进入矩形选择模式
(cua-mode 1)
(setq cua-enable-cua-keys nil)  ; 禁用 C-x, C-c 的 CUA 绑定
;; 使用 C-RET 开始矩形选择
;; 使用方向键调整大小
;; 输入文本会同时插入到矩形区域的每一行

;; multiple-cursors 包提供类似 VS Code 的多光标功能
(use-package multiple-cursors
  :bind (("C-S-c C-S-c" . mc/edit-lines)        ; 矩形区域多光标
         ("C->" . mc/mark-next-like-this)         ; 选中下一个相同文本
         ("C-<" . mc/mark-previous-like-this)     ; 选中上一个相同文本
         ("C-c C-<" . mc/mark-all-like-this)      ; 选中所有相同文本
         ("C-S-<mouse-1>" . mc/add-cursor-on-click)))  ; 鼠标点击添加光标

;; 使用流程：
;; 1. C-> 逐个选中下一个匹配
;; 2. 编辑时所有光标同时生效
;; 3. C-g 退出多光标模式

;; 1. 保存宏到文件
;; C-x C-k n my-macro RET  → 命名宏
;; M-x insert-kbd-macro RET my-macro RET  → 插入到文件
;; 保存为：
(fset 'my-macro
   (kmacro-lambda-form [?• ?  return] 0 "%d"))

;; 2. 将宏保存为命令
;; 录制宏后：
;; C-x C-k n → 输入名称 → 保存到 init.el

;; 3. 在宏中使用递归编辑
;; C-x q  → 在宏执行时暂停，等待用户输入
;; 当你希望宏在某些行停下来让你手动处理时很有用

;; 启用缩写模式
(setq-default abbrev-mode t)
(setq abbrev-file-name "~/.emacs.d/abbrevs")
(if (file-exists-p abbrev-file-name)
    (quietly-read-abbrev-file))

;; 定义缩写：
;; 1. 输入缩写词，如 "teh"
;; 2. C-x a g → 输入展开文本 "the" → RET
;; 3. 以后输入 "teh " 会自动展开为 "the "

;; 缩写表定义
(define-abbrev-table 'global-abbrev-table
  '(
    ("btw" "by the way")
    ("fyi" "for your information")
    ("asap" "as soon as possible")
    ("wrt" "with respect to")
    ))

;; 安装 aspell
;; sudo apt install aspell aspell-en aspell-zh

;; 配置
(setq ispell-program-name "aspell")
(setq ispell-extra-args '("--sug-mode=ultra"))
(setq ispell-dictionary "en_US")

;; 使用 flyspell 实时检查
(use-package flyspell
  :hook ((text-mode . flyspell-mode)
         (prog-mode . flyspell-prog-mode))  ; 只检查注释和字符串
  :config
  (setq flyspell-issue-message-flag nil))

;; jinx 是更快的拼写检查包
(use-package jinx
  :hook (emacs-startup . global-jinx-mode)
  :bind ([remap ispell-word] . jinx-correct))

;; dabbrev 补全（最古老的补全方式）
;; M-/ 在当前缓冲区中搜索匹配的文本并补全
;; 连续按 M-/ 循环更多候选

;; hippie-expand（更强大的 dabbrev）
(global-set-key (kbd "M-/") 'hippie-expand)
(setq hippie-expand-try-functions-list
      '(try-complete-file-name-partially
        try-complete-file-name
        try-expand-all-abbrevs
        try-expand-dabbrev
        try-expand-dabbrev-all-buffers
        try-expand-dabbrev-from-kill))

(use-package company
  :diminish company-mode
  :hook (after-init . global-company-mode)
  :config
  (setq company-minimum-prefix-length 1
        company-idle-delay 0.1
        company-selection-wrap-around t
        company-tooltip-align-annotations t
        company-show-quick-access t)
  :bind (:map company-active-map
              ("C-n" . company-select-next)
              ("C-p" . company-select-previous)
              ("RET" . company-complete-selection)
              ("TAB" . company-complete-common-or-cycle)
              ("<tab>" . company-complete-common-or-cycle)))

(use-package yasnippet
  :diminish yas-minor-mode
  :hook ((prog-mode . yas-minor-mode)
         (org-mode . yas-minor-mode))
  :config
  (yas-reload-all)
  ;; 自定义片段目录
  (setq yas-snippet-dirs '("~/.emacs.d/snippets")))

;; 片段集合
(use-package yasnippet-snippets
  :after yasnippet)