226HN.45579-Starfire

diff --git a/.confORG/emacs.org b/.confORG/emacs.org
index dcdc7671e16348df8c9977f4a52b9ecb5657ace2..997397116444220c1635a8e311af2217da2330b7 100644 (file)
--- 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 "<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>/") 'consult-line)
+  (evil-define-key 'normal 'global (kbd "<leader>?") 'scratch-buffer)
   (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") '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 "<SPC><SPC>") (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-<SPC>") (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)