From: Tu Puta Madre Date: Sun, 23 Aug 2026 16:56:21 +0000 (-0600) Subject: 226HN.45579-Starfire X-Git-Url: https://git.ale.wales/?a=commitdiff_plain;h=a55867f0bb993f8040e01d35feefc0a69d8ffcc0;p=org.git 226HN.45579-Starfire --- diff --git a/.confORG/emacs.org b/.confORG/emacs.org index dcdc767..9973971 100644 --- a/.confORG/emacs.org +++ b/.confORG/emacs.org @@ -1,6 +1,5 @@ #+title: EMACS Config #+description: Archivo de configuración para exportar con tangle -#+startup: content #+auto_tangle: t * Configuración básica @@ -12,7 +11,6 @@ (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 @@ -39,6 +37,8 @@ Autocompletar. También se instalo company-box para que se vea más bonito. company-show-quick-access t company-tooltip-limit 20 company-tooltip-align-annotations t) + (setq company-show-quick-access 'left) + (custom-set-variables '(company-quick-access-modifier 'control)) (setq company-backends (cons 'company-files (delete 'company-files company-backends))) (setq company-files-exclusions nil) (setq company-files-chop-trailing-slash t) @@ -148,6 +148,9 @@ esta rombiendo la configuración, debería meter use-after o algo así (como dic (setq org-log-into-drawer t) (setq org-directory "/home/ale/org/") (setq org-agenda-files (list org-directory)) + (add-hook 'org-mode-hook #'org-indent-mode) + (setq org-indent-indentation-per-level 2) + (setq org-startup-folded 'content) (setq org-todo-keywords '((sequence "TODO(t)" "WAIT(w!)" "|" "CANCEL(c!)" "DONE(d!)")))) #+END_SRC @@ -321,23 +324,68 @@ Crear modo menor ~ale-mode~ (evil-define-key 'normal 'global (kbd ";") 'comment-line) (evil-define-key 'normal 'global (kbd ",") 'consult-buffer) (evil-define-key 'normal 'global (kbd ".") 'find-file) + (evil-define-key 'normal 'global (kbd "/") 'consult-line) + (evil-define-key 'normal 'global (kbd "?") 'scratch-buffer) (evil-define-key 'normal 'global (kbd "") (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") 'delete-window) (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) + (define-key evil-normal-state-map (kbd ":") 'execute-extended-command) (evil-define-key 'normal 'global (kbd "") (lambda () (interactive) (search-forward "<++>") (replace-match "") (evil-insert-state))) #+END_SRC *** insert +ahora vamos a ver si funciona* #+BEGIN_SRC emacs-lisp :tangle "/home/ale/.emacs.d/conf.el" + (evil-define-key 'insert 'global (kbd "*") (lambda () (interactive) + (insert "*") + (let ((marca (point-marker))) + (insert "* <++>") + (goto-char marca) + (evil-insert-state)))) + (evil-define-key 'insert 'global (kbd "(") (lambda () (interactive) + (insert "(") + (let ((marca (point-marker))) + (insert ") <++>") + (goto-char marca) + (evil-insert-state)))) + (evil-define-key 'insert 'global (kbd "`") (lambda () (interactive) + (insert "`") + (let ((marca (point-marker))) + (insert "` <++>") + (goto-char marca) + (evil-insert-state)))) + (evil-define-key 'insert 'global (kbd "~") (lambda () (interactive) + (insert "~") + (let ((marca (point-marker))) + (insert "~ <++>") + (goto-char marca) + (evil-insert-state)))) + (evil-define-key 'insert 'global (kbd "[") (lambda () (interactive) + (insert "[") + (let ((marca (point-marker))) + (insert "] <++>") + (goto-char marca) + (evil-insert-state)))) + (evil-define-key 'insert 'global (kbd "{") (lambda () (interactive) + (insert "{") + (let ((marca (point-marker))) + (insert "} <++>") + (goto-char marca) + (evil-insert-state)))) + (evil-define-key 'insert 'global (kbd "<") (lambda () (interactive) + (insert "<") + (let ((marca (point-marker))) + (insert "> <++>") + (goto-char marca) + (evil-insert-state)))) (evil-define-key 'insert 'global (kbd "C-") (lambda () (interactive) (search-forward "<++>") (replace-match "") @@ -352,7 +400,7 @@ Crear modo menor ~ale-mode~ (define-key evil-visual-state-map (kbd "C-b") 'my/neg) #+END_SRC *** ale-mode-map -funcionan en todo momento y en todo lugar +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)