diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-10-16 16:33:49 +0100 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-10-16 16:34:02 +0100 |
commit | 838251f3f293f41df2aabbad8ea81ecad2b607e5 (patch) | |
tree | 392b184f9e8a6403d96520468007df9496ad1d51 /Emacs | |
parent | 3568ffd9d36ca327c4770c4fffba4ed90fb805ee (diff) | |
download | dotfiles-838251f3f293f41df2aabbad8ea81ecad2b607e5.tar.gz dotfiles-838251f3f293f41df2aabbad8ea81ecad2b607e5.tar.bz2 dotfiles-838251f3f293f41df2aabbad8ea81ecad2b607e5.zip |
Use cl-remove-if-not instead of +literate/filter in literate.el
Diffstat (limited to 'Emacs')
-rw-r--r-- | Emacs/.config/emacs/elisp/literate.el | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/Emacs/.config/emacs/elisp/literate.el b/Emacs/.config/emacs/elisp/literate.el index 9e429a6..3990903 100644 --- a/Emacs/.config/emacs/elisp/literate.el +++ b/Emacs/.config/emacs/elisp/literate.el @@ -33,15 +33,6 @@ (defun +literate/el-to-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) (string= "org" (file-name-extension filename))) @@ -65,7 +56,7 @@ (mapcar #'(lambda (name) (concat user-emacs-directory "elisp/" name)) ;; Only take .el files - (+literate/filter + (cl-remove-if-not #'+literate/el-p (cddr (directory-files (concat user-emacs-directory "elisp/")))))) |