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)))) (rename-buffer new-name))))
;; Copiar el nombre del archivo actual ;; Copiar el nombre del archivo actual
(defun copy-file-name () (defun copy-filename ()
"Copy the current buffer file name to the clipboard." "Copy the current buffer file name to the clipboard."
(interactive) (interactive)
(let ((filename (if (equal major-mode 'dired-mode) (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)) (message "Copied '%s'" filename))
(warn "Current buffer is not attached to a file!")))) (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 ;; Verifica si se puede levantar un childframe
(defun childframe-workable-p () (defun childframe-workable-p ()
"Whether childframe is workable." "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." "Check if font with FONT-NAME is available."
(find-font (font-spec :name font-name))) (find-font (font-spec :name font-name)))
(defun insert-full-filename () (defun insert-filename ()
"Insert the full path file name into the current buffer." "Insert the full path file name into the current buffer."
(interactive) (interactive)
(insert (buffer-file-name))) (insert (buffer-file-name)))
(defun insert-filename-only () (defun insert-basename ()
"Insert the filename (without path) into the current buffer." "Insert the filename (without path) into the current buffer."
(interactive) (interactive)
(insert (file-name-nondirectory (buffer-file-name)))) (insert (file-name-nondirectory (buffer-file-name))))

View File

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

View File

@ -85,17 +85,25 @@
;; Revisar por errores en el código ;; Revisar por errores en el código
(use-package flymake (use-package flymake
:ensure nil :ensure nil
:hook (prog-mode . (lambda () ;; :hook (prog-mode . (lambda ()
(unless (derived-mode-p 'makefile-mode) ;; (unless (derived-mode-p 'makefile-mode)
(flymake-mode)))) ;; (flymake-mode))))
:init :init
(remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake) (remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
) )
;; Mostar los errores de flymake en un popup-tip (use-package flycheck
(use-package flymake-diagnostic-at-point :init (global-flycheck-mode)
:after flymake :config
:hook (flymake-mode . flymake-diagnostic-at-point-mode)) (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) (provide 'init-lsp)
;;; init-lsp.el ends here ;;; init-lsp.el ends here

View File

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