Faster setup

alc.el

@@ -26,3 +26,5 @@
   (browse-url (alc-make-url
                (cond ((string= arg "") (or (current-word) ""))
                      (t arg)))))
+
+(provide 'alc)

basic-config.el

@@ -143,3 +143,23 @@
 (setq display-time-format "[%T]")
 (setq display-time-day-and-date t)
 (display-time)
+
+;; auto-highlight-symbol-mode
+(require 'auto-highlight-symbol)
+(require 'auto-highlight-symbol-config)
+(global-auto-highlight-symbol-mode t)
+
+;; bm
+(require 'bm)
+(setq-default bm-buffer-persistence nil)
+(setq bm-restore-repository-on-load t)
+(add-hook 'find-file-hook 'bm-buffer-restore)
+(add-hook 'kill-buffer-hook 'bm-buffer-save)
+(add-hook 'after-save-hook 'bm-buffer-save)
+(add-hook 'after-revert-hook 'bm-buffer-restore)
+
+
+;; occur
+(defun occur-current-word ()
+  (interactive)
+  (occur (current-word)))

delete-line.el

@@ -11,3 +11,4 @@
 
 (global-set-key "\M-k" 'delete-line)
 
+(provide 'delete-line)

dired-config.el

@@ -61,5 +61,3 @@ Optional prefix ARG says how many lines to move; default is one line."
                                     (string-ends-with x "~"))))
                  (directory-files (dired-current-directory))))
     (delete-file f)))
-
-

init.el

@@ -1,5 +1,4 @@
-(dolist (dir (split-string (shell-command-to-string "find ~/.emacs.d/ -type d") "\n"))
-  (add-to-list 'load-path dir))
+(add-to-list 'load-path "~/.emacs.d/dotemacs/")
 (load "my-init.el")
 (load "my-keybind.el")
 ;; (set-frame-parameter nil 'alpha 50)