JosephFerano/old-dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Emacs tree sitter, dired dwim, lsp/eglot

Browse Source
This commit is contained in:
Joseph Ferano 2022-08-17 08:54:45 +07:00
parent ff552097de
commit ec91954c61
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
.emacs.vanilla/init.el
View File

@ -136,7 +136,7 @@ all of the evil keybindings in buffers like magit, without compromises."
'(flycheck-color-mode-line-face-to-color 'mode-line-buffer-id) '(flycheck-color-mode-line-face-to-color 'mode-line-buffer-id)
'(frame-background-mode 'dark) '(frame-background-mode 'dark)
'(package-selected-packages '(package-selected-packages
'(consult-eglot eglot lsp-ui nano-modeline mini-modeline simple-modeline dimmer pdf-tools dap-mode csharp-mode consult-lsp lsp-mode consult flycheck all-the-icons-completion kind-icon mini-modeline good-scroll shelldon pcomplete-extension corfu-doc esh-autosuggest fish-completion cape corfu highlight-quoted writeroom-mode mini-frame dirvish ranger evil-goggles magit multi-vterm evil-collection smartparens vterm all-the-icons-dired all-the-icons org-bullets select-themes fsharp-mode fish-mode find-file-in-project helpful ahk-mode rainbow-delimiters doom-themes marginalia selectrum-prescient prescient selectrum avy evil-commentary evil-embrace evil-snipe evil-surround undo-tree which-key dashboard)) '(eglot-fsharp evil-textobj-tree-sitter tree-sitter-langs tree-sitter consult-eglot eglot lsp-ui nano-modeline mini-modeline simple-modeline dimmer pdf-tools dap-mode csharp-mode consult-lsp lsp-mode consult flycheck all-the-icons-completion kind-icon mini-modeline good-scroll shelldon pcomplete-extension corfu-doc esh-autosuggest fish-completion cape corfu highlight-quoted writeroom-mode mini-frame dirvish ranger evil-goggles magit multi-vterm evil-collection smartparens vterm all-the-icons-dired all-the-icons org-bullets select-themes fsharp-mode fish-mode find-file-in-project helpful ahk-mode rainbow-delimiters doom-themes marginalia selectrum-prescient prescient selectrum avy evil-commentary evil-embrace evil-snipe evil-surround undo-tree which-key dashboard))
'(window-divider-mode nil)) '(window-divider-mode nil))
(custom-set-faces (custom-set-faces
;; custom-set-faces was added by Custom. ;; custom-set-faces was added by Custom.
@ -179,6 +179,7 @@ all of the evil keybindings in buffers like magit, without compromises."
(if (eq system-type 'windows-nt) (if (eq system-type 'windows-nt)
(setq ls-lisp-dirs-first t) (setq ls-lisp-dirs-first t)
(setq dired-listing-switches "-ahlgo -v --group-directories-first")) (setq dired-listing-switches "-ahlgo -v --group-directories-first"))
(setq dired-dwim-target t)
;; (require 'dimmer) ;; (require 'dimmer)
;; (setq dimmer-adjustment-mode :both) ;; (setq dimmer-adjustment-mode :both)
@ -505,7 +506,7 @@ all of the evil keybindings in buffers like magit, without compromises."
(define-key corfu-map (kbd "M-p") #'corfu-doc-scroll-down) (define-key corfu-map (kbd "M-p") #'corfu-doc-scroll-down)
(define-key corfu-map (kbd "M-n") #'corfu-doc-scroll-up) (define-key corfu-map (kbd "M-n") #'corfu-doc-scroll-up)
;; (require 'lsp) (require 'lsp)
(require 'consult) (require 'consult)
;; (require 'consult-lsp) ;; (require 'consult-lsp)
(require 'dap-mode) (require 'dap-mode)
@ -514,10 +515,23 @@ all of the evil keybindings in buffers like magit, without compromises."
(setq dap-print-io t) (setq dap-print-io t)
(require 'eglot) (require 'eglot)
(require 'eglot-fsharp)
(require 'consult-eglot) (require 'consult-eglot)
(defun joe/compile () (interactive) (compile "make run")) (defun joe/compile () (interactive) (compile "make run"))
(require 'tree-sitter)
(require 'tree-sitter-langs)
(require 'evil-textobj-tree-sitter)
(define-key evil-outer-text-objects-map "f" (evil-textobj-tree-sitter-get-textobj "function.outer"))
(define-key evil-inner-text-objects-map "f" (evil-textobj-tree-sitter-get-textobj "function.inner"))
(define-key evil-normal-state-map (kbd "]f") (lambda ()
(interactive)
(evil-textobj-tree-sitter-goto-textobj "function.outer")))
(define-key evil-normal-state-map (kbd "[f") (lambda ()
(interactive)
(evil-textobj-tree-sitter-goto-textobj "function.outer" t)))
;; (dap-register-debug-template "NetCoreDdg Launch (4)" ;; (dap-register-debug-template "NetCoreDdg Launch (4)"
;; (list :type "coreclr" ;; (list :type "coreclr"
;; :request "launch" ;; :request "launch"