aboutsummaryrefslogtreecommitdiffstats
path: root/generate.el
diff options
context:
space:
mode:
authorGravatar Tom Willemse2020-10-16 12:55:35 -0700
committerGravatar Tom Willemse2020-10-16 13:31:10 -0700
commit3c005ded28e308c3d0f63e53ffd747bdf1ec3102 (patch)
tree7a467db11e1820e18786bffcac97ff5c00731a2e /generate.el
parentf58e5284391f7876ceb207550c66786cb5c028c8 (diff)
downloademacs-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.
Diffstat (limited to 'generate.el')
-rw-r--r--generate.el16
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