diff options
Diffstat (limited to 'Emacs/.config/emacs/elisp/literate.el')
| -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/")))))) |