Compare commits

..

3 Commits

4 changed files with 14 additions and 23 deletions

View File

@@ -60,11 +60,15 @@
;; Mover líneas o regiones con M-<teclas de dirección> ;; Mover líneas o regiones con M-<teclas de dirección>
(use-package drag-stuff (use-package drag-stuff
:diminish :diminish
:autoload drag-stuff-define-keys ;; :autoload drag-stuff-define-keys
:hook (elpaca-after-init . drag-stuff-global-mode) :hook (elpaca-after-init . drag-stuff-global-mode)
:config :bind (:map drag-stuff-mode-map
(add-to-list 'drag-stuff-except-modes 'org-mode) ("M-p" . drag-stuff-up)
(drag-stuff-define-keys)) ("M-n" . drag-stuff-down))
;; :config
;; (add-to-list 'drag-stuff-except-modes 'org-mode)
;; (drag-stuff-define-keys)
)
;; A comprehensive visual interface to diff & patch ;; A comprehensive visual interface to diff & patch
(use-package ediff (use-package ediff

View File

@@ -15,18 +15,6 @@
(interactive "nTransparency Value 0 - 100 opaque:") (interactive "nTransparency Value 0 - 100 opaque:")
(set-frame-parameter nil 'alpha-background value)) (set-frame-parameter nil 'alpha-background value))
;; Comentar línea o región
(defun comment-or-uncomment-region-or-line ()
"Comments or uncomments the region or the current line."
(interactive)
(let (beg end)
(if (region-active-p)
(setq beg (region-beginning) end (region-end))
(setq beg (line-beginning-position) end (line-end-position)))
(comment-or-uncomment-region beg end)
;;(next-line) ;; saltar a la siguiente línea
))
;; Duplicar la línea actual ;; Duplicar la línea actual
(defun duplicate-current-line (&optional n) (defun duplicate-current-line (&optional n)
"Duplicate current line, make more than 1 copy given a numeric (N) argument." "Duplicate current line, make more than 1 copy given a numeric (N) argument."

View File

@@ -17,8 +17,6 @@
(global-set-key (kbd "C-x C-z") nil) ; Unbind C-x C-z (don't minimize) (global-set-key (kbd "C-x C-z") nil) ; Unbind C-x C-z (don't minimize)
(global-set-key (kbd "C-z") 'undo) ; Unbind C-z y hacerlo funcionar para deshacer cambios (global-set-key (kbd "C-z") 'undo) ; Unbind C-z y hacerlo funcionar para deshacer cambios
(global-set-key (kbd "C-S-z") 'undo-redo) ; Rehacer cambios con C-S-z (global-set-key (kbd "C-S-z") 'undo-redo) ; Rehacer cambios con C-S-z
(global-set-key (kbd "C-S-c")
'comment-or-uncomment-region-or-line) ; Comentar/descomentar línea o selección
(global-set-key (kbd "C-<f11>") 'toggle-frame-maximized) ; Maximizar / restaurar (global-set-key (kbd "C-<f11>") 'toggle-frame-maximized) ; Maximizar / restaurar
(global-set-key (kbd "C-S-d") 'duplicate-current-line) ; Duplicar línea (global-set-key (kbd "C-S-d") 'duplicate-current-line) ; Duplicar línea
(global-set-key (kbd "<mouse-3>") 'context-menu-open) ; Abrir menú contextal al hacer clic derecho (global-set-key (kbd "<mouse-3>") 'context-menu-open) ; Abrir menú contextal al hacer clic derecho

View File

@@ -52,11 +52,12 @@
;; Moverme entre frames ;; Moverme entre frames
(use-package windmove (use-package windmove
:ensure nil :ensure nil
:bind (("s-K" . windmove-up) :bind (("M-I" . windmove-up)
("s-J" . windmove-down) ("M-K" . windmove-down)
("s-H" . windmove-left) ("M-J" . windmove-left)
("s-L" . windmove-right) ("M-L" . windmove-right)
("s-O" . other-window))) ("M-O" . other-window)
("M-o" . other-window)))
;; Terminal ;; Terminal
(use-package vterm (use-package vterm