Browse Source

leftover from the previous commit

custom
Bozhidar Batsov 14 years ago
parent
commit
13ce41a3e3
  1. 8
      init.el
  2. 2
      modules/prelude-core.el
  3. 2
      modules/prelude-editor.el
  4. 2
      modules/prelude-ui.el

8
init.el

@ -38,13 +38,13 @@
(if (string= system-type "darwin") (if (string= system-type "darwin")
(push "/usr/local/bin" exec-path)) (push "/usr/local/bin" exec-path))
(defvar prelude-modules-dir (concat emacs-user-dir "modules/")
(defvar prelude-modules-dir (concat user-emacs-directory "modules/")
"This directory houses all of the built-in Prelude module. You should "This directory houses all of the built-in Prelude module. You should
avoid modifying the configuration there.") avoid modifying the configuration there.")
(defvar prelude-vendor-dir (concat emacs-user-dir "vendor/")
(defvar prelude-vendor-dir (concat user-emacs-directory "vendor/")
"This directory house Emacs Lisp packages that are not yet available in "This directory house Emacs Lisp packages that are not yet available in
ELPA (or Marmalade).") ELPA (or Marmalade).")
(defvar prelude-personal-dir (concat emacs-user-dir "personal/")
(defvar prelude-personal-dir (concat user-emacs-directory "personal/")
"Users of Emacs Prelude are encouraged to keep their personal configuration "Users of Emacs Prelude are encouraged to keep their personal configuration
changes in this directory. All Emacs Lisp files there are loaded automatically changes in this directory. All Emacs Lisp files there are loaded automatically
by Prelude.") by Prelude.")
@ -78,7 +78,7 @@ by Prelude.")
(when (file-exists-p prelude-personal-dir) (when (file-exists-p prelude-personal-dir)
(mapc 'load (directory-files prelude-personal-dir nil "^[^#].*el$"))) (mapc 'load (directory-files prelude-personal-dir nil "^[^#].*el$")))
;; config changes made through the customize UI will be store here ;; config changes made through the customize UI will be store here
(setq custom-file (concat prelude-dir "custom.el"))
(setq custom-file (concat prelude-personal-dir "custom.el"))
(load custom-file 'noerror) (load custom-file 'noerror)
;;; init.el ends here ;;; init.el ends here

2
modules/prelude-core.el

@ -348,7 +348,7 @@ there's a region, all lines that region covers will be duplicated."
(defun prelude-recompile-init () (defun prelude-recompile-init ()
"Byte-compile all your dotfiles again." "Byte-compile all your dotfiles again."
(interactive) (interactive)
(byte-recompile-directory emacs-user-dir 0)
(byte-recompile-directory user-emacs-directory 0)
(byte-recompile-directory prelude-vendor-dir 0)) (byte-recompile-directory prelude-vendor-dir 0))
(defun prelude-regen-autoloads (&optional force-regen) (defun prelude-regen-autoloads (&optional force-regen)

2
modules/prelude-editor.el

@ -93,7 +93,7 @@
(savehist-mode t) ;; do customization before activation (savehist-mode t) ;; do customization before activation
;; save recent files ;; save recent files
(setq recentf-save-file (concat prelude-dir "recentf") ;; keep ~/ clean
(setq recentf-save-file (concat user-emacs-directory "recentf") ;; keep ~/ clean
recentf-max-saved-items 100 ;; max save 100 recentf-max-saved-items 100 ;; max save 100
recentf-max-menu-items 15) ;; max 15 in menu recentf-max-menu-items 15) ;; max 15 in menu
(recentf-mode t) ;; turn it on (recentf-mode t) ;; turn it on

2
modules/prelude-ui.el

@ -59,7 +59,7 @@
(fset 'yes-or-no-p 'y-or-n-p) (fset 'yes-or-no-p 'y-or-n-p)
;; custom Emacs 24 color themes support ;; custom Emacs 24 color themes support
(add-to-list 'custom-theme-load-path (concat prelude-dir "themes/"))
(add-to-list 'custom-theme-load-path (concat user-emacs-directory "themes/"))
(load-theme 'zenburn t) (load-theme 'zenburn t)
(provide 'prelude-ui) (provide 'prelude-ui)

Loading…
Cancel
Save