Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

Look for system specific config dir #111

Closed
wants to merge 1 commit into from

2 participants

@mamciek

I have extended your code so that it searches for system specific config dir (instead of only flat file) - just like user specific dir. Now any system specific config may be more modular

@technomancy
Owner

Thanks, but this project is currently deprecated.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Mar 26, 2012
  1. @mamciek

    Look for system specific config dir

    mamciek authored Maciej Mazur committed
This page is out of date. Refresh to see the latest.
Showing with 6 additions and 0 deletions.
  1. +6 −0 starter-kit.el
View
6 starter-kit.el
@@ -48,9 +48,13 @@
;; You can keep system- or user-specific customizations here
(setq esk-system-config (concat user-emacs-directory system-name ".el")
+ esk-system-dir (concat user-emacs-directory system-name)
esk-user-config (concat user-emacs-directory user-login-name ".el")
esk-user-dir (concat user-emacs-directory user-login-name))
+ (add-to-list 'load-path esk-system-dir)
+ (add-to-list 'load-path esk-user-dir)
+
(setq smex-save-file (concat user-emacs-directory ".smex-items"))
(smex-initialize)
(global-set-key (kbd "M-x") 'smex)
@@ -67,6 +71,8 @@
(esk-eval-after-init
'(progn
(when (file-exists-p esk-system-config) (load esk-system-config))
+ (when (file-exists-p esk-system-dir)
+ (mapc 'load (directory-files esk-system-dir nil "^[^#].*el$")))
(when (file-exists-p esk-user-config) (load esk-user-config))
(when (file-exists-p esk-user-dir)
(mapc 'load (directory-files esk-user-dir nil "^[^#].*el$"))))))
Something went wrong with that request. Please try again.