fix load-path

[dotemacs] / init.el

diff --git a/init.el b/init.el
index 85aaa337bad00613f7bb7848a98677a2d69aa60d..ceaa5191d8952f1e13a11472b3a0b4b9d96fa3bc 100644 (file)
--- a/init.el
+++ b/init.el
@@ -1,13 +1,14 @@
 ;;; -*- lexical-binding: t -*-
 
-(require 'cl-lib)
+(require 'seq)
 
 (defvar my/original-load-path load-path)
 
 (defun my/add-to-load-path (dirname)
-  (and (string-match-p "^[^\\.]" dirname)
-       (file-accessible-directory-p dirname)
-       (cl-remove-if-not (lambda (file) (string-match-p "\\.el$" file)) (directory-files dirname))
+  (and (file-accessible-directory-p dirname)
+       (seq-filter (lambda (file)
+                     (string-match-p "\\.el$" file))
+                   (directory-files dirname))
        (add-to-list 'load-path dirname)))
 
 (defun my/setup-load-path ()
@@ -15,10 +16,9 @@
 
   (my/add-to-load-path "~/.emacs.d/lisp")
 
-  (dolist (name (directory-files "~/.emacs.d/packages"))
-    (let ((dirname (concat "~/.emacs.d/packages/" name)))
-      (my/add-to-load-path dirname)
-      (my/add-to-load-path (concat dirname "/lisp"))))
+  (dolist (dirname (directory-files "~/.emacs.d/packages" 'full "^[^\\.]"))
+    (my/add-to-load-path dirname)
+    (my/add-to-load-path (concat dirname "/lisp")))
 
   (message "Set load-path: %S" load-path))