kj/confi-emacs-actual
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: kj:f48e74729994b406c77c192ea5188f3f128ae4da
Branches Tags
kj:master
kj:evil
...
compare: kj:870e9a44ac4a9908f7fc5241224fd08ae2f00dbe
Branches Tags
kj:master
kj:evil

3 Commits
f48e747299 ... 870e9a44ac

Author SHA1 Message Date
KJ
870e9a44ac Add abbreviations file. 2024-04-18 07:26:32 -04:00
KJ
71367398d6 Minify citre config. 2024-04-18 07:26:16 -04:00
KJ
055b5151df Improve cape config. 2024-04-18 07:25:37 -04:00
3 changed files with 27 additions and 14 deletions
Show Stats Expand all files Collapse all files

16
abbrev_defs Normal file
View File

@ -0,0 +1,16 @@
;;-*-coding: utf-8;-*-
(define-abbrev-table 'web-mode-abbrev-table
'(
("doc" "<!DOCTYPE html>
<html>
<head>
<meta charset=\"UTF-8\"/>
<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">
<title>Document</title>
</head>
<body>
</body>
</html>" nil :count 7)
("doctype" "<!DOCTYPE html>" nil :count 0)
))

10
configs/init-corfu.el
View File

@ -42,15 +42,19 @@
(use-package cape (use-package cape
:ensure (:host github :repo "minad/cape") :ensure (:host github :repo "minad/cape")
:after corfu :after corfu
:bind (("C-c <SPC> f" . cape-file)
("C-c <SPC> l" . cape-line)
("C-c <SPC> _" . cape-tex))
:init :init
;; (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster) ;; (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
(advice-add #'eglot-completion-at-point :around #'cape-wrap-nonexclusive) (advice-add #'eglot-completion-at-point :around #'cape-wrap-nonexclusive)
;; (add-to-list 'completion-at-point-functions #'cape-line) ;; Completar línea actual en función de lo que dice otras líneas de buffer.
;; (add-to-list 'completion-at-point-functions #'cape-tex) ;; Completar Latex (caracteres unicode).
(add-to-list 'completion-at-point-functions #'cape-dict) ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
(add-to-list 'completion-at-point-functions #'cape-dabbrev) ;; Completar desde otras la palabras del buffer. (add-to-list 'completion-at-point-functions #'cape-dabbrev) ;; Completar desde otras la palabras del buffer.
(add-to-list 'completion-at-point-functions #'cape-file) ;; Completar rutas de archivos. (add-to-list 'completion-at-point-functions #'cape-file) ;; Completar rutas de archivos.
;; (add-to-list 'completion-at-point-functions #'cape-line) ;; Completar línea actual en función de lo que dice otras líneas de buffer.
(add-to-list 'completion-at-point-functions #'cape-abbrev) ;; Completar desde una abreviaciónes configuradas con add-global-abbrev (añadir abreviación global) o add-mode-abbrev (abreviación para el modo actual). (add-to-list 'completion-at-point-functions #'cape-abbrev) ;; Completar desde una abreviaciónes configuradas con add-global-abbrev (añadir abreviación global) o add-mode-abbrev (abreviación para el modo actual).
(add-to-list 'completion-at-point-functions #'cape-dict) ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words). (add-to-list 'completion-at-point-functions #'cape-keyword) ;; Completar desde keyword del lenguaje.
(add-to-list 'completion-at-point-functions #'cape-tex) ;; Completar Latex (caracteres unicode).
) )
;; Hacer que corfu funcione en la terminal ;; Hacer que corfu funcione en la terminal

15
configs/init-ctags.el
View File

@ -26,19 +26,12 @@
("C-x c a" . citre-ace-peek) ("C-x c a" . citre-ace-peek)
("C-x c u" . citre-update-this-tags-file)) ("C-x c u" . citre-update-this-tags-file))
:init :init
(require 'citre-config) (setq citre-auto-enable-citre-mode-modes '(prog-mode)
(setq citre-auto-enable-citre-mode-modes '(prog-mode)) citre-default-create-tags-file-location 'global-cache
:config
(with-no-warnings
(setq citre-default-create-tags-file-location 'global-cache
;; citre-ctags-program "/usr/bin/ctags"
;; citre-readtags-program "/usr/bin/readtags"
citre-use-project-root-when-creating-tags t
citre-prompt-language-for-ctags-command t) citre-prompt-language-for-ctags-command t)
(with-eval-after-load 'projectile :config
(setq citre-project-root-function #'projectile-project-root)) (with-no-warnings
;; Integrate with `lsp-mode' and `eglot' ;; Integrate with `lsp-mode' and `eglot'
(define-advice xref--create-fetcher (:around (fn &rest args) fallback) (define-advice xref--create-fetcher (:around (fn &rest args) fallback)
(let ((fetcher (apply fn args)) (let ((fetcher (apply fn args))