2022-11-19 14:21:32

config.org

@@ -333,6 +333,16 @@ one, an error is signaled."
   ;; lsp-mode's performance suggest
   (setq read-process-output-max (* 3 1mb))
 #+end_src
+
+so-long
+
+#+begin_src emacs-lisp
+(use-package so-long
+  :straight (:host github :repo "hlissner/emacs-so-long")
+  :config
+  (add-hook 'after-init-hook #'global-so-long-mode)
+  (setq so-long-threshold 40000))
+#+end_src
 * UI/主题/字体
 #+begin_src emacs-lisp
 (set-face-attribute 'default nil :height 140 :family "WenQuanYi Micro Hei Mono")
@@ -534,7 +544,7 @@ one, an error is signaled."
     :non-normal-prefix "C-SPC")
 
   (global-definer
-   ;; "TAB" 'projectile-persp-switch-project
+   "TAB" 'projectile-persp-switch-project
    "SPC" 'execute-extended-command
    "0" 'select-window-0
    "1" 'select-window-1
@@ -678,7 +688,6 @@ one, an error is signaled."
 
    ;; C-c
    ;; 1 + 2 + 3
-   ;; "C-c =" 'math-at-point
    ;; C-c f  -> hydra-lsp/body
    "C-c b" 'consult-bookmark
    "C-c h" 'consult-history
@@ -689,10 +698,10 @@ one, an error is signaled."
    ;; "C-c c" 'copy-buffer-file-name-as-kill
    "C-c i" 'org-mac-link-get-link
    "C-c e" 'consult-flycheck
-   ;; "C-c r" 'vr/replace
-   ;; "C-c q" 'vr/query-replace
-   ;; "C-c m" 'vr/mc-mark
-   ;; "C-c u" 'uuidgen
+   "C-c r" 'vr/replace
+   "C-c q" 'vr/query-replace
+   "C-c m" 'vr/mc-mark
+   "C-c u" 'uuidgen
    )
 #+end_src
 
@@ -717,7 +726,7 @@ one, an error is signaled."
    "s-R" 're-builder
    ;; "s-i" 'gcl/string-inflection-cycle-auto
    "s-d" 'consult-dir
-   ;; "s-F" 'format-all-buffer
+   "s-F" 'format-all-buffer
    ;; "s-h" 'gcl/urls/body
    ;; "s-`" 'vterm-toggle
    "s-'" 'vertico-repeat
@@ -867,6 +876,10 @@ one, an error is signaled."
                                  "`")))
 #+end_src
 * 工具类
+** hydra
+#+begin_src emacs-lisp
+(use-package hydra)
+#+end_src
 ** crux
 #+begin_src emacs-lisp
 (use-package crux)
@@ -886,6 +899,53 @@ one, an error is signaled."
   (setq fanyi-auto-select nil))
 
 #+end_src
+** link-hint
+#+begin_src emacs-lisp
+(use-package link-hint
+  :ensure t
+  :bind
+  ("C-c l o" . link-hint-open-link)
+  ("C-c l c" . link-hint-copy-link))
+#+end_src
+** math-at-point
+
+Result 6.23+(3.789/(5-4)) + 6.4*(2 - (5+3) *736.83 ) /2000
+
+#+begin_src emacs-lisp
+(use-package math-at-point
+  :straight (:host github :repo "shankar2k/math-at-point"))
+#+end_src
+** uuid
+#+begin_src emacs-lisp
+(use-package uuidgen)
+#+end_src
+** dired
+#+begin_src emacs-lisp
+(require 'dired)
+
+(setq dired-recursive-deletes 'always)
+(setq dired-recursive-copies 'always)
+(setq delete-by-moving-to-trash t)
+(setq dired-dwim-target t)
+(setq dired-listing-switches "-alh")
+
+(setq dired-guess-shell-alist-user
+      '(("\\.pdf\\'" "open")
+        ("\\.docx\\'" "open")
+        ("\\.\\(?:djvu\\|eps\\)\\'" "open")
+        ("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "open")
+        ("\\.\\(?:xcf\\)\\'" "open")
+        ("\\.csv\\'" "open")
+        ("\\.tex\\'" "open")
+        ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'"
+         "open")
+        ("\\.\\(?:mp3\\|flac\\)\\'" "open")
+        ("\\.html?\\'" "open")
+        ("\\.md\\'" "open")))
+
+(use-package diredfl
+  :hook ((dired-mode . diredfl-mode)))
+#+end_src
 * 开发设置
 
 node 包路径：
@@ -1016,6 +1076,12 @@ node 包路径：
     :hook ((js2-mode . lsp)
 	   (web-mode . lsp)
 	   (typescript-mode . lsp)
+	   (c-mode . lsp)
+	   (c++-mode . lsp)
+	   (python-mode . lsp)
+	   (css-mode . lsp)
+	   (lua-mode . lsp)
+	   (shell-mode . lsp)
 	   ;; if you want which-key integration
 	   (lsp-mode . lsp-enable-which-key-integration))
     :custom
@@ -1131,9 +1197,44 @@ node 包路径：
 	(lsp-vue-mmm-enable)))
 #+end_src
 ** lsp-hydra
