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

update some of the elisp checks

Browse source
This commit is contained in:
riscy 2020-07-18 22:47:01 -07:00
parent ec81afcb66
commit da5ddbba62
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
melpazoid/melpazoid.el
View file

@ -27,8 +27,7 @@
(defun melpazoid-byte-compile (filename)
"Wrapper for running `byte-compile-file' against FILENAME."
;; TODO: use flycheck or its pattern for cleanroom byte-compiling
(let ((version (caddr (split-string (emacs-version)))))
(melpazoid-insert "byte-compile (using Emacs %s):" version))
(melpazoid-insert "byte-compile (using Emacs %s):" emacs-version)
(melpazoid--remove-no-compile)
(ignore-errors (kill-buffer "*Compile-Log*"))
(cl-letf (((symbol-function 'message) #'ignore))
@ -145,6 +144,7 @@ a Docker container, e.g. kellyk/emacs does not include the .el files."
(melpazoid-misc "(apply-on-rectangle '[^,]" msg)
(melpazoid-misc "(apply-partially '[^,]" msg)
(melpazoid-misc "(apply '[^,]" msg)
(melpazoid-misc "(cancel-function-timers '[^,]" msg)
(melpazoid-misc "(seq-mapcat '[^,]" msg)
(melpazoid-misc "(seq-map '[^,]" msg)
(melpazoid-misc "(seq-mapn '[^,]" msg)
@ -179,6 +179,7 @@ a Docker container, e.g. kellyk/emacs does not include the .el files."
(melpazoid-misc "lighter \".+ \"" "Lighter should start, but not end, with a space")
(melpazoid-misc "(fset" "Ensure this `fset` isn't being used as a surrogate `defalias`")
(melpazoid-misc "(fmakunbound" "`fmakunbound` should not occur")
(melpazoid-misc "^(progn" "`progn` is usually not required at the top level")
(melpazoid-misc "([^ ]*read-string \"[^\"]+[^ \"]\"" "Many `read-string` prompts should end with a space" t)
(melpazoid-misc ";;;###autoload\n(add-hook" "Don't autoload `add-hook`")
(melpazoid-misc "(add-hook [^ ]+ [^ ]+--[^ ]+" "Hooks should be public, not '--private'" t)
@ -292,7 +293,8 @@ OBJECTS are objects to interpolate into the string using `format'."
(string= (file-name-extension filename) "el"))
(melpazoid-insert "Loading %s" filename)
(unless (ignore-errors (load (expand-file-name filename) nil t t))
(melpazoid-insert "%s:Error: Emacs errored during load" filename)))))
(melpazoid-insert "%s:Error: Emacs %s errored during load"
filename emacs-version)))))
(melpazoid-insert "Done.")
(melpazoid-insert "```"))