oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use cl-remove-if-not instead of +literate/filter in literate.el

Browse Source
This commit is contained in:
Aryadev Chavali
2024-10-16 16:33:49 +01:00
parent 3568ffd9d3
commit 838251f3f2
1 changed files with 1 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Emacs/.config/emacs/elisp/literate.el
View File

@@ -33,15 +33,6 @@
(defun +literate/el-to-elc (name) (defun +literate/el-to-elc (name)
(string-replace ".el" ".elc" name)) (string-replace ".el" ".elc" name))
(defun +literate/filter (predicate list)
(if (null list)
nil
(let ((first (car list))
(rest (cdr list)))
(if (funcall predicate first)
(cons first (+literate/filter predicate rest))
(+literate/filter predicate rest)))))
(defun +literate/org-p (filename) (defun +literate/org-p (filename)
(string= "org" (file-name-extension filename))) (string= "org" (file-name-extension filename)))
@@ -65,7 +56,7 @@
(mapcar (mapcar
#'(lambda (name) (concat user-emacs-directory "elisp/" name)) #'(lambda (name) (concat user-emacs-directory "elisp/" name))
;; Only take .el files ;; Only take .el files
(+literate/filter (cl-remove-if-not
#'+literate/el-p #'+literate/el-p
(cddr (directory-files (concat user-emacs-directory "elisp/")))))) (cddr (directory-files (concat user-emacs-directory "elisp/"))))))