Compare commits

..

3 Commits

Author SHA1 Message Date
kj
7289832288 Add php-cs-fixer package. 2025-09-04 10:14:54 -03:00
kj
03ee657182 Disable flymake in favor of flycheck. 2025-09-04 10:13:43 -03:00
kj
0b6c2058ed Refactor and add methods for filename insert and copy. 2025-09-04 10:13:03 -03:00
4 changed files with 36 additions and 12 deletions

View File

@ -102,7 +102,7 @@ If PROJECT is not specified, assume current project root."
(rename-buffer new-name))))
;; Copiar el nombre del archivo actual
(defun copy-file-name ()
(defun copy-filename ()
"Copy the current buffer file name to the clipboard."
(interactive)
(let ((filename (if (equal major-mode 'dired-mode)
@ -114,6 +114,18 @@ If PROJECT is not specified, assume current project root."
(message "Copied '%s'" filename))
(warn "Current buffer is not attached to a file!"))))
(defun copy-basename ()
"Copy the current buffer basename to the clipboard."
(interactive)
(let ((filename (if (equal major-mode 'dired-mode)
default-directory
(file-name-nondirectory (buffer-file-name)))))
(if filename
(progn
(kill-new filename)
(message "Copied '%s'" filename))
(warn "Current buffer is not attached to a file!"))))
;; Verifica si se puede levantar un childframe
(defun childframe-workable-p ()
"Whether childframe is workable."
@ -127,12 +139,12 @@ If PROJECT is not specified, assume current project root."
"Check if font with FONT-NAME is available."
(find-font (font-spec :name font-name)))
(defun insert-full-filename ()
(defun insert-filename ()
"Insert the full path file name into the current buffer."
(interactive)
(insert (buffer-file-name)))
(defun insert-filename-only ()
(defun insert-basename ()
"Insert the filename (without path) into the current buffer."
(interactive)
(insert (file-name-nondirectory (buffer-file-name))))

View File

@ -35,8 +35,10 @@
(define-key global-map "\M-]" 'forward-paragraph)
;; Insertar nombre del archivo
(global-set-key (kbd "C-c ff") 'insert-full-filename)
(global-set-key (kbd "C-c fo") 'insert-filename-only)
(global-set-key (kbd "C-c ff") 'insert-filename)
(global-set-key (kbd "C-c fb") 'insert-basename)
(global-set-key (kbd "C-c fcf") 'copy-filename)
(global-set-key (kbd "C-c fcb") 'copy-basename)
;; Deactivar el abrir *messages* al cliquear en el minibuffer
(define-key minibuffer-inactive-mode-map [mouse-1] #'ignore)

View File

@ -85,17 +85,25 @@
;; Revisar por errores en el código
(use-package flymake
:ensure nil
:hook (prog-mode . (lambda ()
(unless (derived-mode-p 'makefile-mode)
(flymake-mode))))
;; :hook (prog-mode . (lambda ()
;; (unless (derived-mode-p 'makefile-mode)
;; (flymake-mode))))
:init
(remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
)
;; Mostar los errores de flymake en un popup-tip
(use-package flymake-diagnostic-at-point
:after flymake
:hook (flymake-mode . flymake-diagnostic-at-point-mode))
(use-package flycheck
:init (global-flycheck-mode)
:config
(setq flycheck-indication-mode nil
flycheck-phpcs-standard "PSR12"))
(use-package flycheck-eglot
:after flycheck
:custom
(flycheck-eglot-exclusive nil)
:init
(global-flycheck-eglot-mode 1))
(provide 'init-lsp)
;;; init-lsp.el ends here

View File

@ -30,5 +30,7 @@
;; PHPUnit
(use-package phpunit)
(use-package php-cs-fixer)
(provide 'lang-php)
;;; lang-php.el ends here