More keys for multiple cursors

[dotemacs] / init.el

diff --git a/init.el b/init.el
index 85aaa337bad00613f7bb7848a98677a2d69aa60d..04d01c65cfb00bda401398a71f6196ec70e0476a 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))
 
@@ -26,7 +26,6 @@
 (my/setup-load-path)
 
 (load-library "my-backups")
-(load-library "my-completion")
 (load-library "my-direx")
 (load-library "my-editing-defuns")
 (load-library "my-file-modes")
@@ -34,6 +33,7 @@
 (load-library "my-flycheck")
 (load-library "my-frame-title")
 (load-library "my-gui")
+(load-library "my-ivy")
 (load-library "my-keys")
 (load-library "my-kill-buffers")
 (load-library "my-minor-modes")