You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
898 lines
30 KiB
898 lines
30 KiB
#+startup: overview
|
|
|
|
* Famous init files
|
|
- [[https://github.com/zamansky/dot-emacs][The Big Zemansky]]
|
|
- [[https://github.com/patrickt/emacs][Patrick: GOAT init emacs]]
|
|
- [[https://github.com/manugoyal/.emacs.d][Manugoyal: Emacs config]]
|
|
- [[https://github.com/daviwil/dotfiles/blob/master/Emacs.org][System Crafters]]
|
|
- [[https://github.com/daviwil/emacs-from-scratch/blob/master/Emacs.org][System Crafters emacs-from-scratch]]
|
|
- [[https://github.com/SystemCrafters/crafter-configs][System Crafters configs compilation]]
|
|
|
|
* Before this file loads
|
|
** =early-init.el= has been loaded.
|
|
This file inhibits package.el for loading packages
|
|
** =init.el= has been loaded
|
|
This file:
|
|
- Set all that it's needed for =straight.el= working as package manager
|
|
- **IMPORTANT** Changes the =user-emacs-directory= from =~/.emacs.d= to =~/.cache/emacs=. This can be really important in case you change something fundamental in emacs configuration
|
|
- Load the =no-littering= package (see [[https://github.com/emacscollective/no-littering][doc]]) This package sets out to fix this by changing the values of path variables to put configuration files in =no-littering-etc-directory= (this will be =~/.cache/emacs/etc/= for this configuration) and persistent data files in =no-littering-var-directory= (for me: =~/.cache/emacs/var/=), and by using descriptive file names and subdirectories when appropriate. This is similar to a color-theme; a "path-theme" if you will.
|
|
- Tries to install =org-mode= just to be sure to have the last release
|
|
- Loads the newer of this two files: =myconfig.org= and =myconfig.el=. In other words, if there are no new changes in =myconfig.org= it loads =myconfig.el= (it's faster)
|
|
|
|
* use-package tips
|
|
Some notes about [[https://github.com/jwiegley/use-package][use-package]]
|
|
- *:ensure* if true will install the package if not installed
|
|
It won't update packages. See auto-package-update for keeping all
|
|
packages up to date
|
|
- *:init* keyword to execute code *before* a package is loaded. It
|
|
accepts one or more forms, up to the next keyword
|
|
- *:config* can be used to execute code *after* a package is loaded.
|
|
In cases where loading is done lazily (see more about autoloading
|
|
below), this execution is deferred until after the autoload
|
|
occurs
|
|
- *:custom* permite configurar variables con syntaxis simplificada
|
|
- *:bind*
|
|
- *:bind-keymap*
|
|
- *:commands*
|
|
- *:mode* and *:interpreter*
|
|
- *:magic*
|
|
- *:hook* You can define hooks
|
|
- *:if*
|
|
- *:defer* En general use-package intenta aplicar lazy loading, pero
|
|
en algún paquete es necesario especificarlo explicitamente
|
|
- *:demand* Este es el contrario del anterior, para paquetes
|
|
que queremos cargar de inmediato
|
|
- *:diminish* and *:delight* changes minormode display in status line
|
|
|
|
* Personal info
|
|
#+begin_src elisp
|
|
(setq user-full-name "Sergio Alvariño"
|
|
user-mail-address "salvari@protonmail.com")
|
|
#+end_src
|
|
* Interface tweaks
|
|
** Some GUI optimizations
|
|
#+begin_src emacs-lisp
|
|
;; sets default font
|
|
(set-face-attribute 'default nil :family "Mensch" :foundry "PfEd" :height 158)
|
|
|
|
(setq inhibit-x-resources t) ; avoid problems with emacs daemon and cursor colors
|
|
(setq inhibit-startup-message t) ; Eliminate FSF startup msg
|
|
(setq frame-title-format "%b") ; Put filename in titlebar
|
|
(setq visible-bell t) ; Flash instead of beep
|
|
(set-scroll-bar-mode 'right) ; Scrollbar placement
|
|
(show-paren-mode t) ; Blinking cursor shows matching parentheses
|
|
(electric-pair-mode t) ; electric-pair-mode on
|
|
(setq column-number-mode t) ; Show column number of current cursor location
|
|
(mouse-wheel-mode t) ; wheel-mouse support
|
|
(setq fill-column 78)
|
|
(setq auto-fill-mode t) ; Set line width to 78 columns...
|
|
(setq-default indent-tabs-mode nil) ; Insert spaces instead of tabs
|
|
(setq-default tab-width 4) ; set default tab 4 spaces
|
|
(global-set-key "\r" 'newline-and-indent) ; turn autoindenting on
|
|
;(set-default 'truncate-lines t) ; Truncate lines for all buffers
|
|
(fset 'yes-or-no-p 'y-or-n-p) ; shorter messages
|
|
(setq sentence-end-double-space nil) ; only one space
|
|
; delete trailing whitespace before saving
|
|
(add-hook 'before-save-hook 'delete-trailing-whitespace)
|
|
;; Enable line numbers for some modes
|
|
(dolist (mode '(;;text-mode-hook
|
|
prog-mode-hook
|
|
conf-mode-hook))
|
|
(add-hook mode (lambda () (display-line-numbers-mode 1))))
|
|
|
|
;; Override some modes which derive from the above
|
|
(dolist (mode '(org-mode-hook))
|
|
(add-hook mode (lambda () (display-line-numbers-mode 0))))
|
|
#+end_src
|
|
|
|
** Set encoding
|
|
Use utf-8 please
|
|
#+begin_src emacs-lisp
|
|
;; Set encoding
|
|
(prefer-coding-system 'utf-8)
|
|
#+end_src
|
|
|
|
** Some shortcuts
|
|
Useful shortcuts:
|
|
- Revert buffer (recargar)
|
|
- fichero org de configuración de emacs
|
|
- fichero org ppal, aquí está todo
|
|
- journal org file
|
|
- org para el blog público, ideas para el blog
|
|
- org para el blog privado
|
|
- org notes file: para tomar una nota rápida, no lo uso mucho
|
|
- phone org file: por si tomo notas en el teléfono, no lo uso mucho
|
|
#+begin_src emacs-lisp
|
|
(global-set-key (kbd "<f5>") 'revert-buffer)
|
|
;; emacs configuration org file
|
|
(global-set-key
|
|
(kbd "\e\ec")
|
|
(lambda () (interactive) (find-file "~/.emacs.d/myconfig.org")))
|
|
;; Main org file
|
|
(global-set-key
|
|
(kbd "\e\ei")
|
|
(lambda () (interactive) (find-file "~/Dropbox/orgfiles/i.org")))
|
|
;; journal org file
|
|
(global-set-key
|
|
(kbd "\e\ej")
|
|
(lambda () (interactive) (find-file "~/Dropbox/orgfiles/journal.org")))
|
|
;; Notes file
|
|
(global-set-key
|
|
(kbd "\e\en")
|
|
(lambda () (interactive) (find-file "~/Dropbox/orgfiles/notes.org")))
|
|
;; public blog org file
|
|
(global-set-key
|
|
(kbd "\e\eb")
|
|
(lambda () (interactive) (find-file "~/Dropbox/orgfiles/b.org")))
|
|
;; private blog file
|
|
(global-set-key
|
|
(kbd "\e\ep")
|
|
(lambda () (interactive) (find-file "~/work/repos/Personal/blog/comacero_priv/content-org/blog_privado.org")))
|
|
;; phone org file
|
|
(global-set-key
|
|
(kbd "\e\eh")
|
|
(lambda () (interactive) (find-file "~/share/Mob_orgzly/phone.org")))
|
|
|
|
(global-set-key [C-tab] 'hippie-expand) ; expand
|
|
(global-set-key [C-kp-subtract] 'undo) ; [Undo]
|
|
;; (global-set-key [C-kp-multiply] 'goto-line) ; old goto line
|
|
(global-set-key [C-kp-multiply] 'consult-goto-line) ; goto line
|
|
(global-set-key [C-kp-add] 'toggle-truncate-lines) ; truncate lines
|
|
(global-set-key [C-kp-divide] 'delete-trailing-whitespace) ; delete trailing whitespace
|
|
(global-set-key [C-kp-decimal] 'completion-at-point) ; complete at point
|
|
(global-set-key [C-M-prior] 'previous-buffer) ; previous-buffer
|
|
(global-set-key [C-M-next] 'next-buffer) ; next-buffer
|
|
#+end_src
|
|
|
|
** Own map
|
|
Defines own key map
|
|
#+begin_src emacs-lisp
|
|
(define-prefix-command 'own-map)
|
|
(global-set-key (kbd "C-ñ") 'own-map)
|
|
(define-key own-map (kbd "y") 'aya-create)
|
|
(define-key own-map (kbd "e") 'aya-expand)
|
|
#+end_src
|
|
|
|
** General (a new binding system)
|
|
Have a look at [[https://github.com/noctuid/general.el#key-features][doc]]
|
|
#+begin_src emacs-lisp
|
|
;; (use-package general)
|
|
#+end_src
|
|
|
|
** Syntax highlight
|
|
Set maximum colors
|
|
#+begin_src emacs-lisp
|
|
(cond ((fboundp 'global-font-lock-mode) ; Turn on font-lock (syntax highlighting)
|
|
(global-font-lock-mode t) ; in all modes that support it
|
|
(setq font-lock-maximum-decoration t))) ; Maximum colors
|
|
#+end_src
|
|
|
|
** Kill buffer quick
|
|
Kill current buffer without questions
|
|
#+begin_src emacs-lisp
|
|
;;------------------------------------------------------------
|
|
;; Kill current buffer with C-Supr
|
|
(defun slv-kill-buffer ()
|
|
;; Kill default buffer without the extra emacs questions
|
|
(interactive)
|
|
(kill-buffer (buffer-name))
|
|
(set-name))
|
|
(global-set-key [C-delete] 'slv-kill-buffer)
|
|
#+end_src
|
|
|
|
** rainbow-delimiters
|
|
#+begin_src emacs-lisp
|
|
(use-package rainbow-delimiters
|
|
:hook (prog-mode . rainbow-delimiters-mode)
|
|
)
|
|
#+end_src
|
|
|
|
** which-key
|
|
Some help with composed hotkeys
|
|
#+begin_src emacs-lisp
|
|
(use-package which-key
|
|
:diminish
|
|
:config
|
|
(which-key-mode)
|
|
(setq which-key-idle-delay 0.3)
|
|
)
|
|
#+end_src
|
|
|
|
** ace-windows
|
|
To jump to different windows easily
|
|
#+begin_src emacs-lisp
|
|
(use-package ace-window
|
|
:init
|
|
(global-set-key [remap other-window] 'ace-window)
|
|
(custom-set-faces
|
|
'(aw-leading-char-face
|
|
((t (:inherit ace-jump-face-foreground :height 3.0)))))
|
|
)
|
|
#+end_src
|
|
|
|
** PCRE2el
|
|
Perl Compatible Regexes
|
|
#+begin_src emacs-lisp
|
|
(use-package pcre2el
|
|
:config
|
|
(pcre-mode +1))
|
|
#+end_src
|
|
|
|
** Enable narrowing (DANGER)
|
|
C-x n ...
|
|
#+begin_src emacs-lisp
|
|
(put 'narrow-to-defun 'disabled nil)
|
|
(put 'narrow-to-page 'disabled nil)
|
|
(put 'narrow-to-region 'disabled nil)
|
|
#+end_src
|
|
|
|
* doom-modeline
|
|
A fancy modeline. Remember to execute =M-x all-the-icons-install-fonts=
|
|
See [[http://sodaware.sdf.org/notes/emacs-daemon-doom-modeline-icons/][this]] for fixing icons in terminal
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package all-the-icons
|
|
)
|
|
(use-package doom-modeline
|
|
:init
|
|
(doom-modeline-mode 1)
|
|
(setq doom-modeline-icon 1) ;; this fixes icons in emacs-client
|
|
:custom
|
|
(doom-modeline-height 15)
|
|
;;(doom-modeline-icon (display-graphic-p))
|
|
)
|
|
#+end_src
|
|
|
|
* color-theme
|
|
#+begin_src emacs-lisp
|
|
;; (use-package modus-operandi-theme)
|
|
(use-package modus-themes)
|
|
;; (load-theme 'modus-operandi t)
|
|
;; (load-theme 'modus-vivendi t)
|
|
|
|
(use-package doom-themes
|
|
:config
|
|
;; Global settings (defaults)
|
|
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
|
|
doom-themes-enable-italic t) ; if nil, italics is universally disabled
|
|
(load-theme 'doom-vibrant t)
|
|
|
|
;; Enable flashing mode-line on errors
|
|
(doom-themes-visual-bell-config)
|
|
|
|
;; Enable custom neotree theme (all-the-icons must be installed!)
|
|
(doom-themes-neotree-config)
|
|
|
|
;; or for treemacs users
|
|
(setq doom-themes-treemacs-theme "doom-colors") ; use the colorful treemacs theme
|
|
(doom-themes-treemacs-config)
|
|
|
|
;; Corrects (and improves) org-mode's native fontification.
|
|
(doom-themes-org-config)
|
|
)
|
|
#+end_src
|
|
|
|
* Completion systems
|
|
** Vertico (the choosed one)
|
|
Have a look [[https://github.com/minad/vertico][here]]
|
|
#+begin_src emacs-lisp
|
|
(use-package vertico
|
|
:init
|
|
(vertico-mode +1)
|
|
:config
|
|
;; Different scroll margin
|
|
;; (setq vertico-scroll-margin 0)
|
|
|
|
;; Show more candidates
|
|
;; (setq vertico-count 20)
|
|
|
|
;; Grow and shrink the Vertico minibuffer
|
|
;; (setq vertico-resize t)
|
|
|
|
;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
|
|
(setq vertico-cycle t)
|
|
)
|
|
#+end_src
|
|
|
|
*** Orderless
|
|
Have a look at [[https://github.com/oantolin/orderless][repo]]
|
|
#+begin_src emacs-lisp
|
|
(use-package orderless
|
|
:init
|
|
(icomplete-mode)
|
|
:custom
|
|
(completion-styles '(orderless))
|
|
(completion-category-defaults nil)
|
|
(completion-category-overrides '((file (styles partial-completion))))
|
|
)
|
|
#+end_src
|
|
|
|
*** Marginalia
|
|
Check the [[https://github.com/minad/marginalia][doc]]
|
|
#+begin_src emacs-lisp
|
|
(use-package marginalia
|
|
:init
|
|
(marginalia-mode +1)
|
|
:bind
|
|
(; ("M-A" . marginalia-cycle) ;; Uncomment for global bind
|
|
:map minibuffer-local-map
|
|
("M-A" . marginalia-cycle))
|
|
)
|
|
#+end_src
|
|
* Consult and Embark
|
|
Consult is a collection of programs using emacs =completing-read=
|
|
You must read [[https://github.com/minad/consult][the doc]]!
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package consult
|
|
:bind (("C-c h" . consult-history)
|
|
("C-c m" . consult-mode-command)
|
|
("C-c k" . consult-kmacro)
|
|
;; C-x bindings (ctl-x-map)
|
|
("C-s" . consult-line) ; orig. isearch-forward
|
|
("C-c j" . consult-imenu)
|
|
("C-x M-:" . consult-complex-command) ; orig. repeat-complex-command
|
|
("C-x b" . consult-buffer) ; orig. switch-to-buffer
|
|
:map minibuffer-local-map
|
|
("C-r" . consult-history)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
** Embark
|
|
[[https://github.com/oantolin/embark][The doc]]
|
|
#+begin_src emacs-lisp
|
|
(use-package embark
|
|
:bind
|
|
(("C-." . embark-act) ;; pick some comfortable binding
|
|
("C-;" . embark-dwim) ;; good alternative: M-.
|
|
("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
|
|
|
|
:init
|
|
|
|
;; Optionally replace the key help with a completing-read interface
|
|
(setq prefix-help-command #'embark-prefix-help-command)
|
|
|
|
:config
|
|
|
|
;; Hide the mode line of the Embark live/completions buffers
|
|
(add-to-list 'display-buffer-alist
|
|
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
|
|
nil
|
|
(window-parameters (mode-line-format . none))))
|
|
)
|
|
|
|
;; Consult users will also want the embark-consult package.
|
|
(use-package embark-consult
|
|
:after (embark consult)
|
|
:demand t ; only necessary if you have the hook below
|
|
;; if you want to have consult previews as you move around an
|
|
;; auto-updating embark collect buffer
|
|
:hook
|
|
(embark-collect-mode . consult-preview-at-point-mode))
|
|
#+end_src
|
|
|
|
* Editor Enhancements
|
|
** ace-windows
|
|
To jump to different windows easily
|
|
#+begin_src emacs-lisp
|
|
(use-package ace-window
|
|
:ensure t
|
|
:init
|
|
(global-set-key [remap other-window] 'ace-window)
|
|
(custom-set-faces
|
|
'(aw-leading-char-face
|
|
((t (:inherit ace-jump-face-foreground :height 3.0)))))
|
|
)
|
|
#+end_src
|
|
|
|
** ripgrep
|
|
[[https://github.com/dajva/rg.el][rg repo]]
|
|
#+begin_src emacs-lisp
|
|
(use-package rg
|
|
:bind
|
|
("C-c s" . rg-menu))
|
|
#+end_src
|
|
|
|
** Buffer management
|
|
[[https://github.com/alphapapa/bufler.el][Bufler repo]]
|
|
#+begin_src emacs-lisp
|
|
(use-package bufler
|
|
)
|
|
(defun sap/bufler-one-window (&optional force-refresh)
|
|
(interactive "P")
|
|
(bufler-list)
|
|
(delete-other-windows)
|
|
)
|
|
|
|
(global-set-key (kbd "C-x C-b") 'sap/bufler-one-window)
|
|
#+end_src
|
|
|
|
** Hydra
|
|
[[https://github.com/abo-abo/hydra][Hydra repo]]
|
|
See [[https://readingworldmagazine.com/emacs/2020-02-27-emacs-hydra-set-up-code/][this]] someday
|
|
#+begin_src emacs-lisp
|
|
(use-package hydra)
|
|
#+end_src
|
|
|
|
*** Hydra for toggle
|
|
#+begin_src emacs-lisp
|
|
(global-set-key
|
|
(kbd "<f6> t")
|
|
(defhydra hydra-toggle (:color pink)
|
|
"
|
|
_a_ abbrev-mode: %`abbrev-mode
|
|
_d_ debug-on-error: %`debug-on-error
|
|
_f_ auto-fill-mode: %`auto-fill-function
|
|
_l_ disp-line-num %`display-line-numbers-mode
|
|
_s_ flyspell-mode: %`flyspell-mode
|
|
_t_ truncate-lines: %`truncate-lines
|
|
_w_ whitespace-mode: %`global-whitespace-mode
|
|
"
|
|
("a" abbrev-mode nil)
|
|
("d" toggle-debug-on-error nil)
|
|
("f" auto-fill-mode nil)
|
|
("l" display-line-numbers-mode nil)
|
|
("s" flyspell-mode nil)
|
|
("t" toggle-truncate-lines nil)
|
|
("w" whitespace-mode nil)
|
|
("q" nil "quit"))
|
|
)
|
|
#+end_src
|
|
|
|
*** Hydra for navigation
|
|
#+begin_src emacs-lisp
|
|
(global-set-key
|
|
(kbd "<f6> j")
|
|
(defhydra gotoline
|
|
(:pre (linum-mode 1)
|
|
:post (linum-mode -1))
|
|
"goto"
|
|
("t" (lambda () (interactive)(move-to-window-line-top-bottom 0)) "top" :column "Window")
|
|
("b" (lambda () (interactive)(move-to-window-line-top-bottom -1)) "bottom")
|
|
("m" (lambda () (interactive)(move-to-window-line-top-bottom)) "middle")
|
|
("c" recenter-top-bottom "recenter")
|
|
("s" (lambda () (interactive)(beginning-of-buffer)) "begin" :column "Buffer")
|
|
("e" (lambda () (interactive)(end-of-buffer)) "end")
|
|
("n" next-line "down" :column "Line")
|
|
("p" (lambda () (interactive) (forward-line -1)) "up")
|
|
("g" goto-line "consult-goto-line")
|
|
("i" consult-imenu "cons-imenu" :column "Header")
|
|
("o" consult-org-heading "cons-org-head")
|
|
("q" nil "quit")
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
** avy
|
|
Quick navigation to words
|
|
#+begin_src emacs-lisp
|
|
(use-package avy
|
|
:config
|
|
(avy-setup-default)
|
|
:bind(
|
|
:map own-map
|
|
("jj" . avy-goto-char)
|
|
("j2" . avy-goto-char-2)
|
|
("jw" . avy-goto-word-1)
|
|
("jl" . avy-goto-line)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
** iedit
|
|
[[https://github.com/victorhge/iedit][iedit]]: Interactive edition of all ocurrences of X
|
|
#+begin_src emacs-lisp
|
|
(use-package iedit
|
|
:bind
|
|
("C-ç" . iedit-mode))
|
|
#+end_src
|
|
|
|
* Project management with projectile
|
|
#+begin_src emacs-lisp
|
|
(use-package projectile
|
|
:init
|
|
(projectile-global-mode)
|
|
:config
|
|
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
|
|
)
|
|
#+end_src
|
|
|
|
* Git management
|
|
All you need for git
|
|
- [[https://github.com/magit/magit][magit]] interface to git from emacs (there are a lot of tutos)
|
|
- [[https://github.com/emacsorphanage/git-gutter][git-gutter]] See lines changed in buffer edited
|
|
- [[https://github.com/emacsmirror/git-timemachine][git-time-machine]] Visit previous git versions of edited buffer
|
|
#+begin_src emacs-lisp
|
|
;; dirty hack to avoid problem when pushing
|
|
(setenv "SSH_AUTH_SOCK" "/run/user/1000/keyring/ssh")
|
|
|
|
(use-package magit
|
|
:bind
|
|
("C-x g" . magit-status)
|
|
:config
|
|
(setq magit-status-margin
|
|
'(t "%Y-%m-%d %H:%M " magit-log-margin-width t 18))
|
|
)
|
|
|
|
(use-package git-gutter
|
|
:init
|
|
(global-git-gutter-mode +1)
|
|
)
|
|
(defhydra hydra-git-gutter (:body-pre (git-gutter-mode 1)
|
|
:hint nil)
|
|
"
|
|
Git gutter:
|
|
_j_: next hunk _s_tage hunk _q_uit
|
|
_k_: previous hunk _r_evert hunk _Q_uit and deactivate git-gutter
|
|
^ ^ _p_opup hunk
|
|
_h_: first hunk
|
|
_l_: last hunk set start _R_evision
|
|
"
|
|
("j" git-gutter:next-hunk)
|
|
("k" git-gutter:previous-hunk)
|
|
("h" (progn (goto-char (point-min))
|
|
(git-gutter:next-hunk 1)))
|
|
("l" (progn (goto-char (point-min))
|
|
(git-gutter:previous-hunk 1)))
|
|
("s" git-gutter:stage-hunk)
|
|
("r" git-gutter:revert-hunk)
|
|
("p" git-gutter:popup-hunk)
|
|
("R" git-gutter:set-start-revision)
|
|
("q" nil :color blue)
|
|
("Q" (progn (git-gutter-mode -1)
|
|
;; git-gutter-fringe doesn't seem to
|
|
;; clear the markup right away
|
|
(sit-for 0.1)
|
|
(git-gutter:clear))
|
|
:color blue))
|
|
(global-set-key (kbd "M-g M-g") 'hydra-git-gutter/body)
|
|
|
|
(use-package git-timemachine
|
|
)
|
|
#+end_src
|
|
|
|
* yasnippet
|
|
- [[https://github.com/joaotavora/yasnippet][yasnippet]] (there are many tutorials)
|
|
- [[https://github.com/abo-abo/auto-yasnippet][auto-yasnippet]] (disposable snippets)
|
|
- [[https://github.com/AndreaCrotti/yasnippet-snippets][yasnippets-snippets]]
|
|
Place your own snippets on =~/.cache/emacs/etc/yasnippet/snippets=
|
|
#+begin_src emacs-lisp
|
|
(use-package yasnippet
|
|
:init
|
|
(yas-global-mode 1)
|
|
)
|
|
(use-package auto-yasnippet
|
|
)
|
|
(use-package yasnippet-snippets
|
|
)
|
|
#+end_src
|
|
|
|
* company
|
|
Autocompletion with [[https://company-mode.github.io/][company]]
|
|
*Remember*: =company-lsp= is deprecated, don't use it.
|
|
#+begin_src emacs-lisp
|
|
(use-package company
|
|
:init
|
|
(global-company-mode t)
|
|
;;(setq company-backends '((company-files company-keywords company-capf company-dabbrev-code company-etags company-dabbrev)))
|
|
|
|
:config
|
|
;; (setq company-idle-delay 0)
|
|
(setq company-idle-delay
|
|
(lambda () (if (company-in-string-or-comment) nil 0.3)))
|
|
(setq company-minimum-prefix-length 3)
|
|
;; (add-to-list 'company-backends 'company-yasnippet t)
|
|
|
|
:bind
|
|
("C-<iso-lefttab>" . company-complete-common-or-cycle)
|
|
)
|
|
#+end_src
|
|
|
|
** company-quickhelp
|
|
In case you want popup help instead of status line help
|
|
#+begin_src emacs-lisp
|
|
(use-package company-quickhelp
|
|
:config
|
|
(company-quickhelp-mode)
|
|
;; (setq company-quickhelp-delay nil) ; Uncoment to disable quickhelp (default 0.5)
|
|
)
|
|
#+end_src
|
|
|
|
* org-mode
|
|
** org-bullets
|
|
Nice bullets for org-mode
|
|
#+begin_src emacs-lisp
|
|
(use-package org-bullets
|
|
:config
|
|
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
|
|
)
|
|
#+end_src
|
|
|
|
* flycheck
|
|
You *must* use [[https://www.flycheck.org/en/latest/][flycheck]] if you use LSP. (Flymake + LSP is hell)
|
|
Syntax checking for programming languages
|
|
#+begin_src emacs-lisp
|
|
(use-package flycheck
|
|
:config
|
|
(global-set-key (kbd "C-c f p") 'flycheck-previous-error)
|
|
(global-set-key (kbd "C-c f n") 'flycheck-next-error)
|
|
:init
|
|
(global-flycheck-mode t)
|
|
)
|
|
#+end_src
|
|
|
|
* LSP
|
|
We are using [[https://emacs-lsp.github.io/lsp-mode/][lsp-mode]] but keep an eye on [[https://github.com/joaotavora/eglot][eglot]] as an alternative.
|
|
**WARNING**: =lsp-company= is no longer supported
|
|
|
|
Links to check
|
|
- [[https://emacs-lsp.github.io/lsp-mode/][LSP-mode Home]]
|
|
- [[https://tychoish.com/post/emacs-and-lsp-mode/][Tychoist: Emacs and LSP mode]]
|
|
- [[https://vxlabs.com/2018/11/19/configuring-emacs-lsp-mode-and-microsofts-visual-studio-code-python-language-server/][MS lsp server with python]]
|
|
- [[https://www.mattduck.com/lsp-python-getting-started.html][Getting started with lsp-mode for Python]] (good)
|
|
- [[https://www.mortens.dev/blog/emacs-and-the-language-server-protocol/][C++, Python, Rust]]
|
|
- [[https://ddavis.io/posts/emacs-python-lsp/][Python IDE with LSP and pyenv]] (good)
|
|
- [[https://github.com/pythonic-emacs/pyenv-mode][pyenv-mode]]
|
|
- [[https://www.mortens.dev/blog/emacs-and-the-language-server-protocol/][Morten's Dev]] (tiene buena pinta)
|
|
- [[https://mullikine.github.io/posts/setting-up-lsp-with-emacs-attempt-2/][Bodacious Blog]] (parece muy completo pero algo criptico)
|
|
- [[https://gitlab.com/nathanfurnal/dotemacs/-/snippets/2060535][Nathan Furnal Guide]]
|
|
- [[https://emacs-lsp.github.io/lsp-mode/tutorials/how-to-turn-off/][A visual guide to LSP mode]]
|
|
|
|
LSP mode, allows the use of Language Server Protocol for programming.
|
|
|
|
**lsp-keymap prefix remapped to "C-c l"**
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package lsp-mode
|
|
:init
|
|
(setq lsp-keymap-prefix "C-c l")
|
|
|
|
:commands
|
|
(lsp lsp-deferred lsp-execute-code-action)
|
|
|
|
:custom
|
|
;; debug
|
|
;; set these variables for debugging lsp-mode
|
|
(lsp-print-io t)
|
|
(lsp-trace t)
|
|
(lsp-print-performance t)
|
|
|
|
;; general
|
|
;; (lsp-auto-guess-root t) ;; Probably you want to choose root interactively
|
|
;; (lsp-document-sync-method 'incremental) ;; none, full, incremental, or nil
|
|
;; (lsp-response-timeout 10)
|
|
|
|
;; let's use flycheck
|
|
(lsp-prefer-flymake nil) ;; t(flymake), nil(lsp-ui), or :none
|
|
|
|
;; (company-lsp-cache-candidates t) ;; auto, ;TODO: (always using a cache), or nil
|
|
;; (company-lsp-async t)
|
|
;; (company-lsp-enable-recompletion t)
|
|
;; (company-lsp-enable-snippet t)
|
|
|
|
;; (lsp-eldoc-render-all nil)
|
|
|
|
;; :hook
|
|
;; ((python-mode . lsp-deferred)
|
|
;; (lsp-mode . lsp-enable-which-key-integration)
|
|
;; (lsp-mode . lsp-diagnostics-modeline-mode))
|
|
;; :bind
|
|
;; ("C-c C-c" . #'lsp-execute-code-action)
|
|
;; :custom
|
|
;; (lsp-diagnostics-modeline-scope :project)
|
|
;; (lsp-file-watch-threshold 5000)
|
|
;; (lsp-enable-file-watchers nil)
|
|
;; ;(lsp-enable-which-key-integration t)
|
|
)
|
|
#+end_src
|
|
|
|
** lsp-ui
|
|
- You have to see the [[https://emacs-lsp.github.io/lsp-ui/][lsp-ui doc]]
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package lsp-ui
|
|
:custom
|
|
(lsp-ui-doc-delay 0.75)
|
|
(lsp-ui-doc-max-height 200)
|
|
|
|
(lsp-ui-doc-enable t)
|
|
(lsp-ui-doc-header t)
|
|
(lsp-ui-doc-include-signature t)
|
|
(lsp-ui-doc-max-height 30)
|
|
(lsp-ui-doc-max-width 120)
|
|
(lsp-ui-doc-position (quote at-point))
|
|
(lsp-ui-doc-use-childframe t)
|
|
;;
|
|
;; ;; If this is true then you can't see the docs in terminal
|
|
;; (lsp-ui-doc-use-webkit nil)
|
|
(lsp-ui-flycheck-enable t)
|
|
;;
|
|
;; (lsp-ui-imenu-enable t)
|
|
;; (lsp-ui-imenu-kind-position (quote top))
|
|
(lsp-ui-peek-enable t)
|
|
(lsp-ui-peek-fontify 'on-demand) ;; never, on-demand, or always
|
|
(lsp-ui-peek-list-width 50)
|
|
(lsp-ui-peek-peek-height 20)
|
|
|
|
(lsp-ui-sideline-code-actions-prefix "" t)
|
|
;;
|
|
;; ;inline right flush docs
|
|
(lsp-ui-sideline-enable t)
|
|
(lsp-ui-sideline-ignore-duplicate t)
|
|
(lsp-ui-sideline-show-code-actions t)
|
|
(lsp-ui-sideline-show-diagnostics t)
|
|
(lsp-ui-sideline-show-hover t)
|
|
(lsp-ui-sideline-show-symbol t)
|
|
|
|
:after lsp-mode)
|
|
#+end_src
|
|
|
|
** lsp-treemacs
|
|
Try these commands with M-x:
|
|
|
|
- =lsp-treemacs-symbols= - Show a tree view of the symbols in the
|
|
current file
|
|
- =lsp-treemacs-references= - Show a tree view for the references of
|
|
the symbol under the cursor
|
|
- =lsp-treemacs-error-list= - Show a tree view for the diagnostic
|
|
messages in the project
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package lsp-treemacs
|
|
:after lsp)
|
|
#+end_src
|
|
|
|
** DAP mode
|
|
[[https://emacs-lsp.github.io/dap-mode/][DAP-mode]] is an excellent package for bringing rich debugging
|
|
capabilities to Emacs via the Debug Adapter Protocol. You should check
|
|
out the [[https://emacs-lsp.github.io/dap-mode/page/configuration/][configuration docs]] to learn how to configure the debugger for
|
|
your language. Also make sure to check out the documentation for the
|
|
debug adapter to see what configuration parameters are available to
|
|
use for your debug templates!
|
|
#+begin_src emacs-lisp
|
|
;; (use-package dap-mode
|
|
;; ;; Uncomment the config below if you want all UI panes to be hidden by default!
|
|
;; ;; :custom
|
|
;; ;; (lsp-enable-dap-auto-configure nil)
|
|
;; ;; :config
|
|
;; ;; (dap-ui-mode 1)
|
|
;; :config
|
|
;; ;; Set up Node debugging
|
|
;; (require 'dap-node)
|
|
;; (dap-node-setup) ;; Automatically installs Node debug adapter if needed
|
|
;;
|
|
;; ;; Bind `C-c l d` to `dap-hydra` for easy access
|
|
;; ;;(general-define-key
|
|
;; ;; :keymaps 'lsp-mode-map
|
|
;; ;; :prefix lsp-keymap-prefix
|
|
;; ;; "d" '(dap-hydra t :wk "debugger"))
|
|
;; )
|
|
#+end_src
|
|
|
|
** go
|
|
**WARNING**: you need to install =gopls= in your system.
|
|
**WARNING**: =company-go= is deprecated, don't use it
|
|
References:
|
|
- [[https://kasperdeng.github.io/2015/04/15/go-dev-env/][kasperdeng golang development enviroment]]
|
|
- [[https://github.com/golang/tools/tree/master/gopls][gopls repo]]
|
|
- [[https://gist.github.com/psanford/b5d2689ff1565ec7e46867245e3d2c76][psandford/gopls configuration]]
|
|
#+begin_src emacs-lisp
|
|
(use-package go-mode
|
|
:custom
|
|
;; (lsp-enable-links nil)
|
|
;; (lsp-clients-go-server-args '("--cache-style=always" "--diagnostics-style=onsave" "--format-style=goimports"))
|
|
(lsp-gopls-server-args '("--debug=localhost:6060"))
|
|
(lsp-gopls-staticcheck t)
|
|
;; (lsp-gopls-complete-unimported t)
|
|
:hook
|
|
((go-mode . lsp-deferred)
|
|
(before-save . lsp-format-buffer)
|
|
(before-save . lsp-organize-imports)
|
|
(before-save . gofmt-before-save)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
*** go-snippets
|
|
#+begin_src emacs-lisp
|
|
(use-package go-snippets
|
|
:after go-mode
|
|
)
|
|
#+end_src
|
|
|
|
*** go-projectile
|
|
- [[https://github.com/dougm/go-projectile][The repo]]
|
|
#+begin_src emacs-lisp
|
|
;; (use-package go-projectile
|
|
;; :after go-mode)
|
|
#+end_src
|
|
|
|
*** go-test
|
|
|
|
#+begin_src emacs-lisp
|
|
(use-package gotest
|
|
:bind
|
|
(:map go-mode-map
|
|
("C-c a t" . #'go-test-current-test)
|
|
)
|
|
:after go-mode
|
|
)
|
|
|
|
#+end_src
|
|
|
|
** Rust
|
|
- [[https://robert.kra.hn/posts/2021-02-07_rust-with-emacs/][Robert Kra Emacs Rust Configuration]]
|
|
#+begin_src emacs-lisp
|
|
(use-package rust-mode
|
|
:hook ((rust-mode . lsp)
|
|
(rust-mode . lsp-lens-mode)
|
|
)
|
|
:custom
|
|
(rust-format-on-save t)
|
|
(lsp-rust-server 'rust-analyzer))
|
|
#+end_src
|
|
|
|
** Python
|
|
We do need a Python language server installed in the developing enviroment (=pip install python-lsp-server[all]=)
|
|
- https://www.mattduck.com/lsp-python-getting-started.html
|
|
- https://www.mortens.dev/blog/emacs-and-the-language-server-protocol/index.html
|
|
- https://www.reddit.com/r/emacs/comments/ijmgtx/tip_how_to_use_a_stable_and_fast_environment_to/g3kmc7o/
|
|
|
|
*** Use latest python
|
|
Not needed if you have the right settings on your active python with =pyenv=
|
|
#+begin_src emacs-lisp
|
|
; (setq python-shell-interpreter "/usr/bin/python3.8")
|
|
; (setq py-python-command "/usr/bin/python3.8") ; maybe not needed
|
|
; (setq python-python-command "/usr/bin/python3.8") ; maybe not needed
|
|
#+end_src
|
|
|
|
*** Configure python mode
|
|
#+begin_src emacs-lisp
|
|
(use-package python-mode
|
|
:hook (python-mode . lsp-deferred)
|
|
;; :custom
|
|
;; (dap-python-debugger 'debugpy)
|
|
;;
|
|
;;;;; NOTE: Set these if Python 3 is called "python3" on your system!
|
|
;;;; (python-shell-interpreter "python3")
|
|
;;;; (dap-python-executable "python3")
|
|
|
|
:config
|
|
;; (require 'dap-python)
|
|
)
|
|
#+end_src
|
|
|
|
*** pyenv
|
|
Estoy cambiando de virtualenv a pyenv
|
|
Usamos =pyenv= para gestionar los /virtualenv/
|
|
- https://github.com/aiguofer/pyenv.el
|
|
- https://github.com/pythonic-emacs/pyenv-mode
|
|
- https://www.reddit.com/r/emacs/comments/ijmgtx/tip_how_to_use_a_stable_and_fast_environment_to/
|
|
#+begin_src emacs-lisp
|
|
(use-package pyenv-mode
|
|
:after python
|
|
:init
|
|
(add-to-list 'exec-path "~/.pyenv/shims")
|
|
(add-to-list 'exec-path "~/.pyenv/bin")
|
|
(setenv "WORKON_HOME" "~/.pyenv/versions/")
|
|
(defun projectile-pyenv-mode-set ()
|
|
"Set pyenv version matching project name."
|
|
(let ((project (projectile-project-name)))
|
|
(if (member project (pyenv-mode-versions))
|
|
(pyenv-mode-set project)
|
|
(pyenv-mode-unset))))
|
|
:config
|
|
(pyenv-mode)
|
|
:hook ((python-mode . pyenv-mode)
|
|
(projectile-switch-project . projectile-pyenv-mode-set)
|
|
)
|
|
:bind
|
|
("C-x p e" . pyenv-activate-current-project))
|
|
#+end_src
|
|
|
|
* next
|
|
#+begin_src emacs-lisp
|
|
|
|
#+end_src
|