diff options
author | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2019-06-26 16:48:25 +0100 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2020-09-28 10:51:40 +0100 |
commit | 12b402bbb8433daa35840b41d6d1ec208e2416c6 (patch) | |
tree | ecd5491670162de553944ca378cc63452537af27 | |
parent | tramp autocomplete for go2 and vagrant (cached) (diff) | |
download | emacs-12b402bbb8433daa35840b41d6d1ec208e2416c6.tar.gz emacs-12b402bbb8433daa35840b41d6d1ec208e2416c6.tar.bz2 emacs-12b402bbb8433daa35840b41d6d1ec208e2416c6.zip |
smarter perl indent in POD sections
-rwxr-xr-x | init.el | 25 |
1 files changed, 25 insertions, 0 deletions
@@ -430,3 +430,28 @@ (pcache-put repo key value 300) value)))) (advice-add 'vagrant-tramp--all-boxes :around #'dakkar-cache-vagrant) + +(defun dakkar/perl-indent (beg end) + (interactive "r") + (if (use-region-p) + (cond ((get-text-property beg 'in-pod) + (let* ( + (text (buffer-substring beg end)) + (indented-text (with-temp-buffer + (insert text) + (cperl-mode) + (cperl-indent-region 0 (buffer-size)) + (indent-rigidly 0 (buffer-size) cperl-indent-level) + (buffer-string)))) + (delete-region beg end) + (insert indented-text))) + (t (cperl-indent-region beg end))))) + +(defun dakkar/setup-cperl-mode () + (setq indent-region-function 'dakkar/perl-indent) + (substitute-key-definition + 'indent-region 'dakkar/perl-indent + cperl-mode-map global-map)) + +(add-hook 'cperl-mode-hook 'dakkar/setup-cperl-mode) + |