hiro/melpazoid
1
0
Fork 0
mirror of https://github.com/vale981/melpazoid synced 2025-03-05 09:21:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add check-commentary and check-mixed-indentation elisp file checks

Browse source
This commit is contained in:
riscy 2023-07-02 16:13:04 -07:00
parent a519b83048
commit 86a37a7915
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
melpazoid/melpazoid.el
View file

@ -170,6 +170,8 @@ a Docker container, e.g. kellyk/emacs does not include the .el files."
(defun melpazoid-check-experimentals ()
"Run miscs checker."
(melpazoid-check-commentary)
(melpazoid-check-mixed-indentation)
(melpazoid-check-sharp-quotes)
(melpazoid-check-misc)
(unless (equal melpazoid--pending "")
@ -180,6 +182,24 @@ a Docker container, e.g. kellyk/emacs does not include the .el files."
melpazoid--pending))
(melpazoid-commit-pending)))
(defun melpazoid-check-commentary ()
"Check the commentary."
(let ((commentary (lm-commentary)))
(when commentary
(with-temp-buffer
(insert commentary)
(goto-char 0)
(if (re-search-forward ".\\{90\\}" nil t)
(melpazoid-insert
"- The `;;; Commentary` for this file is much wider than 80 characters"))))))
(defun melpazoid-check-mixed-indentation ()
"Check for a mix of tabs and spaces."
(goto-char (point-min))
(if (re-search-forward "^[\t]+[ ]+" nil t)
(melpazoid--annotate-line
"Mixed tab/space indentation, consider `(setq indent-tabs-mode nil)`")))
(defun melpazoid-check-sharp-quotes ()
"Check for missing sharp quotes."
(melpazoid-misc