+++ /dev/null
-#+title: DOOM Emacs
-#+description: Archivo único de configuración para exportar con tangle
-#+startup: content
-#+auto_tangle: t
-
-* config.el
-** Configuración básica
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(setq doom-theme 'doom-old-hope)
-(setq display-line-numbers-type 'relative)
-(setq confirm-kill-emacs nil)
-(setq doom-leader-key ","
- doom-leader-alt-key "M-,")
-#+end_src
-** Keybindings
-*** EMACS
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(defvar ale-mode-map (make-sparse-keymap)
- "Keymap para ale-mode")
-(define-minor-mode ale-mode
- "Activar el ale-mode-map"
- :global t
- :init-value t
- :keymap ale-mode-map)
-(define-key ale-mode-map (kbd "C-<escape>") 'doom/reload)
-(define-key ale-mode-map (kbd "C-\\") 'evil-window-split)
-(define-key ale-mode-map (kbd "C-s") 'save-buffer)
-(define-key ale-mode-map (kbd "C-h") 'evil-window-left)
-(define-key ale-mode-map (kbd "C-j") 'evil-window-down)
-(define-key ale-mode-map (kbd "C-k") 'evil-window-up)
-(define-key ale-mode-map (kbd "C-l") 'evil-window-right)
-(defun my/neg ()
- "Envuelve el texto seleccionado con el formato de negrita según el modo."
- (interactive)
- (if (region-active-p)
- (let ((start (region-beginning))
- (end (region-end)))
- (cond
- ((eq major-mode 'markdown-mode)
- (goto-char end)
- (insert "**")
- (goto-char start)
- (insert "**"))
- ((eq major-mode 'mhtml-mode)
- (goto-char end)
- (insert "</b>")
- (goto-char start)
- (insert "<b>"))
- ((eq major-mode 'org-mode)
- (goto-char end)
- (insert "*")
- (goto-char start)
- (insert "*"))
- (t
- (message "Formato no soportado en este modo: %s" major-mode))))
- (message "No text selected")))
-(defun my/ita ()
- "Envuelve el texto seleccionado con el formato de italic según el modo."
- (interactive)
- (if (region-active-p)
- (let ((start (region-beginning))
- (end (region-end)))
- (cond
- ((eq major-mode 'markdown-mode)
- (goto-char end)
- (insert "*")
- (goto-char start)
- (insert "*"))
- ((eq major-mode 'mhtml-mode)
- (goto-char end)
- (insert "</i>")
- (goto-char start)
- (insert "<i>"))
- ((eq major-mode 'org-mode)
- (goto-char end)
- (insert "/")
- (goto-char start)
- (insert "/"))
- (t
- (message "Formato no soportado en este modo: %s" major-mode))))
- (message "No text selected")))
-(defun my/sub ()
- "Envuelve el texto seleccionado con el formato subrayado según el modo."
- (interactive)
- (if (region-active-p)
- (let ((start (region-beginning))
- (end (region-end)))
- (cond
- ((eq major-mode 'markdown-mode)
- (goto-char end)
- (insert "</u>")
- (goto-char start)
- (insert "<u>"))
- ((eq major-mode 'mhtml-mode)
- (goto-char end)
- (insert "</u>")
- (goto-char start)
- (insert "<u>"))
- ((eq major-mode 'org-mode)
- (goto-char end)
- (insert "_")
- (goto-char start)
- (insert "_"))
- (t
- (message "Formato no soportado en este modo: %s" major-mode))))
- (message "No text selected")))
-(defun my/cod ()
- "Envuelve el texto seleccionado con el formato de monoespacio según el modo."
- (interactive)
- (if (region-active-p)
- (let ((start (region-beginning))
- (end (region-end)))
- (cond
- ((eq major-mode 'markdown-mode)
- (goto-char end)
- (insert "`")
- (goto-char start)
- (insert "`"))
- ((eq major-mode 'mhtml-mode)
- (goto-char end)
- (insert "</code>")
- (goto-char start)
- (insert "<code>"))
- ((eq major-mode 'org-mode)
- (goto-char end)
- (insert "~")
- (goto-char start)
- (insert "~"))
- (t
- (message "Formato no soportado en este modo: %s" major-mode))))
- (message "No text selected")))
-(defun my/str ()
- "Envuelve el texto seleccionado con el formato de monoespacio según el modo."
- (interactive)
- (if (region-active-p)
- (let ((start (region-beginning))
- (end (region-end)))
- (cond
- ((eq major-mode 'markdown-mode)
- (goto-char end)
- (insert "~~")
- (goto-char start)
- (insert "~~"))
- ((eq major-mode 'mhtml-mode)
- (goto-char end)
- (insert "</del>")
- (goto-char start)
- (insert "<del>"))
- ((eq major-mode 'org-mode)
- (goto-char end)
- (insert "+")
- (goto-char start)
- (insert "+"))
- (t
- (message "Formato no soportado en este modo: %s" major-mode))))
- (message "No text selected")))
-#+end_src
-*** EVIL-MODE
-The key lesson here is that **org-mode's local keymap bindings take priority over minor mode keymaps**, so you had to explicitly unbind them first before your minor mode could take over. It's a quirk of how Emacs resolves keybinding precedence, especially with modes like org that have very opinionated keybindings.
-
-If you run into similar issues with other modes in the future, the same approach should work — use `with-eval-after-load`, unbind the conflicting keys from that mode's keymap, and then let your minor mode handle them.
-
-_MATAR DEFECTOS_
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(define-key evil-motion-state-map (kbd "C-u") nil)
-(define-key evil-motion-state-map (kbd "C-z") nil)
-(define-key evil-insert-state-map (kbd "C-z") nil)
-(define-key evil-motion-state-map (kbd "C-b") nil)
-(define-key evil-normal-state-map (kbd "C-t") nil)
-(with-eval-after-load 'org
- (define-key org-mode-map (kbd "C-j") nil)
- (define-key org-mode-map (kbd "C-k") nil)
- (define-key org-mode-map (kbd "C-<up>") 'org-backward-heading-same-level)
- (define-key org-mode-map (kbd "C-<down>") 'org-forward-heading-same-level)
- (define-key org-mode-map (kbd "C-<left>") 'org-up-heading)
- (define-key org-mode-map (kbd "C-<right>") 'org-next-visible-heading)
- (when (featurep 'evil)
- (evil-define-key 'normal org-mode-map (kbd "C-j") nil)
- (evil-define-key 'normal org-mode-map (kbd "C-k") nil)
- (evil-define-key 'motion org-mode-map (kbd "C-j") nil)
- (evil-define-key 'motion org-mode-map (kbd "C-k") nil)))
-#+end_src
-**** leader
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(map! :leader
- "<escape>" #'doom/reload)
-(map! :leader
- "#" #'comment-line)
-(map! :leader
- "SPC" (lambda () (interactive) (insert "<++>")))
-#+end_src
-**** normal
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(map! :n
- "q" #'kill-current-buffer)
-(map! :n
- "Q" #'doom/kill-all-buffers)
-(map! :n
- "W" #'save-buffers-kill-emacs)
-(map! :nm
- "H" #'evil-beginning-of-line)
-(map! :nm
- "L" #'evil-end-of-line)
-(map! :n
- "C-z" #'evil-undo)
-(map! :n
- "<SPC><SPC>" (lambda! () (interactive)
- (search-forward "<++>")
- (replace-match "")
- (evil-insert-state)))
-#+end_src
-**** insert
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(map! :i
- "C-<SPC>" (lambda! () (interactive)
- (search-forward "<++>")
- (replace-match "")
- (evil-insert-state)))
-(map! :i
- "C-z" #'evil-undo)
-#+end_src
-**** visual
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(map! :v
- "C-=" #'my/cod)
-(map! :v
- "C-+" #'my/str)
-(map! :v
- "C-u" #'my/sub)
-(map! :v
- "C-t" #'my/ita)
-(map! :v
- "C-b" #'my/neg)
-#+end_src
-** Org
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(use-package org
- :ensure nil ; do not try to install it as it is built-in
- :config
- (setq org-M-RET-may-split-line '((default . nil)))
- (setq org-insert-heading-respect-content t)
- (setq org-log-done 'time)
- (setq org-log-into-drawer t)
- (setq org-directory "/home/ale/org/")
- (setq org-agenda-files (list org-directory))
- (setq org-modern-table-vertical 1)
- (setq org-modern-table t)
- (add-hook 'org-mode-hook #'hl-todo-mode)
- (custom-theme-set-faces!
- 'doom-old-hope
- '(org-level-8 :inherit outline-3 :height 1.0)
- '(org-level-7 :inherit outline-3 :height 1.0)
- '(org-level-6 :inherit outline-3 :height 1.1)
- '(org-level-5 :inherit outline-3 :height 1.2)
- '(org-level-4 :inherit outline-3 :height 1.3)
- '(org-level-3 :inherit outline-3 :height 1.4)
- '(org-level-2 :inherit outline-2 :height 1.5)
- '(org-level-1 :inherit outline-1 :height 1.6)
- '(org-document-title :height 1.8 :bold t :underline nil))
-
- (setq org-todo-keywords
- '((sequence "TODO(t)" "WAIT(w!)" "|" "CANCEL(c!)" "DONE(d!)"))))
-(after! org
- ;; Deshabilitar persistencia de estado
- (setq org-fold-core-persist nil)
- (setq org-restore-position-in-buffer nil)
- ;; No guardar el estado de la sesión para archivos org
- (setq org-element--cache-persist-before-write nil)
- (setq org-fold-core-persist nil)
- (setq org-restore-position-in-buffer nil)
- ;; Opcional: siempre mostrar el árbol completo
- (setq org-startup-folded nil)
-
- (add-hook! 'kill-buffer-hook
- (defun +org-close-remove-state ()
- (when (eq major-mode 'org-mode)
- (org-fold-hide-block 'off)
- (org-fold-show-all))))
-
- ;; Limpiar cache al cerrar
- (add-hook! 'org-mode-hook
- (setq-local org-startup-folded nil)))
-
-#+end_src
-** Plugins
-Se agregan a packages.el, sin embargo la connfiguración va aquí
-*** asciidoc-mode
-After installing the package, run:
-`M-x asciidoc-install-grammars``
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-;; (require 'asciidoc-mode)
-#+end_src
-*** colorful-mode
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(setq global-colorful-mode t)
-#+end_src
-*** company
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(after! company
-(setq company-minimum-prefix-length 1
- company-idle-delay 0.1
- company-show-quick-access t
- company-tooltip-limit 20
- company-tooltip-align-annotations t)
-(setq company-backends (cons 'company-files (delete 'company-files company-backends)))
-(setq company-files-exclusions nil)
-(setq company-files-chop-trailing-slash t)
-(defun my/enable-path-completion ()
- "Enable file path completion using company."
- (setq-local company-backends
- (cons 'company-files company-backends)))
-(add-hook 'after-change-major-mode-hook #'my/enable-path-completion)
-(defun my/looks-like-path-p (input)
- "Check if INPUT looks like a file path."
- (or (string-match-p "^/" input) ;; Absolute path
- (string-match-p "^~/" input) ;; Home directory
- (string-match-p "^\\.\\{1,2\\}/" input))) ;; Relative path
-(defun my/company-path-trigger (command &optional arg &rest ignored)
- "Company backend that triggers file completion for path-like input."
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-files))
- (prefix (when (my/looks-like-path-p (or (company-grab-line "\\([^ ]*\\)" 1) ""))
- (company-files 'prefix)))
- (t (apply 'company-files command arg ignored))))
-(add-to-list 'company-backends 'my/company-path-trigger))
-(use-package! company-box
- :after company
- :hook (company-mode . company-box-mode)
- :config
- (setq company-box-show-single-candidate 'always
- company-box-max-lines 20
- company-box-doc-delay 0.5)
- (set-face-attribute 'company-box-background nil :background "#2a2a2a")
- (set-face-attribute 'company-box-selection nil :background "#3a4a5a" :foreground "#ffffff" :bold t)
- (set-face-attribute 'company-tooltip-common nil :foreground "#ffaf00"))
-#+end_src
-*** org-auto-tangle
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(use-package org-auto-tangle
- :ensure t
- :hook (org-mode . org-auto-tangle-mode))
-#+end_src
-* init.el
-This file controls what Doom modules are enabled and what order they load in. Remember to run `doom sync` after modifying it!
-NOTE: Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's documentation. There you'll find a link to Doom's Module Index where all of our modules are listed, including what flags they support.
-NOTE: Move your cursor over a module's name (or its flags) and press 'K' (or 'C-c c k' for non-vim users) to view its documentation. This works on flags as well (those symbols that start with a plus).
- Alternatively, press 'gd' (or 'C-c c d') on a module to browse its directory (for easy access to its source code).
-** input
-letras chinas, no hay necesidad de modificar
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
-(doom! :input
- ;;bidi ; (tfel ot) thgir etirw uoy gnipleh
- ;;chinese
- ;;japanese
- ;;layout ; auie,ctsrnm is the superior home row
-#+end_src
-** completion
-debería investigar si alguno me ayuda a sugerencias estilo kakoune. SEGUN Claude company es el chido. hay que buscar videos
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :completion
- company ; the ultimate code completion backend
- ;; (corfu +orderless) ; complete with cap(f), cape and a flying feather!
- ;;helm ; the *other* search engine for love and life
- ;;ido ; the other *other* search engine...
- ;;ivy ; a search engine for love and life
- vertico ; the search engine of the future
-#+end_src
-** ui
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :ui
- ;;deft ; notational velocity for Emacs
- doom ; what makes DOOM look the way it does
- dashboard ; a nifty splash screen for Emacs
- ;;doom-quit ; DOOM quit-message prompts when you quit Emacs
- (emoji +unicode) ; 🙂
- hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
- ;;indent-guides ; highlighted indent columns
- ;;ligatures ; ligatures and symbols to make your code pretty again
- ;;minimap ; show a map of the code on the side
- modeline ; snazzy, Atom-inspired modeline, plus API
- ;;nav-flash ; blink cursor line after big motions
- ;;neotree ; a project drawer, like NERDTree for vim
- ophints ; highlight the region an operation acts on
- (popup +defaults) ; tame sudden yet inevitable temporary windows
- ;;smooth-scroll ; So smooth you won't believe it's not butter
- ;;tabs ; a tab bar for Emacs
- ;;treemacs ; a project drawer, like neotree but cooler
- ;;unicode ; extended unicode support for various languages
- (vc-gutter +pretty) ; vcs diff in the fringe
- vi-tilde-fringe ; fringe tildes to mark beyond EOB
- ;;window-select ; visually switch windows
- workspaces ; tab emulation, persistence & separate workspaces
- ;;zen ; distraction-free coding or writing
-#+end_src
-** editor
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :editor
- (evil +everywhere); come to the dark side, we have cookies
- file-templates ; auto-snippets for empty files
- fold ; (nigh) universal code folding
- ;;(format +onsave) ; automated prettiness
- ;;god ; run Emacs commands without modifier keys
- ;;lispy ; vim for lisp, for people who don't like vim
- ;;multiple-cursors ; editing in many places at once
- ;;objed ; text object editing for the innocent
- ;;parinfer ; turn lisp into python, sort of
- ;;rotate-text ; cycle region at point between text candidates
- snippets ; my elves. They type so I don't have to
- (whitespace +guess +trim) ; a butler for your whitespace
- ;;word-wrap ; soft wrapping with language-aware indent
-#+end_src
-** emacs
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :emacs
- dired ; making dired pretty [functional]
- electric ; smarter, keyword-based electric-indent
- ;;eww ; the internet is gross
- ;;ibuffer ; interactive buffer management
- tramp ; remote files at your arthritic fingertips
- undo ; persistent, smarter undo for your inevitable mistakes
- vc ; version-control and Emacs, sitting in a tree
-#+end_src
-** term
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :term
- ;;eshell ; the elisp shell that works everywhere
- ;;shell ; simple shell REPL for Emacs
- ;;term ; basic terminal emulator for Emacs
- ;;vterm ; almost the best terminal emulation in Emacs
- ;;ghostel ; the best terminal emulation in Emacs
-#+end_src
-** checkers
-aquí va el checkspell, falta por inversitgar
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :checkers
- syntax ; tasing you for every semicolon you forget
- ;;(spell +flyspell) ; tasing you for misspelling mispelling
- ;;grammar ; tasing grammar mistake every you make
-#+end_src
-** tools
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :tools
- ;;ansible
- ;;biblio ; Writes a PhD for you (citation needed)
- ;;collab ; buffers with friends
- ;;debugger ; stepping through code, to help you add bugs
- ;;direnv
- ;;docker
- ;;editorconfig ; let someone else argue about tabs vs spaces
- ;;ein ; tame Jupyter notebooks with emacs
- (eval +overlay) ; run code, run (also, repls)
- lookup ; navigate your code and its documentation
- ;;llm ; when I said you needed friends, I didn't mean...
- ;;(lsp +eglot) ; M-x vscode
- ;;magit ; a git porcelain for Emacs
- ;;make ; run make tasks from Emacs
- ;;pass ; password manager for nerds
- ;;pdf ; pdf enhancements
- ;;terraform ; infrastructure as code
- ;;tmux ; an API for interacting with tmux
- ;;tree-sitter ; syntax and parsing, sitting in a tree...
- ;;upload ; map local to remote projects via ssh/ftp
-#+end_src
-** os
-basura de apple
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :os
- ;; (:if (featurep :system 'macos) macos) ; improve compatibility with macOS
- ;;tty ; improve the terminal Emacs experience
-#+end_src
-** lang
-Adaptadores para lenguajes... MIRA godot
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :lang
- ;;ada ; In strong typing we (blindly) trust
- ;;(agda +local) ; types of types of types of types...
- ;;beancount ; mind the GAAP
- ;;(cc +lsp) ; C > C++ == 1
- ;;clojure ; java with a lisp
- ;;common-lisp ; if you've seen one lisp, you've seen them all
- ;;coq ; proofs-as-programs
- ;;crystal ; ruby at the speed of c
- ;;csharp ; unity, .NET, and mono shenanigans
- ;;data ; config/data formats
- ;;(dart +flutter) ; paint ui and not much else
- ;;dhall
- ;;elixir ; erlang done right
- ;;elm ; care for a cup of TEA?
- emacs-lisp ; drown in parentheses
- ;;erlang ; an elegant language for a more civilized age
- ;;ess ; emacs speaks statistics
- ;;factor
- ;;faust ; dsp, but you get to keep your soul
- ;;fortran ; in FORTRAN, GOD is REAL (unless declared INTEGER)
- ;;fsharp ; ML stands for Microsoft's Language
- ;;fstar ; (dependent) types and (monadic) effects and Z3
- gdscript ; the language you waited for
- ;;(go +lsp) ; the hipster dialect
- ;;(graphql +lsp) ; Give queries a REST
- ;;(haskell +lsp) ; a language that's lazier than I am
- ;;hy ; readability of scheme w/ speed of python
- ;;idris ; a language you can depend on
- json ; At least it ain't XML
- ;;janet ; Fun fact: Janet is me!
- ;;(java +lsp) ; the poster child for carpal tunnel syndrome
- ;;javascript ; all(hope(abandon(ye(who(enter(here))))))
- ;;julia ; a better, faster MATLAB
- ;;kotlin ; a better, slicker Java(Script)
- ;;latex ; writing papers in Emacs has never been so fun
- ;;lean ; for folks with too much to prove
- ;;ledger ; be audit you can be
- ;;lua ; one-based indices? one-based indices
- markdown ; writing docs for people to ignore
- ;;nim ; python + lisp at the speed of c
- ;;nix ; I hereby declare "nix geht mehr!"
- ;;ocaml ; an objective camel
- ;;odin ; C, minus its footguns
- org ; organize your plain life in plain text
- php ; perl's insecure younger brother
- ;;plantuml ; diagrams for confusing people more
- ;;graphviz ; diagrams for confusing yourself even more
- ;;purescript ; javascript, but functional
- python ; beautiful is better than ugly
- ;;qt ; the 'cutest' gui framework ever
- ;;racket ; a DSL for DSLs
- ;;raku ; the artist formerly known as perl6
- ;;rest ; Emacs as a REST client
- ;;rst ; ReST in peace
- ;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
- ;;(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
- ;;scad ; trust the preview, regret the render
- ;;scala ; java, but good
- ;;(scheme +guile) ; a fully conniving family of lisps
- sh ; she sells {ba,z,fi}sh shells on the C xor
- ;;sml
- ;;solidity ; do you need a blockchain? No.
- ;;swift ; who asked for emoji variables?
- ;;terra ; Earth and Moon in alignment for performance.
- ;;web ; the tubes
- yaml ; JSON, but readable
- ;;zig ; C, but simpler
-#+end_src
-** email
-primero debería configurar mi propio servidor de correo, va pa largo
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :email
- ;;(mu4e +org +gmail)
- ;;notmuch
- ;;(wanderlust +gmail)
-#+end_src
-** app
-debería ir junto con tools pero quien soy yo
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :app
- ;;calendar
- ;;emms
- ;;everywhere ; *leave* Emacs!? You must be joking
- ;;irc ; how neckbeards socialize
- ;;(rss +org) ; emacs as an RSS reader
-#+end_src
-** config
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
- :config
- ;;literate
- (default +bindings +smartparens))
-#+end_src
-* packages.el
-To install a package:
- 1. Declare them here in a `package!' statement,
- 2. Run 'doom sync' in the shell,
- 3. Restart Emacs.
-Use 'C-h f package\!' to look up documentation for the `package!' macro.
-To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
-#+begin_src emacs-lisp
-(package! some-package)
-#+end_src
-To install a package directly from a remote git repo, you must specify a `:recipe'. You'll find documentation on what `:recipe' accepts here: https://github.com/radian-software/straight.el#the-recipe-format
-#+begin_src emacs-lisp
-(package! another-package
- :recipe (:host github :repo "username/repo"))
-#+end_src
-If the package you are trying to install does not contain a PACKAGENAME.el file, or is located in a subdirectory of the repo, you'll need to specify `:files' in the `:recipe':
-#+begin_src emacs-lisp
-(package! this-package
- :recipe (:host github :repo "username/repo"
- :files ("some-file.el" "src/lisp/*.el")))
-#+end_src
-If you'd like to disable a package included with Doom, you can do so here with the `:disable' property:
-#+begin_src emacs-lisp
-(package! builtin-package :disable t)
-#+end_src
-You can override the recipe of a built in package without having to specify all the properties for `:recipe'. These will inherit the rest of its recipe from Doom or MELPA/ELPA/Emacsmirror:
-#+begin_src emacs-lisp
-(package! builtin-package :recipe (:nonrecursive t))
-(package! builtin-package-2 :recipe (:repo "myfork/package"))
-#+end_src
-Specify a `:branch' to install a package from a particular branch or tag. This is required for some packages whose default branch isn't 'master' (which our package manager can't deal with; see radian-software/straight.el#279)
-#+begin_src emacs-lisp
-(package! builtin-package :recipe (:branch "develop"))
-#+end_src
-Use `:pin' to specify a particular commit to install.
-#+begin_src emacs-lisp
-(package! builtin-package :pin "1a2b3c4d5e")
-#+end_src
-Doom's packages are pinned to a specific commit and updated from release to release. The `unpin!' macro allows you to unpin single packages...
-#+begin_src emacs-lisp
-(unpin! pinned-package)
-#+end_src
-...or multiple packages
-#+begin_src emacs-lisp
-(unpin! pinned-package another-pinned-package)
-#+end_src
-...Or *all* packages (NOT RECOMMENDED; will likely break things)
-#+begin_src emacs-lisp
-(unpin! t)
-#+end_src
-#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/packages.el"
-(package! asciidoc-mode)
-(package! colorful-mode)
-(package! company-box)
-(package! org-auto-tangle)
-
-(package! better-jumper :disable t)
-#+end_src
--- /dev/null
+#+title: EMACS Config
+#+description: Archivo de configuración para exportar con tangle
+#+startup: content
+#+auto_tangle: t
+
+* Configuración básica
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (menu-bar-mode -1)
+ (tool-bar-mode -1)
+ (scroll-bar-mode -1)
+ (global-display-line-numbers-mode)
+ (setq display-line-numbers-type 'relative)
+ (setq confirm-kill-emacs nil)
+ (global-visual-line-mode 1)
+ (electric-pair-mode 1)
+#+END_SRC
+* Plugins
+** asciidoc-mode
+Major mode para leer archivos asciidoc.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ ;; After installing the package, run:
+ ;; `M-x asciidoc-install-grammars``
+#+END_SRC
+** colorful-mode
+Mostrar colores hexadecimales.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package colorful-mode
+ :init
+ (global-colorful-mode 1))
+#+END_SRC
+** company
+Autocompletar. También se instalo company-box para que se vea más bonito.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package company
+ :hook (after-init . global-company-mode)
+ :config
+ (setq company-minimum-prefix-length 1
+ company-idle-delay 0.1
+ company-show-quick-access t
+ company-tooltip-limit 20
+ company-tooltip-align-annotations t)
+ (setq company-backends (cons 'company-files (delete 'company-files company-backends)))
+ (setq company-files-exclusions nil)
+ (setq company-files-chop-trailing-slash t)
+ (defun my/enable-path-completion ()
+ "Enable file path completion using company."
+ (setq-local company-backends
+ (cons 'company-files company-backends)))
+ (add-hook 'after-change-major-mode-hook #'my/enable-path-completion)
+ (defun my/looks-like-path-p (input)
+ "Check if INPUT looks like a file path."
+ (or (string-match-p "^/" input) ;; Absolute path
+ (string-match-p "^~/" input) ;; Home directory
+ (string-match-p "^\\.\\{1,2\\}/" input))) ;; Relative path
+ (defun my/company-path-trigger (command &optional arg &rest ignored)
+ "Company backend that triggers file completion for path-like input."
+ (interactive (list 'interactive))
+ (cl-case command
+ (interactive (company-begin-backend 'company-files))
+ (prefix (when (my/looks-like-path-p (or (company-grab-line "\\([^ ]*\\)" 1) ""))
+ (company-files 'prefix)))
+ (t (apply 'company-files command arg ignored))))
+ (add-to-list 'company-backends 'my/company-path-trigger))
+ (use-package company-box
+ :after company
+ :hook (company-mode . company-box-mode)
+ :config
+ (setq company-box-show-single-candidate 'always
+ company-box-max-lines 20
+ company-box-doc-delay 0.5)
+ (set-face-attribute 'company-box-background nil :background "#2a2a2a")
+ (set-face-attribute 'company-box-selection nil :background "#3a4a5a" :foreground "#ffffff" :bold t)
+ (set-face-attribute 'company-tooltip-common nil :foreground "#ffaf00"))
+#+END_SRC
+** consult
+Mejorar la busqueda a través de archivos.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package consult
+ :ensure t
+ :bind (
+ ("M-s M-b" . consult-buffer)
+ ("M-s M-f" . consult-find)
+ ("M-s M-l" . consult-line)))
+#+END_SRC
+** doom-themes
+Los temas de personalización de Doom Emacs. No estan anclados a este por lo que se pueden usar libremente en vainilla.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package doom-themes
+ :config
+ (load-theme 'doom-old-hope t))
+#+END_SRC
+** evil
+ESCENCIAL. ¡No mamar! la combinación de teclas por defecto es horrible.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package evil
+ :init
+ (setq evil-want-integration t
+ evil-want-keybinding nil)
+ :config
+ (evil-mode 1))
+ (use-package evil-collection
+ :after evil
+ :config
+ (evil-collection-init))
+ (setq evil-undo-system 'undo-redo)
+#+END_SRC
+** marginalia
+Añade contexto a las opciones del minibuffer.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package marginalia
+ :ensure t
+ :config
+ (marginalia-mode 1))
+#+END_SRC
+** orderless
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package orderless
+ :ensure t
+ :config
+ (setq completion-styles '(orderless basic)))
+#+END_SRC
+** org-auto-tangle
+Automaticamente exportar ~source boxes~ si se configuran adecuadamente.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package org-auto-tangle
+ :ensure t
+ :hook (org-mode . org-auto-tangle-mode))
+#+END_SRC
+** vertico
+Sugerencias a la hora de querer buscar comandos a través de M-x. Soy noob, claro que lo necesito.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package vertico
+ :ensure t
+ :config
+ (setq vertico-cycle t)
+ (setq vertico-resize nil)
+ (vertico-mode 1))
+#+END_SRC
+* ORG
+esta rombiendo la configuración, debería meter use-after o algo así (como dice en keybindings)
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package org
+ :ensure nil
+ :config
+ (setq org-M-RET-may-split-line '((default . nil)))
+ (setq org-insert-heading-respect-content t)
+ (setq org-log-done 'time)
+ (setq org-log-into-drawer t)
+ (setq org-directory "/home/ale/org/")
+ (setq org-agenda-files (list org-directory))
+ (setq org-todo-keywords
+ '((sequence "TODO(t)" "WAIT(w!)" "|" "CANCEL(c!)" "DONE(d!)"))))
+#+END_SRC
+* Keybindings
+** Default
+Matar defectos
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key evil-motion-state-map (kbd "C-u") nil)
+ (define-key evil-motion-state-map (kbd "C-j") nil)
+ (define-key evil-motion-state-map (kbd "C-k") nil)
+ (define-key evil-motion-state-map (kbd "C-z") nil)
+ (define-key evil-insert-state-map (kbd "C-z") nil)
+ (define-key evil-motion-state-map (kbd "C-b") nil)
+ (define-key evil-normal-state-map (kbd "C-t") nil)
+ (with-eval-after-load 'org
+ (define-key org-mode-map (kbd "C-j") nil)
+ (define-key org-mode-map (kbd "C-k") nil)
+ (define-key org-mode-map (kbd "C-<up>") 'org-backward-heading-same-level)
+ (define-key org-mode-map (kbd "C-<down>") 'org-forward-heading-same-level)
+ (define-key org-mode-map (kbd "C-<left>") 'org-previous-visible-heading)
+ (define-key org-mode-map (kbd "C-<right>") 'org-next-visible-heading)
+ (when (featurep 'evil)
+ (evil-define-key 'normal org-mode-map (kbd "C-j") nil)
+ (evil-define-key 'normal org-mode-map (kbd "C-k") nil)
+ (evil-define-key 'motion org-mode-map (kbd "C-j") nil)
+ (evil-define-key 'motion org-mode-map (kbd "C-k") nil)))
+#+END_SRC
+** Minor mode
+Crear modo menor ~ale-mode~
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (defvar ale-mode-map (make-sparse-keymap)
+ "Keymap para ale-mode")
+ (define-minor-mode ale-mode
+ "Activar el ale-mode-map"
+ :global t
+ :init-value t
+ :keymap ale-mode-map)
+#+END_SRC
+*** funciones
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (defun my/neg ()
+ "Envuelve el texto seleccionado con el formato de negrita según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "**")
+ (goto-char start)
+ (insert "**"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</b>")
+ (goto-char start)
+ (insert "<b>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "*")
+ (goto-char start)
+ (insert "*"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/ita ()
+ "Envuelve el texto seleccionado con el formato de negrita según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "*")
+ (goto-char start)
+ (insert "*"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</i>")
+ (goto-char start)
+ (insert "<i>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "/")
+ (goto-char start)
+ (insert "/"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/sub ()
+ "Envuelve el texto seleccionado con el formato subrayado según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "</u>")
+ (goto-char start)
+ (insert "<u>"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</u>")
+ (goto-char start)
+ (insert "<u>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "_")
+ (goto-char start)
+ (insert "_"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/cod ()
+ "Envuelve el texto seleccionado con el formato de monoespacio según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "`")
+ (goto-char start)
+ (insert "`"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</code>")
+ (goto-char start)
+ (insert "<code>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "~")
+ (goto-char start)
+ (insert "~"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/str ()
+ "Envuelve el texto seleccionado con una tachadura según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "~~")
+ (goto-char start)
+ (insert "~~"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</del>")
+ (goto-char start)
+ (insert "<del>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "+")
+ (goto-char start)
+ (insert "+"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+#+END_SRC
+*** leader
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (evil-set-leader 'normal (kbd ","))
+ (evil-set-leader nil (kbd "C-,"))
+ (evil-define-key 'normal 'global (kbd "<leader>;") 'comment-line)
+ (evil-define-key 'normal 'global (kbd "<leader>,") 'consult-buffer)
+ (evil-define-key 'normal 'global (kbd "<leader>.") 'find-file)
+ (evil-define-key 'normal 'global (kbd "<leader><SPC>") (lambda () (interactive) (insert "<++>")))
+#+END_SRC
+*** normal
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key evil-normal-state-map (kbd "Q") 'kill-current-buffer)
+ (define-key evil-normal-state-map (kbd "q") 'kill-current-buffer)
+ (define-key evil-normal-state-map (kbd "W") 'save-buffers-kill-emacs)
+ (define-key evil-normal-state-map (kbd "U") 'evil-redo) ;; customize evil-undu-system for redo functionality
+ (define-key evil-motion-state-map (kbd "H") 'evil-beginning-of-line)
+ (define-key evil-motion-state-map (kbd "L") 'evil-end-of-line)
+ (evil-define-key 'normal 'global (kbd "<SPC><SPC>") (lambda () (interactive)
+ (search-forward "<++>")
+ (replace-match "")
+ (evil-insert-state)))
+#+END_SRC
+*** insert
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (evil-define-key 'insert 'global (kbd "C-<SPC>") (lambda () (interactive)
+ (search-forward "<++>")
+ (replace-match "")
+ (evil-insert-state)))
+#+END_SRC
+*** visual
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key evil-visual-state-map (kbd "C-=") 'my/cod)
+ (define-key evil-visual-state-map (kbd "C-+") 'my/str)
+ (define-key evil-visual-state-map (kbd "C-u") 'my/sub)
+ (define-key evil-visual-state-map (kbd "C-i") 'my/ita)
+ (define-key evil-visual-state-map (kbd "C-b") 'my/neg)
+#+END_SRC
+*** ale-mode-map
+funcionan en todo momento y en todo lugar
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key ale-mode-map (kbd "C-\\") 'evil-window-split)
+ (define-key ale-mode-map (kbd "C-s") 'save-buffer)
+ (define-key ale-mode-map (kbd "C-h") 'evil-window-left)
+ (define-key ale-mode-map (kbd "C-j") 'evil-window-down)
+ (define-key ale-mode-map (kbd "C-k") 'evil-window-up)
+ (define-key ale-mode-map (kbd "C-l") 'evil-window-right)
+ (define-key ale-mode-map (kbd "C-z") 'evil-undo)
+#+END_SRC
+* splash
+para mejorar lo de *doom* splash
+#+BEGIN_SRC emacs-lisp
+ (defun mi-startup-buffer ()
+ "Crea un buffer de inicio personalizado."
+ (let ((buf (get-buffer-create "*mi-emacs*")))
+ (with-current-buffer buf
+ (erase-buffer)
+ (insert
+ (concat
+ "\n"
+ " ███████╗███╗ ███╗ █████╗ ██████╗███████╗\n"
+ " ██╔════╝████╗ ████║██╔══██╗██╔════╝██╔════╝\n"
+ " █████╗ ██╔████╔██║███████║██║ ███████╗\n"
+ " ██╔══╝ ██║╚██╔╝██║██╔══██║██║ ╚════██║\n"
+ " ███████╗██║ ╚═╝ ██║██║ ██║╚██████╗███████║\n"
+ " ╚══════╝╚═╝ ╚═╝╚═╝ ╚═╝ ╚═════╝╚══════╝\n"
+ "\n"
+ " Bienvenido a Emacs\n"
+ " ══════════════════\n\n"
+ " [f] Buscar archivo (consult-find)\n"
+ " [b] Buffer anterior (consult-buffer)\n"
+ " [r] Archivos recientes (consult-recent-file)\n"
+ " [g] Buscar con ripgrep (consult-ripgrep)\n"
+ " [q] Salir (kill-emacs)\n\n"
+ " Versión: " emacs-version "\n"))
+ (read-only-mode 1)
+ ;; Keybindings en el buffer de inicio
+ (local-set-key (kbd "f") 'consult-find)
+ (local-set-key (kbd "b") 'consult-buffer)
+ (local-set-key (kbd "r") 'consult-recent-file)
+ (local-set-key (kbd "g") 'consult-ripgrep)
+ (local-set-key (kbd "q") 'kill-emacs))
+ buf))
+
+ ;; Muestra el buffer al iniciar Emacs
+ (add-hook 'emacs-startup-hook
+ (lambda ()
+ (switch-to-buffer (mi-startup-buffer))))
+#+END_SRC
--- /dev/null
+#+title: EMACS Config
+#+description: Archivo de configuración para exportar con tangle
+#+startup: content
+#+auto_tangle: t
+
+* Configuración básica
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (menu-bar-mode -1)
+ (tool-bar-mode -1)
+ (scroll-bar-mode -1)
+ (global-display-line-numbers-mode)
+ (setq display-line-numbers-type 'relative)
+ (setq confirm-kill-emacs nil)
+ (global-visual-line-mode 1)
+ (electric-pair-mode 1)
+#+END_SRC
+* Plugins
+** asciidoc-mode
+Major mode para leer archivos asciidoc.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ ;; After installing the package, run:
+ ;; `M-x asciidoc-install-grammars``
+#+END_SRC
+** colorful-mode
+Mostrar colores hexadecimales.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package colorful-mode
+ :init
+ (global-colorful-mode 1))
+#+END_SRC
+** company
+Autocompletar. También se instalo company-box para que se vea más bonito.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package company
+ :hook (after-init . global-company-mode)
+ :config
+ (setq company-minimum-prefix-length 1
+ company-idle-delay 0.1
+ company-show-quick-access t
+ company-tooltip-limit 20
+ company-tooltip-align-annotations t)
+ (setq company-backends (cons 'company-files (delete 'company-files company-backends)))
+ (setq company-files-exclusions nil)
+ (setq company-files-chop-trailing-slash t)
+ (defun my/enable-path-completion ()
+ "Enable file path completion using company."
+ (setq-local company-backends
+ (cons 'company-files company-backends)))
+ (add-hook 'after-change-major-mode-hook #'my/enable-path-completion)
+ (defun my/looks-like-path-p (input)
+ "Check if INPUT looks like a file path."
+ (or (string-match-p "^/" input) ;; Absolute path
+ (string-match-p "^~/" input) ;; Home directory
+ (string-match-p "^\\.\\{1,2\\}/" input))) ;; Relative path
+ (defun my/company-path-trigger (command &optional arg &rest ignored)
+ "Company backend that triggers file completion for path-like input."
+ (interactive (list 'interactive))
+ (cl-case command
+ (interactive (company-begin-backend 'company-files))
+ (prefix (when (my/looks-like-path-p (or (company-grab-line "\\([^ ]*\\)" 1) ""))
+ (company-files 'prefix)))
+ (t (apply 'company-files command arg ignored))))
+ (add-to-list 'company-backends 'my/company-path-trigger))
+ (use-package company-box
+ :after company
+ :hook (company-mode . company-box-mode)
+ :config
+ (setq company-box-show-single-candidate 'always
+ company-box-max-lines 20
+ company-box-doc-delay 0.5)
+ (set-face-attribute 'company-box-background nil :background "#2a2a2a")
+ (set-face-attribute 'company-box-selection nil :background "#3a4a5a" :foreground "#ffffff" :bold t)
+ (set-face-attribute 'company-tooltip-common nil :foreground "#ffaf00"))
+#+END_SRC
+** consult
+Mejorar la busqueda a través de archivos.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package consult
+ :ensure t
+ :bind (
+ ("M-s M-b" . consult-buffer)
+ ("M-s M-f" . consult-find)
+ ("M-s M-l" . consult-line)))
+#+END_SRC
+** doom-themes
+Los temas de personalización de Doom Emacs. No estan anclados a este por lo que se pueden usar libremente en vainilla.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package doom-themes
+ :config
+ (load-theme 'doom-old-hope t))
+#+END_SRC
+** evil
+ESCENCIAL. ¡No mamar! la combinación de teclas por defecto es horrible.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package evil
+ :init
+ (setq evil-want-integration t
+ evil-want-keybinding nil)
+ :config
+ (evil-mode 1))
+ (use-package evil-collection
+ :after evil
+ :config
+ (evil-collection-init))
+ (setq evil-undo-system 'undo-redo)
+#+END_SRC
+** marginalia
+Añade contexto a las opciones del minibuffer.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package marginalia
+ :ensure t
+ :config
+ (marginalia-mode 1))
+#+END_SRC
+** orderless
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package orderless
+ :ensure t
+ :config
+ (setq completion-styles '(orderless basic)))
+#+END_SRC
+** org-auto-tangle
+Automaticamente exportar ~source boxes~ si se configuran adecuadamente.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package org-auto-tangle
+ :ensure t
+ :hook (org-mode . org-auto-tangle-mode))
+#+END_SRC
+** vertico
+Sugerencias a la hora de querer buscar comandos a través de M-x. Soy noob, claro que lo necesito.
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package vertico
+ :ensure t
+ :config
+ (setq vertico-cycle t)
+ (setq vertico-resize nil)
+ (vertico-mode 1))
+#+END_SRC
+* ORG
+esta rombiendo la configuración, debería meter use-after o algo así (como dice en keybindings)
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (use-package org
+ :ensure nil
+ :config
+ (setq org-M-RET-may-split-line '((default . nil)))
+ (setq org-insert-heading-respect-content t)
+ (setq org-log-done 'time)
+ (setq org-log-into-drawer t)
+ (setq org-directory "/home/ale/org/")
+ (setq org-agenda-files (list org-directory))
+ (setq org-todo-keywords
+ '((sequence "TODO(t)" "WAIT(w!)" "|" "CANCEL(c!)" "DONE(d!)"))))
+#+END_SRC
+* Keybindings
+** Default
+Matar defectos
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key evil-motion-state-map (kbd "C-u") nil)
+ (define-key evil-motion-state-map (kbd "C-j") nil)
+ (define-key evil-motion-state-map (kbd "C-k") nil)
+ (define-key evil-motion-state-map (kbd "C-z") nil)
+ (define-key evil-insert-state-map (kbd "C-z") nil)
+ (define-key evil-motion-state-map (kbd "C-b") nil)
+ (define-key evil-normal-state-map (kbd "C-t") nil)
+ (with-eval-after-load 'org
+ (define-key org-mode-map (kbd "C-j") nil)
+ (define-key org-mode-map (kbd "C-k") nil)
+ (define-key org-mode-map (kbd "C-<up>") 'org-backward-heading-same-level)
+ (define-key org-mode-map (kbd "C-<down>") 'org-forward-heading-same-level)
+ (define-key org-mode-map (kbd "C-<left>") 'org-up-heading)
+ (define-key org-mode-map (kbd "C-<right>") 'org-next-visible-heading)
+ (when (featurep 'evil)
+ (evil-define-key 'normal org-mode-map (kbd "C-j") nil)
+ (evil-define-key 'normal org-mode-map (kbd "C-k") nil)
+ (evil-define-key 'motion org-mode-map (kbd "C-j") nil)
+ (evil-define-key 'motion org-mode-map (kbd "C-k") nil)))
+#+END_SRC
+** Minor mode
+Crear modo menor ~ale-mode~
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (defvar ale-mode-map (make-sparse-keymap)
+ "Keymap para ale-mode")
+ (define-minor-mode ale-mode
+ "Activar el ale-mode-map"
+ :global t
+ :init-value t
+ :keymap ale-mode-map)
+#+END_SRC
+*** funciones
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (defun my/neg ()
+ "Envuelve el texto seleccionado con el formato de negrita según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "**")
+ (goto-char start)
+ (insert "**"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</b>")
+ (goto-char start)
+ (insert "<b>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "*")
+ (goto-char start)
+ (insert "*"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/ita ()
+ "Envuelve el texto seleccionado con el formato de negrita según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "*")
+ (goto-char start)
+ (insert "*"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</i>")
+ (goto-char start)
+ (insert "<i>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "/")
+ (goto-char start)
+ (insert "/"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/sub ()
+ "Envuelve el texto seleccionado con el formato subrayado según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "</u>")
+ (goto-char start)
+ (insert "<u>"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</u>")
+ (goto-char start)
+ (insert "<u>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "_")
+ (goto-char start)
+ (insert "_"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/cod ()
+ "Envuelve el texto seleccionado con el formato de monoespacio según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "`")
+ (goto-char start)
+ (insert "`"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</code>")
+ (goto-char start)
+ (insert "<code>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "~")
+ (goto-char start)
+ (insert "~"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+ (defun my/str ()
+ "Envuelve el texto seleccionado con una tachadura según el modo."
+ (interactive)
+ (if (region-active-p)
+ (let ((start (region-beginning))
+ (end (region-end)))
+ (cond
+ ((eq major-mode 'markdown-mode)
+ (goto-char end)
+ (insert "~~")
+ (goto-char start)
+ (insert "~~"))
+ ((eq major-mode 'mhtml-mode)
+ (goto-char end)
+ (insert "</del>")
+ (goto-char start)
+ (insert "<del>"))
+ ((eq major-mode 'org-mode)
+ (goto-char end)
+ (insert "+")
+ (goto-char start)
+ (insert "+"))
+ (t
+ (message "Formato no soportado en este modo: %s" major-mode))))
+ (message "No text selected")))
+#+END_SRC
+*** leader
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (evil-set-leader 'normal (kbd ","))
+ (evil-set-leader nil (kbd "C-,"))
+ (evil-define-key 'normal 'global (kbd "<leader>;") 'comment-line)
+ (evil-define-key 'normal 'global (kbd "<leader>,") 'consult-buffer)
+ (evil-define-key 'normal 'global (kbd "<leader>.") 'find-file)
+ (evil-define-key 'normal 'global (kbd "<leader><SPC>") (lambda () (interactive) (insert "<++>")))
+#+END_SRC
+*** normal
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key evil-normal-state-map (kbd "Q") 'kill-current-buffer)
+ (define-key evil-normal-state-map (kbd "q") 'kill-current-buffer)
+ (define-key evil-normal-state-map (kbd "W") 'save-buffers-kill-emacs)
+ (define-key evil-normal-state-map (kbd "U") 'evil-redo) ;; customize evil-undu-system for redo functionality
+ (define-key evil-motion-state-map (kbd "H") 'evil-beginning-of-line)
+ (define-key evil-motion-state-map (kbd "L") 'evil-end-of-line)
+ (evil-define-key 'normal 'global (kbd "<SPC><SPC>") (lambda () (interactive)
+ (search-forward "<++>")
+ (replace-match "")
+ (evil-insert-state)))
+#+END_SRC
+*** insert
+#+BEGIN_SRC emacs-lisp
+ (evil-define-key 'insert 'global (kbd "C-<SPC>") (lambda () (interactive)
+ (search-forward "<++>")
+ (replace-match "")
+ (evil-insert-state)))
+#+END_SRC
+*** visual
+#+BEGIN_SRC emacs-lisp
+evil-visual-state-map
+ (general-define-key
+ :keymaps 'ale-mode-map
+ :states 'visual
+ "C-=" 'my/cod
+ "C-+" 'my/str
+ "C-u" 'my/sub
+ "C-b" 'my/neg
+ "C-i" 'my/ita)
+ (define-key evil-visual-state-map (kbd "Q") 'kill-current-buffer)
+#+END_SRC
+*** ale-mode-map
+funcionan en todo momento y en todo lugar
+#+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el"
+ (define-key ale-mode-map (kbd "C-\\") 'evil-window-split)
+ (define-key ale-mode-map (kbd "C-s") 'save-buffer)
+ (define-key ale-mode-map (kbd "C-h") 'evil-window-left)
+ (define-key ale-mode-map (kbd "C-j") 'evil-window-down)
+ (define-key ale-mode-map (kbd "C-k") 'evil-window-up)
+ (define-key ale-mode-map (kbd "C-l") 'evil-window-right)
+ (define-key ale-mode-map (kbd "C-z") 'evil-undo)
+#+END_SRC
+* splash
+para mejorar lo de *doom* splash
+#+BEGIN_SRC emacs-lisp
+ (defun mi-startup-buffer ()
+ "Crea un buffer de inicio personalizado."
+ (let ((buf (get-buffer-create "*mi-emacs*")))
+ (with-current-buffer buf
+ (erase-buffer)
+ (insert
+ (concat
+ "\n"
+ " ███████╗███╗ ███╗ █████╗ ██████╗███████╗\n"
+ " ██╔════╝████╗ ████║██╔══██╗██╔════╝██╔════╝\n"
+ " █████╗ ██╔████╔██║███████║██║ ███████╗\n"
+ " ██╔══╝ ██║╚██╔╝██║██╔══██║██║ ╚════██║\n"
+ " ███████╗██║ ╚═╝ ██║██║ ██║╚██████╗███████║\n"
+ " ╚══════╝╚═╝ ╚═╝╚═╝ ╚═╝ ╚═════╝╚══════╝\n"
+ "\n"
+ " Bienvenido a Emacs\n"
+ " ══════════════════\n\n"
+ " [f] Buscar archivo (consult-find)\n"
+ " [b] Buffer anterior (consult-buffer)\n"
+ " [r] Archivos recientes (consult-recent-file)\n"
+ " [g] Buscar con ripgrep (consult-ripgrep)\n"
+ " [q] Salir (kill-emacs)\n\n"
+ " Versión: " emacs-version "\n"))
+ (read-only-mode 1)
+ ;; Keybindings en el buffer de inicio
+ (local-set-key (kbd "f") 'consult-find)
+ (local-set-key (kbd "b") 'consult-buffer)
+ (local-set-key (kbd "r") 'consult-recent-file)
+ (local-set-key (kbd "g") 'consult-ripgrep)
+ (local-set-key (kbd "q") 'kill-emacs))
+ buf))
+
+ ;; Muestra el buffer al iniciar Emacs
+ (add-hook 'emacs-startup-hook
+ (lambda ()
+ (switch-to-buffer (mi-startup-buffer))))
+#+END_SRC
Ante la sutil queja de Vivian sobre mi manejo financiero le recuerdo mis movimientos "primero que nada inverti en el restaurante de mi querido amigo Lucas aquí presente, no solo eso sino que lo traje aquí precisamente para que al codearse con el mundo culinario de primer nivel se inspirara a mejorar la experiencia en su propio local. De ahí siguieron mis tratos con Marcus, con quien adquirí un edificio departamental cerca del centro el cual esta a punto de dar frutos gracias a Miguel..." y guiño a Chloe, su propiedad sobre ese edificio es nuestro secreto el cual no hemos compartido con nadie ".. después hice un trato con Eloise para meter nuestra cuchara en el asunto del Hotel Majestic. Ese trato ayudo bastante el día de hoy que conocí al buen Constentino aquí presente. Después acepte da propuesta de Cassandra sobre la cena de gala, la noche que fue un exito rotundo gracias a mi corbata.." y le lanzo un guiño travieso a Huverina, para recordarle bien lo que desperdició. Y concluyo "... en la cena de gala, gané la subasta gracias al apoyo de Chloe y yo pagué el viaje que estamos disfrutando todos en este momento gracias a la planificación de Cassandra. Además financie la luna de mien a la que se iran estos proximos días. Así es Vivian, no te he consultado ¿sabes por qué? porque ya no eres parte de este mundo competitivo. Tú ya concluiste tu ciclo, eres la vieja guardia. Así que disfruta de tu jubilación junto a Edmund, y dejame a mí los asuntus economicos" y para terminar alcanzo una manl libre de Elena quien estaa mi lado, la tomo y empiezo a acariciarla con mi pulgar. Sé que no le gustan las confrontaciones y trato de calmarla sutilmente
+**`shell-command`** es la forma más directa. Aquí te muestro las opciones principales:
+
+## Opción 1: La más simple — `shell-command`
+
+```lisp
+(shell-command "tu_script.sh")
+```
+
+Esto ejecuta el script y muestra el output en un buffer llamado `*Shell Command Output*`. Si quieres que aparezca en el buffer actual, necesitas algo más elaborado.
+
+## Opción 2: Insertar el output en el buffer actual
+
+```lisp
+(shell-command "tu_script.sh" (current-buffer))
+```
+
+El segundo parámetro le dice a `shell-command` dónde insertar el resultado. `(current-buffer)` es el buffer donde estés en ese momento.
+
+## Opción 3: Guardar el output en una variable (más control)
+
+```lisp
+(let ((output (shell-command-to-string "tu_script.sh")))
+ (insert output))
+```
+
+Con **`shell-command-to-string`** obtienes el output como texto en una variable, y luego lo insertas donde quieras con `(insert)`.
+
+## Ejemplo práctico: una función personalizada
+
+```lisp
+(defun ejecutar-script-aqui (script)
+ (interactive "f") ; pide que selecciones un archivo
+ (let ((output (shell-command-to-string script)))
+ (insert output)))
+```
+
+Luego lo asignas a una tecla:
+
+```lisp
+(global-set-key (kbd "C-c x") 'ejecutar-script-aqui)
+```
+
+## Opción 4: Si necesitas variables de entorno o parámetros
+
+```lisp
+(shell-command "bash /ruta/a/tu_script.sh arg1 arg2" (current-buffer))
+```
+
+O si quieres pasarle rutas de archivos del buffer actual:
+
+```lisp
+(shell-command
+ (format "mi_script.sh %s" (buffer-file-name))
+ (current-buffer))
+```
+
+---
+
+**Recomendación**: para la mayoría de casos, **`shell-command-to-string` + `insert`** te da el control más limpio. Es poderoso porque puedes procesar el output antes de insertarlo, o insertarlo en un lugar específico del buffer.
+
+¿Qué tipo de output esperas? ¿Necesitas que reemplace contenido existente o que se agregue al final?
\ No newline at end of file
projects / org.git / commitdiff