+#+begin_src emacs-lisp
+(defhydra gcl/lsp (:exit t :hint nil)
+  "
+ Buffer^^               Server^^                   Symbol
+-------------------------------------------------------------------------------------
+ [_f_] format           [_M-r_] restart            [_d_] declaration  [_i_] implementation  [_o_] documentation
+ [_m_] imenu            [_S_]   shutdown           [_D_] definition   [_t_] type            [_r_] rename
+ [_x_] execute action   [_M-s_] describe session   [_R_] references   [_s_] signature"
+  ("d" lsp-find-declaration)
+  ("D" lsp-ui-peek-find-definitions)
+  ("R" lsp-ui-peek-find-references)
+  ("i" lsp-ui-peek-find-implementation)
+  ("t" lsp-find-type-definition)
+  ("s" lsp-signature-help)
+  ("o" lsp-describe-thing-at-point)
+  ("r" lsp-rename)
 
+  ("f" format-all-buffer)
+  ("m" lsp-ui-imenu)
+  ("x" lsp-execute-code-action)
+
+  ("M-s" lsp-describe-session)
+  ("M-r" lsp-restart-workspace)
+  ("S" lsp-shutdown-workspace))
+#+end_src
+** format-all
 #+begin_src emacs-lisp
-(use-package hydra)
+(use-package format-all)
+#+end_src
+#+begin_src emacs-lisp
+(use-package flycheck
+  :ensure t
+  :init (global-flycheck-mode))
+(use-package pkg-info)
+(use-package posframe)
+(use-package flymake-posframe
+  :straight (:host github :repo "Ladicle/flymake-posframe")
+  :hook (flymake-mode . flymake-posframe-mode))
 #+end_src
 * 版本管理
 ** magit
@@ -1870,6 +1971,63 @@ kbd:C-c_C-c <kbd:C-c C-c>
   ;; (setq consult-project-function (lambda (_) (projectile-project-root)))
   )
 #+end_src
+** wgrep
+#+begin_src emacs-lisp
+(use-package wgrep
+  :config
+  (setq wgrep-auto-save-buffer t))
+#+end_src
+** visual-regexp
+#+begin_src emacs-lisp
+(use-package visual-regexp)
+(use-package visual-regexp-steroids)
+#+end_src
+* projects
+** projectile
+#+begin_src emacs-lisp
+(use-package projectile
+  :ensure t
+  :init
+  (projectile-mode +1)
+  :config
+  (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
+  (autoload 'projectile-project-root "projectile")
+  (setq consult-project-function (lambda (_) (projectile-project-root)))
+  ;; alien, hybrid
+  (setq projectile-indexing-method 'alien projectile-enable-caching t)
+  )
+#+end_src
+** consult-projectile
+#+begin_src emacs-lisp
+(use-package consult-projectile)
+#+end_src
+** persp
+#+begin_src emacs-lisp
+(use-package perspective
+  :bind
+  ("C-x C-b" . persp-list-buffers)         ; or use a nicer switcher, see below
+  :custom
+  (persp-mode-prefix-key (kbd "C-c TAB"))  ; pick your own prefix key here
+  :init
+  (persp-mode)
+  :config
+  (setq persp-state-default-file (expand-file-name ".cache/gcl" user-emacs-directory))
+  (setq persp-show-modestring 'header)
+  (add-hook 'kill-emacs-hook #'persp-state-save)
+  (use-package persp-projectile)
+  )
+
+(with-eval-after-load 'general
+  (general-define-key
+   "s-1" '(lambda () (interactive) (persp-switch-by-number 1))
+   "s-2" '(lambda () (interactive) (persp-switch-by-number 2))
+   "s-3" '(lambda () (interactive) (persp-switch-by-number 3))
+   "s-4" '(lambda () (interactive) (persp-switch-by-number 4))
+   "s-5" '(lambda () (interactive) (persp-switch-by-number 5))
+   "s-)" 'persp-next
+   "s-(" 'persp-prev
+   ))
+#+end_src
 * 参考配置
 
 [[https://github.com/purcell/emacs.d][purcell/emacs.d: An Emacs configuration bundle with batteries included]]