diff options
author | Tom Willemse | 2020-10-16 12:55:35 -0700 |
---|---|---|
committer | Tom Willemse | 2020-10-16 13:31:10 -0700 |
commit | 3c005ded28e308c3d0f63e53ffd747bdf1ec3102 (patch) | |
tree | 7a467db11e1820e18786bffcac97ff5c00731a2e | |
parent | f58e5284391f7876ceb207550c66786cb5c028c8 (diff) | |
download | emacs-config-3c005ded28e308c3d0f63e53ffd747bdf1ec3102.tar.gz emacs-config-3c005ded28e308c3d0f63e53ffd747bdf1ec3102.zip |
Remove the .el suffix from all module use
I don’t think there’s anywhere where the module file name is used in this
particular situation. That’s all done by Make.
-rw-r--r-- | generate.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/generate.el b/generate.el index f6756f9..a2f1121 100644 --- a/generate.el +++ b/generate.el @@ -25,18 +25,10 @@ ("script" . ,(format "make integration-test-%s TEST_ARCHIVE=$(realpath bin/)" module)))) (defun unit-test-exists-p (module) - (file-exists-p - (format "test/%s-test.el" (string-remove-suffix ".el" module)))) + (file-exists-p (format "test/%s-test.el" module))) (defun integration-test-exists-p (module) - (file-exists-p - (format "test/integration/%s.bats" (string-remove-suffix ".el" module)))) - -(defun alist-p (lst) - (and (listp lst) - (listp (car lst)) - (= (length lst) 2) - (not (proper-list-p (car lst))))) + (file-exists-p (format "test/integration/%s.bats"))) (defun prepare-value-for-yaml (object) (pcase object @@ -55,7 +47,9 @@ hash)) (defun generate () - (let* ((modules (directory-files "." nil (rx string-start "oni-"))) + (let* ((modules + (mapcar (lambda (file) (string-remove-suffix ".el" file)) + (directory-files "." nil (rx string-start "oni-")))) (directories (cl-remove-if-not #'file-directory-p modules))) (with-temp-buffer (insert |