contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix load-path for new folder structure

This commit is contained in:
Kashish Sharma 2018-09-04 22:37:12 +05:30
parent 2ba8255dee
commit 79f638eafe
3 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrapunctus/cp-ido.el
View File

@ -40,7 +40,7 @@
(require 'smex)
(global-set-key (kbd "M-x") 'smex)
(load "ido-mini")
(require 'ido-mini)
(global-set-key (kbd "C-x C-l") 'ido-mini)
(ido-vertical-mode 1)

2
contrapunctus/cp-ui.el
View File

@ -28,7 +28,7 @@
;;;; Good theme but uses different font sizes in org-mode, and (I think) some weird non-monospace font
;; (require 'monokai-theme)
;; (require 'molokai-theme)
(require 'molokai-theme)
;; (require 'fullscreen-mode)
;; (fullscreen-mode 1)

26
init.el
View File

@ -11,16 +11,20 @@
;; ;; (toggle-debug-on-quit)
;; from https://github.com/jorgenschaefer/Config/blob/master/emacs.el#L796-L800
(when (file-directory-p "~/.emacs.d/elisp-git/")
(add-to-list 'load-path "~/.emacs.d/elisp-git/")
(dolist (dirname (directory-files "~/.emacs.d/elisp-git/" t "^[^.]"))
(when (file-directory-p dirname)
(let ((try1 (concat dirname "/elisp"))
(try2 (concat dirname "/lisp")))
(add-to-list 'load-path
(cond ((file-exists-p try1) try1)
((file-exists-p try2) try2)
(t dirname)))))))
(mapc (lambda (path)
(when (file-directory-p path)
(add-to-list 'load-path path)
(dolist (dirname (directory-files path t "^[^.]"))
(when (file-directory-p dirname)
(let ((try1 (concat dirname "/elisp"))
(try2 (concat dirname "/lisp")))
(add-to-list 'load-path
(cond ((file-exists-p try1) try1)
((file-exists-p try2) try2)
(t dirname))))))))
'("~/.emacs.d/elisp-git/"
"~/.emacs.d/contrapunctus"
"~/.emacs.d/elpa/"))
(require 'dash)
(require 's)
@ -30,6 +34,8 @@
(add-to-list 'load-path "~/.emacs.d/user/")
(add-to-list 'load-path "~/.emacs.d/contrapunctus/")
(add-to-list 'load-path "~/.emacs.d/contrapunctus/fin/")
(add-to-list 'load-path "~/.emacs.d/contrapunctus/ido-mini/")
(add-to-list 'load-path "~/.emacs.d/contrapunctus/timeclock-ui/")
(load "cp")