Compare commits
3 Commits
d50d5228cf
...
7289832288
Author | SHA1 | Date | |
---|---|---|---|
7289832288 | |||
03ee657182 | |||
0b6c2058ed |
@ -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))))
|
||||||
|
@ -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)
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Reference in New Issue
Block a user