code.delx.au - dotemacs/blob - init.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (require 'seq)
   4
   5 (defvar my/original-load-path load-path)
   6
   7 (defun my/add-to-load-path (dirname)
   8   (and (file-accessible-directory-p dirname)
   9        (seq-filter (lambda (file)
  10                      (string-match-p "\\.el$" file))
  11                    (directory-files dirname))
  12        (add-to-list 'load-path dirname)))
  13
  14 (defun my/setup-load-path ()
  15   (setq load-path my/original-load-path)
  16
  17   (my/add-to-load-path "~/.emacs.d/lisp")
  18
  19   (dolist (dirname (directory-files "~/.emacs.d/packages" 'full "^[^\\.]"))
  20     (my/add-to-load-path dirname)
  21     (my/add-to-load-path (concat dirname "/lisp")))
  22
  23   (message "Set load-path: %S" load-path))
  24
  25
  26 (my/setup-load-path)
  27
  28 (load-library "my-backups")
  29 (load-library "my-completion")
  30 (load-library "my-direx")
  31 (load-library "my-editing-defuns")
  32 (load-library "my-file-modes")
  33 (load-library "my-find-test-file")
  34 (load-library "my-flycheck")
  35 (load-library "my-frame-title")
  36 (load-library "my-gui")
  37 (load-library "my-keys")
  38 (load-library "my-kill-buffers")
  39 (load-library "my-minor-modes")
  40 (load-library "my-recentf")
  41 (load-library "my-scratch")
  42 (load-library "my-shackle")
  43 (load-library "my-vc")
  44
  45 (message "Successfully loaded init.el")