diff options
Diffstat (limited to '.config/emacs/libraries/autoformat.el')
-rw-r--r-- | .config/emacs/libraries/autoformat.el | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/.config/emacs/libraries/autoformat.el b/.config/emacs/libraries/autoformat.el deleted file mode 100644 index de17a0d..0000000 --- a/.config/emacs/libraries/autoformat.el +++ /dev/null @@ -1,53 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: -;;; Code: - - -(defcustom autoformat-do-untabify t - "If the value is t, then `autoformat-mode' will replace all tabs -with spaces upon saving a file. Else, the function greedily replaces -spaces with tabs." - :type 'boolean - :group 'quality - :safe 'booleanp) - -(defun autoformat-toggle-space-rule (&optional ARG) - "Toggles the formatting behavior of variable -`autoformat-do-untabify'." - (interactive (list 'toggle)) - (setq autoformat-do-untabify - (if (eq ARG 'toggle) - (not autoformat-do-untabify) - ARG)) - - (message "Autoformatter will %suse spaces!" - (if autoformat-do-untabify - "" "no longer "))) - -(defun autoformat--before-save-handler () - "Automatically reformats spacing of the current buffer." - (when autoformat-mode - (delete-trailing-whitespace) - (if autoformat-do-untabify - (untabify (point-min) (point-max)) - (tabify (point-min) (point-max))))) - -(defun autoformat--prog-mode-hook () - (add-hook 'before-save-hook #'autoformat--before-save-handler nil t)) - -(define-minor-mode autoformat-mode - "Toggles global autoformat-mode." - :init-value nil - :global t - :group 'quality - :lighter " Autoformatter" - :keymap (list - (cons (kbd "C-z f") #'autoformat-toggle-space-rule)) - - (if autoformat-mode - (add-hook 'prog-mode-hook #'autoformat--prog-mode-hook) - (remove-hook 'prog-mode-hook #'autoformat--prog-mode-hook))) - - -(provide 'autoformat) -;;; autoformat.el ends here |