From 7b2556a8df398cd63bbce0be813ac7a2fdd4260b Mon Sep 17 00:00:00 2001 From: James Bunton Date: Mon, 19 Sep 2016 21:56:34 +1000 Subject: [PATCH] fix load-path --- init.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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)) -- 2.39.2