.emacs.d/lisp/init-kbd.el

;;; init-kbd.el --- keybindings  -*- lexical-binding: t -*-

;;; Commentary:

;;; Code:

;; 修改mac键位
(when *is-mac*
  (setq mac-command-modifier 'meta)
  (setq mac-option-modifier 'none))

;; 使用F2打开init.el
(defun open-init-file()
  "Open user's init.el file in ~/.emacs.d ."
  (interactive)
  (find-file "~/.emacs.d/init.el"))

(global-set-key (kbd "<f2>") 'open-init-file)

;; 快速打开函数与变量的定义
(global-set-key (kbd "C-h C-f") 'find-function)
(global-set-key (kbd "C-h C-v") 'find-variable)

;; 根据平台使用不同的重启方式
(if *is-windows*
    (progn
      (defun restart-emacs ()
        "Restart emacs (for Windows)"
        (interactive)
	(save-some-buffers)
        (w32-shell-execute "open" "runemacs.exe")
        (kill-emacs))
      (global-set-key (kbd "C-c r") 'restart-emacs))
  (global-set-key (kbd "C-c r") 'restart-emacs))

;; multiple cursors
(global-set-key (kbd "C-c c c") 'mc/edit-lines)
(global-set-key (kbd "C-c c s") 'mc/mark-all-in-region)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-c c p") 'mc/unmark-previous-like-this)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-c c n") 'mc/unmark-next-like-this)
(global-set-key (kbd "<mouse-5>") 'mc/mark-pop)
(global-set-key (kbd "C-{") 'mc/mark-previous-like-this-symbol)
(global-set-key (kbd "C-}") 'mc/mark-next-like-this-symbol)
(global-set-key (kbd "C-c c a") 'mc/mark-all-dwim)

;; expand region
(global-set-key (kbd "C-c e") 'er/expand-region)
(setq expand-region-reset-fast-key "r")
(setq expand-region-contract-fast-key "c")

;; 大小写
(global-set-key (kbd "M-c") 'capitalize-dwim)
(global-set-key (kbd "M-u") 'upcase-dwim)
(global-set-key (kbd "M-l") 'downcase-dwim)

;; jinx相关
(defun my/jinx-smart-toggle ()
  "Toggle jinx-mode smartly.
Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise toggle global-jinx-mode."
  (interactive)
  (unless (featurep 'jinx)
    (require 'jinx))
  (let ((local-on (bound-and-true-p jinx-mode))
        (global-on (bound-and-true-p global-jinx-mode)))
    (cond
     ((and local-on (not global-on))
      (message "disable jinx-mode in current buffer")
      (jinx-mode -1))
     (t
      (if global-on
          (progn
            (message "disable global-jinx-mode")
            (global-jinx-mode -1))
        (progn
          (message "enable global-jinx-mode")
          (global-jinx-mode 1)))))))

(global-set-key (kbd "C-c j j") 'my/jinx-smart-toggle)
(with-eval-after-load 'init-jinx
  (global-set-key (kbd "C-c f j") 'consult-jinx))

;; pair编辑
(global-set-key (kbd "C-c p d") 'delete-pair)

;; 快速复制当前行
(defun duplicate-and-move-to-next-line()
  "Duplicate current line and move to next line."
  (interactive)
  (progn
    (duplicate-line)
    (next-line)))
(global-set-key (kbd "C-,") 'duplicate-and-move-to-next-line)

;; 切换buffer
(defun my-tab-line-buffers ()
  "Get list of buffers shown in tab-line."
  (mapcar (lambda (tab)
            (if (consp tab) (cdr tab) tab))
          (funcall tab-line-tabs-function)))

(defun previous-buffer-with-tab-line ()
  "Switch to previous buffer in tab-line order."
  (interactive)
  (let ((already-enabled global-tab-line-mode))
    (unless already-enabled
      (global-tab-line-mode 1))
    (let* ((buffers (my-tab-line-buffers))
           (current (current-buffer))
           (pos (cl-position current buffers)))
      (when pos
        (switch-to-buffer
         (nth (mod (1- pos) (length buffers)) buffers))))
    (unless already-enabled
      (run-with-idle-timer 0.5 nil (lambda () (global-tab-line-mode -1))))))

(defun next-buffer-with-tab-line ()
  "Switch to next buffer in tab-line order."
  (interactive)
  (let ((already-enabled global-tab-line-mode))
    (unless already-enabled
      (global-tab-line-mode 1))
    (let* ((buffers (my-tab-line-buffers))
           (current (current-buffer))
           (pos (cl-position current buffers)))
      (when pos
        (switch-to-buffer
         (nth (mod (1+ pos) (length buffers)) buffers))))
    (unless already-enabled
      (run-with-idle-timer 0.5 nil (lambda () (global-tab-line-mode -1))))))

(global-set-key (kbd "<f3>") 'previous-buffer-with-tab-line)
(global-set-key (kbd "<mouse-4>") 'previous-buffer)
(global-set-key (kbd "M-[") 'previous-buffer)
(global-set-key (kbd "<f4>") 'next-buffer-with-tab-line)
(global-set-key (kbd "<mouse-5>") 'next-buffer)
(global-set-key (kbd "M-]") 'next-buffer)

;; 打开tab-line-mode
(global-set-key (kbd "C-c u l") 'global-tab-line-mode)
(global-set-key (kbd "<mouse-3>") 'global-tab-line-mode)

;; 关闭主题
(global-set-key (kbd "C-c u d") 'disable-theme)

;; 打开ibuffer
(global-set-key (kbd "C-x C-b") 'ibuffer-other-window)
(setq ibuffer-default-sorting-mode 'filename)

;; 段落导航
(global-set-key (kbd "M-p") 'backward-paragraph)
(global-set-key (kbd "M-n") 'forward-paragraph)

;; 中键使用embark打开定义
(global-set-key (kbd "<mouse-2>") 'xref-find-definitions)

;; 使用快速切换到scratch buffer
(if *is-mac*
    (global-set-key (kbd "C-C <f12>") 'scratch-buffer)
  (global-set-key (kbd "C-c <delete>") 'scratch-buffer))

;; 调整window
(global-set-key (kbd "M-<left>") 'shrink-window-horizontally)
(global-set-key (kbd "M-<right>") 'enlarge-window-horizontally)
(global-set-key (kbd "M-<up>") 'enlarge-window)
(global-set-key (kbd "M-<down>") 'shrink-window)

;; es-windows
(global-set-key (kbd "<f10>") 'esw/swap-two-windows)

;; popper
(global-set-key (kbd "M-`") 'popper-toggle-latest)

(defun popper-toggle-type-delete-other-window()
  "Toggle type of popper window and delete other window."
  (interactive)
  (popper-toggle-type)
  (delete-other-windows))
(global-set-key (kbd "C-M-=") 'popper-toggle-type-delete-other-window)

;; crux相关
(global-set-key (kbd "C-<backspace>") 'crux-kill-line-backwards) ;; C-DEL kill line backwards
(global-set-key (kbd "C-c k") 'comment-line) ;; 快速注释
(global-set-key (kbd "C-k") 'crux-smart-kill-line) ;; smart kill line
(global-set-key (kbd "C-a") 'crux-move-beginning-of-line) ;; 移动到第一个缩进而非行首
(global-set-key (kbd "C-x K") 'crux-kill-other-buffers) ;; 删除除当前buffer之外的buffer

;; undo-fu
(global-set-key (kbd "C-/") 'undo-fu-only-undo)
(global-set-key (kbd "C-.") 'undo-fu-only-redo)

;; vundo
(global-set-key (kbd "C-x u") 'vundo)

;; consult
(global-set-key (kbd "C-x b") 'consult-buffer) ;; buffer菜单
(global-set-key (kbd "C-s") 'consult-line) ;; 搜索
(global-set-key (kbd "C-c s") 'consult-focus-lines) ;; focus line
(global-set-key (kbd "C-c i") 'consult-imenu) ;; imenu
(global-set-key (kbd "C-c f r") 'consult-recent-file) ;; 最近打开
(global-set-key (kbd "C-c f f") 'consult-fd) ;; 调用fd进行目录内搜索
(global-set-key (kbd "C-c f g") 'consult-ripgrep) ;; consult-ripgrep
(global-set-key (kbd "C-c y") 'consult-yank-from-kill-ring) ;; 从kill ring中粘贴
(global-set-key (kbd "C-x r b") 'consult-bookmark) ;; 书签菜单，embark中有更多操作
(define-key minibuffer-local-map (kbd "C-c C-e") 'embark-export) ;; 把minibuffer结果在一个菜单中显示
(global-set-key (kbd "C-c f e") 'consult-flycheck) ;; flycheck菜单
(global-set-key (kbd "C-c u t") 'consult-theme) ;; 主题预览

(if *is-mac*
    (progn
      (global-set-key (kbd "C-c f l") 'consult-fd-global)
      (global-set-key (kbd "C-c f m") 'consult-locate))
  (global-set-key (kbd "C-c f l") 'consult-locate)
  (global-set-key (kbd "C-c f m") 'consult-fd-global))

;; flycheck
(global-set-key (kbd "C-c f c") 'global-flycheck-mode)
(with-eval-after-load 'flycheck
  (define-key flycheck-mode-map (kbd "M-{") 'flycheck-previous-error)
  (define-key flycheck-mode-map (kbd "M-}") 'flycheck-next-error))

;; avy
(global-set-key (kbd "C-M-;") 'avy-goto-char)
(global-set-key (kbd "C-M-'") 'ace-pinyin-jump-char)
(global-set-key (kbd "M-g g") 'avy-goto-line)

;; hungry-delete
(global-set-key (kbd "C-c DEL") 'hungry-delete-backward) ;; 向后删除到第一个非空字符
(global-set-key (kbd "C-c d") 'hungry-delete-forward)	  ;; 向前删除到第一个非空字符

;; drag-stuff
(global-set-key (kbd "M-P") 'drag-stuff-up)
(global-set-key (kbd "M-N") 'drag-stuff-down)

;; ace-windows
(global-set-key (kbd "M-o") 'ace-window)

;; embark，修饰键之后加C-h可以查看所有指令
(global-set-key (kbd "C-;") 'embark-act)

;; vterm
(with-eval-after-load 'vterm
  (define-key vterm-mode-map (kbd "M-]") nil)
  (define-key vterm-mode-map (kbd "C-x C-x") 'vterm-send-C-x))

;; ;; eshell
;; (with-eval-after-load 'eshell
;;   (define-key eshell-mode-map (kbd "M-n") nil)
;;   (define-key eshell-mode-map (kbd "M-p") nil)
;;   (define-key eshell-mode-map (kbd "M-{") 'eshell-previous-matching-input-from-input)
;;   (define-key eshell-mode-map (kbd "M-}") 'eshell-next-matching-input-from-input))

;; 打开目录
(defun consult-directory-externally (file)
  "Open FILE externally using the default application of the system."
  (interactive "fOpen externally: ")
  (if (and (eq system-type 'windows-nt)
           (fboundp 'w32-shell-execute))
      (shell-command-to-string (encode-coding-string (replace-regexp-in-string "/" "\\\\"
                                                                               (format "explorer.exe %s" (file-name-directory (expand-file-name file))))
						     'gbk))
    (call-process (pcase system-type
                    ('darwin "open")
                    ('cygwin "cygstart")
                    (_ "xdg-open"))
                  nil 0 nil
                  (file-name-directory (expand-file-name file)))))

(with-eval-after-load 'embark
  (define-key embark-file-map (kbd "d") 'consult-directory-externally))

;;打开当前文件的目录
(defun my-open-current-directory ()
  "Open current directory in default file explorer."
  (interactive)
  (consult-directory-externally default-directory))

(global-set-key (kbd "C-c f d") 'my-open-current-directory)

;; org-mode相关
;; cycle当前subtree
(defun org-cycle-current-subtree()
  "Cycle current subtree."
  (interactive)
  (org-back-to-heading)
  (org-cycle))
(global-set-key (kbd "C-<tab>") 'org-cycle-current-subtree)

;; heading菜单
(with-eval-after-load 'org
    (define-key org-mode-map (kbd "C-c i") 'consult-org-heading))

;; 存储一个链接
(global-set-key (kbd "C-c l") 'org-store-link)

;; 打开calendar
(global-set-key (kbd "C-c o C") 'calendar)

;; 在calendar中快速打开当天日记
(eval-after-load "calendar"
  (progn
    '(define-key calendar-mode-map (kbd "j o") 'org-journal-open-entry-for-editing)
    '(define-key calendar-mode-map (kbd "<RET>") 'org-journal-open-entry-for-editing)))

;; 日记
(defun org-journal-open-current-journal-file-delete-other-window()
  "Call org-journal-open-current-journal-file and delete other window."
  (interactive)
  (org-journal-open-current-journal-file)
  (delete-other-windows))

(defun org-journal-new-entry-delete-other-window()
  "Call org-journal-new-entry and delete other window."
  (interactive)
  (org-journal-new-entry nil)
  (delete-other-windows))

(global-set-key (kbd "C-c j o") 'org-journal-open-current-journal-file-delete-other-window)
(global-set-key (kbd "C-c j n") 'org-journal-new-entry-delete-other-window)

;; emms
(global-set-key (kbd "C-c m n") 'emms-next)
(global-set-key (kbd "C-c m p") 'emms-previous)
(global-set-key (kbd "C-c m b") 'emms-browser)
(global-set-key (kbd "C-c m q") 'emms-stop)
(global-set-key (kbd "C-c m S") 'emms-toggle-single-track) ;自动连播开关

(with-eval-after-load 'embark
  (define-key embark-file-map (kbd "p") 'emms-play-dired))

(add-hook 'dired-mode-hook
	  (lambda ()
	    (local-unset-key (kbd "<mouse-2>"))
	    (local-set-key (kbd "<mouse-2>") 'emms-play-dired)
	    (local-set-key (kbd "C-c m a") 'emms-add-dired)))

(add-hook 'emms-playlist-mode-hook
	  (lambda ()
	    (local-unset-key (kbd "<prior>"))
	    (local-unset-key (kbd "<next>"))
	    (local-set-key (kbd "<prior>") 'emms-previous)
	    (local-set-key (kbd "<next>") 'emms-next)))


(defun switch-to-emms-playlist()
  "Switch to emms playlist."
  (interactive)
  (switch-to-buffer "*EMMS Playlist*"))
(global-set-key (kbd "C-c m l") 'switch-to-emms-playlist)

(global-set-key (kbd "C-c m d") 'my-emms-play-directory)


(provide 'init-kbd)

;;; init-kbd.el ends here