ryuslash/emacs-config
1
0
Fork 0
Code Activity

Remove the .el suffix from all module use

Browse source 
I don’t think there’s anywhere where the module file name is used in this
particular situation. That’s all done by Make.
This commit is contained in:
Tom Willemse 2020-10-16 12:55:35 -07:00
parent f58e528439
commit 3c005ded28
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
generate.el
View file

@ -25,18 +25,10 @@
("script" . ,(format "make integration-test-%s TEST_ARCHIVE=$(realpath bin/)" module)))) ("script" . ,(format "make integration-test-%s TEST_ARCHIVE=$(realpath bin/)" module))))
(defun unit-test-exists-p (module) (defun unit-test-exists-p (module)
(file-exists-p (file-exists-p (format "test/%s-test.el" module)))
(format "test/%s-test.el" (string-remove-suffix ".el" module))))
(defun integration-test-exists-p (module) (defun integration-test-exists-p (module)
(file-exists-p (file-exists-p (format "test/integration/%s.bats")))
(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)))))
(defun prepare-value-for-yaml (object) (defun prepare-value-for-yaml (object)
(pcase object (pcase object
@ -55,7 +47,9 @@
hash)) hash))
(defun generate () (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))) (directories (cl-remove-if-not #'file-directory-p modules)))
(with-temp-buffer (with-temp-buffer
(insert (insert