From: James Bunton <jamesbunton@delx.net.au>
Date: Mon, 19 Sep 2016 11:56:34 +0000 (+1000)
Subject: fix load-path
X-Git-Url: https://code.delx.au/dotemacs/commitdiff_plain/7b2556a8df398cd63bbce0be813ac7a2fdd4260b?hp=5473ca5c8506ace6ac2e5419bd9ae92bb5ecbd81

fix load-path
---

diff --git a/init.el b/init.el
index 85aaa33..ceaa519 100644
--- 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))